Services & ResourcesWolfram ForumsMathGroup Archive

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

Re: Re: more documentation finder palettes

• To: mathgroup at smc.vnet.net
• Subject: [mg76238] Re: [mg76188] Re: [mg76120] more documentation finder palettes
• From: Murray Eisenberg <murray at math.umass.edu>
• Date: Fri, 18 May 2007 06:14:28 -0400 (EDT)
• Organization: Mathematics & Statistics, Univ. of Mass./Amherst
• References: <845718.1179133087873.JavaMail.root@m35> <200705150856.EAA17018@smc.vnet.net> <20467413.1179319928628.JavaMail.root@m35> <op.tsfoj7h4qu6oor@monster.ma.dl.cox.net> <200705171007.GAA01340@smc.vnet.net>
• Reply-to: murray at math.umass.edu

Same problem with the Package Guides button on the palette as before:
Transpose called with 3 arguments.

And Mathematica is unable to open any of the items on the Compatibility
Guides palette opened by the items on the Compatibility Guides button.

Selwyn Hollis wrote:
> Okay, I think I've made this thing platform-independent now. Get it  
> here:
> 
>       http://www.math.armstrong.edu/faculty/hollis/HelpHelperPalette.nb
> 
> Selwyn
> 
> 
> On May 16, 2007, at 3:03 PM, DrMajorBob wrote:
> 
>> This fails. The slashes are backward.
>>
>> SetDirectory[$InstallationDirectory <>
>>   "/Documentation/English/Packages/Compatibility/Documentation/
>>   English/Guides"]
>>
>> Bobby
>>
>> On Wed, 16 May 2007 04:41:42 -0500, Selwyn Hollis  
>> <sh2.7183 at earthlink.net> wrote:
>>
>>> (* This is a vastly improved version of the previous palette for
>>> opening tutorial overviews: *)
>>>
>>> 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}]
>>>
>>> (* This one opens package guides:  *)
>>>
>>> columns = 3;
>>> SetDirectory[$InstallationDirectory <> "/Documentation/English/
>>> Packages"];
>>> pkgnames = FileNames[];
>>> SetDirectory[$HomeDirectory]; docpaths =
>>>   FileNames[
>>>    "*", {$InstallationDirectory <>
>>>      "/Documentation/English/Packages/*/Documentation/English/ 
>>> Guides"},
>>>    Infinity];
>>> CellPrint@Cell[BoxData[GridBox[
>>>      Partition[PadRight[#, columns*Ceiling[Length[#]/columns], " "],
>>>         columns] &[
>>>       ((ButtonBox[((l = StringLength[#];
>>>                If[l < 25, #, StringTake[#, 23] <> "..."]) &)@First 
>>> [#],
>>>            ButtonFunction :> (NotebookOpen[Last[#]]),
>>>            Evaluator -> Automatic] &) /@
>>>         Transpose[{Flatten[pkgnames /. "Compatibility" -> {}],
>>>           Flatten[
>>>            If[Not@StringMatchQ[#, {"*Package.nb"}], {}, #] & /@
>>>             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}]
>>>
>>>
>>> (* This one opens the compatibility guides: *)
>>>
>>> columns = 1;
>>> SetDirectory[$InstallationDirectory <>
>>>     "/Documentation/English/Packages/Compatibility/Documentation/
>>> English/\
>>> Guides"];
>>> pkgnames = FileNames[];
>>> SetDirectory[$HomeDirectory]; docpaths =
>>>   FileNames[
>>>    "*", {$InstallationDirectory <>
>>>      "/Documentation/English/Packages/Compatibility/Documentation/
>>> English/\
>>> Guides/*"}, Infinity];
>>> CellPrint@Cell[BoxData[GridBox[
>>>      Partition[PadRight[#, columns*Ceiling[Length[#]/columns], " "],
>>>         columns] &[
>>>       ((ButtonBox[((l = StringLength[#];
>>>                If[l < 25, #, StringTake[#, 23] <> "..."]) &)@First 
>>> [#],
>>>            ButtonFunction :> (NotebookOpen[Last[#]]),
>>>            Evaluator -> Automatic] &) /@ Transpose[{pkgnames,
>>> docpaths}])]]],
>>>    ButtonBoxOptions -> {BaseStyle -> {FontSize -> 10, FontFamily ->
>>> "Arial",
>>>        Bold}, FrameMargins -> {{10, 10}, {0, 0}},
>>>      Background -> RGBColor[1, 0.96, 0.87]},
>>>    GridBoxOptions -> {RowSpacings -> 0, ColumnSpacings -> 0}]
>>>
>>>
>>>
>>>
>>>
>>
>>
>> -- 
>> DrMajorBob at bigfoot.com
> 
> 

-- 
Murray Eisenberg                     murray at math.umass.edu
Mathematics & Statistics Dept.
Lederle Graduate Research Tower      phone 413 549-1020 (H)
University of Massachusetts                413 545-2859 (W)
710 North Pleasant Street            fax   413 545-1801
Amherst, MA 01003-9305

• References:
  • Re: Compatibility woes
    • From: DrMajorBob <drmajorbob@bigfoot.com>
  • Re: more documentation finder palettes
    • From: Selwyn Hollis <sh2.7183@earthlink.net>