Mathematica 9 is now available
Services & Resources / Wolfram Forums
-----
 /
MathGroup Archive
2007
*January
*February
*March
*April
*May
*June
*July
*August
*September
*October
*Archive Index
*Ask about this page
*Print this page
*Give us feedback
*Sign up for the Wolfram Insider

MathGroup Archive 2007

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

Search the Archive

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}]



  • Prev by Date: Re: Phase Portrait
  • Next by Date: Re: how save newly created palette?
  • Previous by thread: Re: Integrate[Log[a]+...+O[a]^n,x]
  • Next by thread: Re: Palettes install