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