Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2002
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*November
*December
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2002

[Date Index] [Thread Index] [Author Index]

Search the Archive

Re: repeated entries in File>Palettes list

  • To: mathgroup at smc.vnet.net
  • Subject: [mg34760] Re: [mg34561] repeated entries in File>Palettes list
  • From: Dale Horton <daleh at wolfram.com>
  • Date: Wed, 5 Jun 2002 03:38:18 -0400 (EDT)
  • Sender: owner-wri-mathgroup at wolfram.com

At 12:17 AM 5/27/2002, Jonathan Rockmann wrote:

>Greetings to my friends all over the world.
>
>The subject line pretty much says it all.  After having installed
>and uninstalled various Mathematica programs which come with their own 
>palettes,
>I'm stuck with sometimes three entries of the same palette name on the 
>palettes list.  They all pull up the same palette, so there's no problem there,
>but I'd like to get it down to just one entry.  After fiddling with
>some of the files I'm familiar with to no avail it's time to pass it to
>someone with more expertise.
>My complements to the entire global Mathematica community which
>participates in this forum.  I learn a great deal just by taking
>a few minutes everyday to read the postings.
>
>Thank You,
>Jonathan
>mtheory at msn.com

Here's a routine that will find what files should appear in the palette 
menu. Perhaps you have multiple copies of the palettes in places that 
you're not aware of.

listdirs[FrontEnd`FileName[{begin___, Verbatim[_], end___}, ___]] :=
   Module[{choices},
     choices =
       Select[FileNames["*",
           ToFileName[{begin}]], (FileType[#]===Directory)&];
     Map[ToFileName[{#, end}]&, choices] ]

listdirs[dir_] := ToFileName@dir

(* get the fe path setting *)
path = FullOptions[$FrontEnd, PalettePath];

(* convert fe directories into kernel directories *)
path = Flatten[listdirs/@path];

(* find all nbs in those directories *)
pals = FileNames["*.nb", path]

If you do not have multiple copies of the palettes in this list, then 
perhaps your preferences are corrupted.

http://support.wolfram.com/mathematica/interface/customize/corruptpreferencesfile.html

-Dale



  • Prev by Date: Re: Warning Messages on Notebooks Produced by Later Versions
  • Next by Date: Re: Fun 7th grade Algebra problem
  • Previous by thread: Re: [MacOS X] User interface Q
  • Next by thread: Re: TableForm and NumberForm (2)