Palettes install
- To: mathgroup at smc.vnet.net
- Subject: [mg76275] Palettes install
- From: "alexxx.magni at gmail.com" <alexxx.magni at gmail.com>
- Date: Fri, 18 May 2007 06:34:30 -0400 (EDT)
Hi, although I use M since some years, just recently I started peeking beyond my immediate, number-crunching interests (with the woes&wonders of V6.0, of course!) I saw some posts talking about the possibility to create useful palettes (I know it's old stuff: as I told you I simply never wandered beyond NIntegrates...). Can somebody explain me how to install them? I tried copy/pasting in a new .nb notebook, then Palettes->Install Palette: type Palette, Source:from file, Install name:Tutorials, but nothing happens. The .nb follows, stolen from this post: http://groups.google.it/group/comp.shttp://groups.google.it/group/comp.soft-sys.math.mathematica/post?hl=itoft-sys.math.mathematica/browse_frm/thread/b43a5539ac5a3fa0/4d8d37c4ec14f912?hl=it#4d8d37c4ec14f912 , by Selwyn Hollis. Thanks for any help!!! Alessandro Magni ---------------------------------------------------- columns = 3; SetDirectory[$InstallationDirectory <> "/Documentation/English/System/Tutorials"]; overviewNames = StringReplace[#, {".nb" -> ""}] & /@ FileNames["*Overview.nb"]; SetDirectory[$HomeDirectory]; docpaths = FileNames[ "*Overview.nb", {$InstallationDirectory <> "/Documentation/English/System/Tutorials"}, Infinity]; CellPrint@Cell[BoxData[GridBox[ Partition[PadRight[#, columns*Ceiling[Length[#]/columns], " "], columns] &[ ((ButtonBox[((l = StringLength[#]; If[l < 25, #, StringTake[#, 23] <> "..."]) &)@ StringReplace[ First[#], {"Overview" -> "", "And" -> "&", StartOfString ~~ "The" -> "", "Administration" -> "Admin", "TwoDimensional" -> "2D", "Operations" -> "Ops"} ], ButtonFunction :> (NotebookOpen[Last[#]]), Evaluator -> Automatic] &) /@ Transpose[{overviewNames, docpaths}])]]], ButtonBoxOptions -> {BaseStyle -> {FontSize -> 9, FontFamily -> "Arial", Bold}, FrameMargins -> {{2, 2}, {0, 0}}, Background -> RGBColor[1, 0.96, 0.87]}, GridBoxOptions -> {RowSpacings -> 0, ColumnSpacings -> 0}]