(* Content-type: application/mathematica *) (*** Wolfram Notebook File ***) (* http://www.wolfram.com/nb *) (* CreatedBy='Mathematica 6.0' *) (*CacheID: 234*) (* Internal cache information: NotebookFileLineBreakTest NotebookFileLineBreakTest NotebookDataPosition[ 145, 7] NotebookDataLength[ 80771, 2219] NotebookOptionsPosition[ 51296, 1487] NotebookOutlinePosition[ 73424, 1982] CellTagsIndexPosition[ 72153, 1960] WindowFrame->Normal ContainsDynamic->False*) (* Beginning of Notebook Content *) Notebook[{ Cell[TextData[{ "This notebook is Copyright \[Copyright], 2008 Scientific Arts, LLC, all \ rights reserved. It may be redistributed only in full and in its original \ form without modification; and it may not be used for any commercial purpose \ without permission from Scientific Arts. A non-exclusive royalty-free \ license is given to reproduce and use all the of the ", StyleBox["Mathematica", FontSlant->"Italic"], " ", StyleBox["code", FontSlant->"Italic"], " in this notebook for any purpose whatsoever, as well as any of the ideas. \ No guarantee whatsoever is given as to the accuracy or functionality of \ anything presented in this document. Use at your own risk. \[LineSeparator]\ \[LineSeparator]Enjoy: I hope that it's useful. For further information on \ ", StyleBox["A", FontWeight->"Bold", FontColor->RGBColor[0.542718, 0.103822, 0.139086]], StyleBox[" ", FontWeight->"Bold"], StyleBox["Work", FontWeight->"Bold", FontColor->RGBColor[0.647059, 0.119585, 0.134844]], StyleBox["Life", FontWeight->"Bold", FontColor->RGBColor[0.692302, 0.471, 0.275517]], StyleBox[" ", FontWeight->"Bold"], StyleBox["Frame", FontWeight->"Bold", FontColor->RGBColor[0.0872663, 0.520363, 0.287388]], StyleBox["Work", FontWeight->"Bold", FontColor->RGBColor[0, 0.300008, 0.4]], ", please click on the Scientific Arts banner above." }], "Text", Editable->False, CellFrame->True, ShowCellBracket->False, CellChangeTimes->{{3.417128787102659*^9, 3.417128932911289*^9}, { 3.417128966977538*^9, 3.417129009600556*^9}, {3.4171299658753567`*^9, 3.41713007488867*^9}, 3.417130106213378*^9, {3.417130890353876*^9, 3.417130965142454*^9}, {3.4171310313529577`*^9, 3.417131134463414*^9}, { 3.417131180005157*^9, 3.41713120084977*^9}}, Background->GrayLevel[0.9], CellID->2123826423], Cell["Version of Tue 15 Apr 2008 13:20:00", "Text", Editable->False, Deletable->True, ShowCellBracket->False, CellChangeTimes->{{3.417268790243142*^9, 3.41726880540938*^9}}, TextAlignment->Center, CellID->1486673549], Cell[TextData[{ "Go to ", ButtonBox["http://www.scientificarts.com/worklife/notebooks/", BaseStyle->"Hyperlink", ButtonData->{ URL["http://www.scientificarts.com/worklife/notebooks/"], None}], " for updates to this notebook" }], "Text", Editable->False, Deletable->True, ShowCellBracket->False, CellChangeTimes->{{3.4172689423328753`*^9, 3.417268968683189*^9}}, TextAlignment->Center, CellID->550105198], Cell[CellGroupData[{ Cell["The Structure of Documentation Directories", "Section", Editable->False, ShowCellBracket->False, ShowGroupOpener->True, CellID->1851443488], Cell["\<\ Typically when you have an application such as a package in a directory that \ directory will contain the documentation for that application.\ \>", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417033633332902*^9, 3.417033680256357*^9}}, CellID->1393114728], Cell[TextData[{ "Let us say that your application is in a directory called ", StyleBox["MyApplication", "SR"], ". Then, within this directory, there will be a directory called ", StyleBox["Documentation", "SR"], " and there will also be a file called ", StyleBox["PacletInfo.m", "MR"], ". More about the ", StyleBox["PacletInfo.m", "MR"], " file will be described later on." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417033689423996*^9, 3.417033777833687*^9}, { 3.417130279471484*^9, 3.417130282404149*^9}}, CellID->65030255], Cell[TextData[{ "Within the ", StyleBox["Documentation", "SR"], " directory there will be another directory called ", StyleBox["English", "SR"], " (assuming that your documentation is in English). And within the English \ directory will be three directories called" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417033796246358*^9, 3.417033839746915*^9}}, CellID->1943657550], Cell[CellGroupData[{ Cell[TextData[StyleBox["Guides", "SR"]], "Item", Editable->False, ShowCellBracket->False, CellID->74658445], Cell[TextData[StyleBox["Tutorials", "SR"]], "Item", Editable->False, ShowCellBracket->False, CellID->1678688333], Cell[TextData[StyleBox["ReferencePages", "SR"]], "Item", Editable->False, ShowCellBracket->False, CellChangeTimes->{3.4170358137214127`*^9}, CellID->654035267] }, Open ]], Cell[TextData[{ "And within the ", StyleBox["ReferencePages", "SR"], " directory is another directory called ", StyleBox["Symbols", "SR"], "." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.4170428273572493`*^9, 3.41704285727801*^9}, 3.417043889128631*^9}, CellID->61916233], Cell["So the form of the directory hierarchy looks like: ", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{3.417035791405319*^9}, CellID->1549427123], Cell[BoxData[ FrameBox[ GraphicsBox[ TagBox[ GraphicsComplexBox[{{0., 4.}, {0., 3.}, {0., 2.}, {-1., 1.}, {0., 1.}, { 1., 1.}, {1., 0.}}, { {RGBColor[0.5, 0., 0.], Arrowheads[{{0.02554714064914992, 0.7}}], ArrowBox[{1, 2}], ArrowBox[{2, 3}], ArrowBox[{3, 4}], ArrowBox[{3, 5}], ArrowBox[{3, 6}], ArrowBox[{6, 7}]}, {InsetBox[ FrameBox["\<\"MyApplication\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 1], InsetBox[ FrameBox["\<\"Documentation\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 2], InsetBox[ FrameBox["\<\"English\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 3], InsetBox[ FrameBox["\<\"Guides\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 4], InsetBox[ FrameBox["\<\"Tutorials\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 5], InsetBox[ FrameBox["\<\"ReferencePages\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 6], InsetBox[ FrameBox["\<\"Symbols\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 7]}}], Annotation[#, VertexCoordinateRules -> {{0., 4.}, {0., 3.}, {0., 2.}, {-1., 1.}, {0., 1.}, {1., 1.}, {1., 0.}}]& ], AspectRatio->Automatic, BaseStyle->{FontFamily -> "Helvetica"}, FrameTicks->None, PlotRange->All, PlotRangePadding->Scaled[0.1]], StripOnInput->False]], "Graphics", Editable->False, ShowCellBracket->False, CellChangeTimes->{3.417042767034029*^9}, TextAlignment->Center, CellTags->{ "DiaryDate[{2008, 4, 13, 0, 12, 41.115594}]", "EphemeralGUID[42813389784420250757880456136848447631]", "CellGUID[80430276481694835362319120721296092751]"}, CellID->208273949], Cell[TextData[{ "The three directories, ", StyleBox["Guides", "SR"], ", ", StyleBox["Tutorials", "SR"], ", and ", StyleBox["ReferencePages", "SR"], " have the following purposes:" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417035796051252*^9, 3.417035844993277*^9}, 3.417129095549333*^9}, CellID->272202062], Cell[CellGroupData[{ Cell["Guides", "Subsubsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->False, CellChangeTimes->{3.417041818162662*^9}, CellID->759887924], Cell["\<\ This is the directory in which, for example, Tables of Contents notebooks \ would reside. Also, more generally, Guide Pages would go here.\ \>", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417035865318654*^9, 3.4170359274021893`*^9}}, CellID->1387564179] }, Open ]], Cell[CellGroupData[{ Cell["Tutorials", "Subsubsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->False, CellID->351089959], Cell["\<\ Here go the actual tutorials: the discursive content that you create. In \ effect this is the descriptive documentation itself.\ \>", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417035930263755*^9, 3.417035975530663*^9}}, CellID->1266233680] }, Open ]], Cell[CellGroupData[{ Cell["ReferencePages", "Subsubsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->False, CellChangeTimes->{3.4170358137214127`*^9}, CellID->1631362604], Cell[TextData[{ "In this directory there is a subdirectory called ", StyleBox["Symbols", "SR"], ". In the ", StyleBox["Symbols", "SR"], " directory is placed the notebooks\[LongDash]one for each function\ \[LongDash]that give the specific documentation for each function in your \ package. At the very least each such page would contain the usage message \ for each function in your package." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.4170359777864943`*^9, 3.4170360176676693`*^9}, { 3.4170360514949427`*^9, 3.417036080812749*^9}, {3.4170427812227917`*^9, 3.417042799622271*^9}, 3.417043893631226*^9}, CellID->26517990] }, Open ]], Cell[CellGroupData[{ Cell[TextData[{ "The ", StyleBox["PacletInfo.m", "MR"], " File" }], "Subsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->True, TaggingRules:>{"GUIDTag[59517498499764084709173016840460217470]"}, CellChangeTimes->{{3.417036168576928*^9, 3.41703617938203*^9}}, CellTags->{ "DiaryDate[{2008, 4, 13, 0, 42, 47.501359}]", "EphemeralGUID[332395247488929281630951474907650830001]", "CellGUID[42951417094012448381146599396971351441]"}, CellID->1611906811], Cell[TextData[{ "As mentioned above, within the package directory which we are calling ", StyleBox["MyApplication", "SR"], " there will also be a file called ", StyleBox["PacletInfo.m", "MR"], ". This is a file with a specific structure which tells ", StyleBox["Mathematica", FontSlant->"Italic"], " what is contained within the ", StyleBox["Guides", "SR"], ", ", StyleBox["Tutorials", "SR"], ", and ", StyleBox["ReferencePages", "SR"], " directories and how the ", StyleBox["Documentation Center", "IT"], " should categorize and access them. The ", StyleBox["PacletInfo.m", "MR"], " file is a plain text file with elements that describe what sorts of \ materials are contained in the ", StyleBox["Guides", "SR"], ", ", StyleBox["Tutorials", "SR"], ", and ", StyleBox["ReferencePages", "SR"], " directories as well as things such as what Context the functions described \ within the ", StyleBox["ReferencePages", "SR"], " belong to. Also it lets the ", StyleBox["Documentation Center", "IT"], " know how to list the material on the Installed Add-Ons page that is linked \ to from the front page of the ", StyleBox["Documentation Center", "IT"], "." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417036185454341*^9, 3.417036430969136*^9}, { 3.417036526440156*^9, 3.417036541282936*^9}, 3.417041518898465*^9, 3.4170438996258583`*^9}, CellID->811565572] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Internal Details", "Section", Editable->False, ShowCellBracket->False, ShowGroupOpener->True, CellID->1993613587], Cell[TextData[{ "A very bare bones approach to creating ", StyleBox["Documentation Center", "IT"], " material would make use of the directory structure described above along \ with a hand coded ", StyleBox["PacletInfo.m", "MR"], " file. In ", StyleBox["A", FontWeight->"Bold", FontColor->RGBColor[0.542718, 0.103822, 0.139086]], StyleBox[" ", FontWeight->"Bold"], StyleBox["Work", FontWeight->"Bold", FontColor->RGBColor[0.647059, 0.119585, 0.134844]], StyleBox["Life", FontWeight->"Bold", FontColor->RGBColor[0.692302, 0.471, 0.275517]], StyleBox[" ", FontWeight->"Bold"], StyleBox["Frame", FontWeight->"Bold", FontColor->RGBColor[0.0872663, 0.520363, 0.287388]], StyleBox["Work", FontWeight->"Bold", FontColor->RGBColor[0, 0.300008, 0.4]], " all of this is created automatically, but it is useful to know some of \ this information in case one wants to modify documentation directly as well \ as for potential debugging purposes." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417036132662982*^9, 3.417036156709416*^9}, { 3.417036547987471*^9, 3.417036587971613*^9}, {3.4170367436407213`*^9, 3.417036797198488*^9}, 3.41713013305996*^9, 3.417130247385849*^9}, CellID->1158743001], Cell[TextData[{ "In addition to the ", StyleBox["PacletInfo.m", "MR"], " file the notebooks that will be placed within the ", StyleBox["Guides", "SR"], ", ", StyleBox["Tutorials", "SR"], ", and ", StyleBox["ReferencePages", "SR"], " directories must be modified in a particular way which is described \ below." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.4170366090285378`*^9, 3.417036676756877*^9}, 3.417130133071001*^9}, CellID->924029707], Cell[CellGroupData[{ Cell[TextData[{ StyleBox["PacletInfo.m", "MR"], " file" }], "Subsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->True, TaggingRules:>{"GUIDTag[180655695136350397516236887972834616248]"}, CellChangeTimes->{{3.417036829458043*^9, 3.417036833823184*^9}}, CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1798212562], Cell[TextData[{ "Here is how a ", StyleBox["PacletInfo.m", "MR"], " file might be built. We will describe a simple case where there is one \ Guide page, one Tutorial, and one function Reference page. Assume that " }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417036590754477*^9, 3.4170366014435787`*^9}, { 3.417036701477289*^9, 3.417036705877186*^9}, {3.417036841147045*^9, 3.417036918800508*^9}}, CellID->419662065], Cell[TextData[{ "The Guide page is a notebook called ", StyleBox["TableOfContents.nb", "MR"], ", this will contain links to each of the Tutorial pages." }], "Text", Editable->False, CellDingbat->"\[EmptyDiamond]", ShowCellBracket->False, CellChangeTimes->{{3.417036590754477*^9, 3.4170366014435787`*^9}, { 3.417036701477289*^9, 3.417036705877186*^9}, {3.417036841147045*^9, 3.417036918800508*^9}, 3.417037024149334*^9, {3.417041859610045*^9, 3.417041891592304*^9}}, CellID->1021165303], Cell[TextData[{ "The Tutorial pages comprise two notebooks called ", StyleBox["ATutorial.nb", "MR"], " and ", StyleBox["AnotherTutorial.nb", "MR"] }], "Text", Editable->False, CellDingbat->"\[EmptyDiamond]", ShowCellBracket->False, CellChangeTimes->{{3.417036590754477*^9, 3.4170366014435787`*^9}, { 3.417036701477289*^9, 3.417036705877186*^9}, {3.417036841147045*^9, 3.417036918800508*^9}, {3.417037029558613*^9, 3.4170370377699757`*^9}, { 3.417038740567833*^9, 3.417038760794983*^9}}, CellID->35940697], Cell[TextData[{ "The Reference pages comprise two notebooks called ", StyleBox["AFunction.nb", "MR"], " and ", StyleBox["AnotherFunction.nb", "MR"] }], "Text", Editable->False, CellDingbat->"\[EmptyDiamond]", ShowCellBracket->False, CellChangeTimes->{{3.417036590754477*^9, 3.4170366014435787`*^9}, { 3.417036701477289*^9, 3.417036705877186*^9}, {3.417036841147045*^9, 3.417036918800508*^9}, {3.417037041354515*^9, 3.417037070242503*^9}, { 3.4170387696355143`*^9, 3.417038791211796*^9}}, CellID->612389672], Cell[TextData[{ "Note that, in the case of the Reference page's name, it generally should \ correspond to the function's name itself. So we assume that the package \ that is being documented has a function called ", StyleBox["AFunction", "MR"], "." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.4170370755530376`*^9, 3.417037110882811*^9}, { 3.4170377119875593`*^9, 3.417037730611898*^9}}, CellID->1691580880], Cell[TextData[{ "Now further assume that the package Context is ", StyleBox["MyApplication`MyPackage`", "MR"], ". This assumes that the package's file is called ", StyleBox["MyPackage.m", "MR"], " and is within the directory called ", StyleBox["MyApplication", "SR"], ". The ", StyleBox["PacletInfo.m", "MR"], " file is also in this directory as we mentioned earlier." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417037741622814*^9, 3.417037882894299*^9}, 3.417041387821267*^9}, CellID->2011331174], Cell["So, with all of this, the directory and file structure is", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417037933542287*^9, 3.417037947238995*^9}, { 3.417038113686068*^9, 3.417038124330194*^9}}, CellID->902953991], Cell[BoxData[ FrameBox[ GraphicsBox[ TagBox[ GraphicsComplexBox[{{0., 5.}, {-1., 4.}, {0., 4.}, {1., 4.}, {-1., 3.}, {-3., 2.}, {-3., 1.}, {-1., 2.}, {-2., 1.}, {-1., 1.}, {0., 2.}, { 0., 1.}, {-1., 0.}, {0., 0.}}, { {RGBColor[0.5, 0., 0.], Arrowheads[{{0.023064257028112448`, 0.7}}], ArrowBox[{1, 2}], ArrowBox[{1, 3}], ArrowBox[{1, 4}], ArrowBox[{2, 5}], ArrowBox[{5, 6}], ArrowBox[{5, 8}], ArrowBox[{5, 11}], ArrowBox[{6, 7}], ArrowBox[{8, 9}], ArrowBox[{8, 10}], ArrowBox[{11, 12}], ArrowBox[{12, 13}], ArrowBox[{12, 14}]}, { InsetBox[ FrameBox["\<\"MyApplication\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 1], InsetBox[ FrameBox["\<\"Documentation\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 2], InsetBox[ FrameBox["\<\"MyPackage.m\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 3], InsetBox[ FrameBox["\<\"PacletInfo.m\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 4], InsetBox[ FrameBox["\<\"English\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 5], InsetBox[ FrameBox["\<\"Guides\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 6], InsetBox[ FrameBox["\<\"TableOfContents.nb\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 7], InsetBox[ FrameBox["\<\"Tutorials\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 8], InsetBox[ FrameBox["\<\"ATutorial.nb\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 9], InsetBox[ FrameBox["\<\"AnotherTutorial.nb\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 10], InsetBox[ FrameBox["\<\"ReferencePages\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 11], InsetBox[ FrameBox["\<\"Symbols\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 12], InsetBox[ FrameBox["\<\"AFunction.nb\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 13], InsetBox[ FrameBox["\<\"AnotherFunction.nb\"\>", Background->RGBColor[1, 1, 0.8], FrameStyle->RGBColor[0.94, 0.85, 0.36], StripOnInput->False], 14]}}], Annotation[#, VertexCoordinateRules -> {{0., 5.}, {-1., 4.}, {0., 4.}, {1., 4.}, {-1., 3.}, {-3., 2.}, {-3., 1.}, {-1., 2.}, {-2., 1.}, {-1., 1.}, {0., 2.}, { 0., 1.}, {-1., 0.}, {0., 0.}}]& ], AspectRatio->Automatic, BaseStyle->{FontFamily -> "Helvetica"}, FrameTicks->None, ImageSize->500, PlotRange->All, PlotRangePadding->Scaled[0.1]], StripOnInput->False]], "Graphics", ShowCellBracket->False, CellChangeTimes->{3.417042892776276*^9}, TextAlignment->Center, CellID->1244042883], Cell[TextData[{ "Finally, assume that you want the ", StyleBox["Documentation Center", "IT"], " to list your package by a name that may be different from its Context \ name, say \"My Magnificent Package\". Note that this can contain spaces, but \ other items that we specify should not contain spaces\[LongDash]just to be \ safe. And also assume that you want the root of hyperlinks that lead to it to \ be called FirstApplication. We are just using FirstApplication here to show \ the generality that is possible. It might make much more sense to call it ", StyleBox["MyApplication", "SR"], " or MyPackage for clarity. Indeed you would want this to be a word that, \ when it is typed into the input field of the ", StyleBox["Documentation Center", "IT"], " toolbar, would be the one that you expect to lead you to a table of \ contents. So, the package name might be the best choice." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417038166728672*^9, 3.417038214098987*^9}, { 3.417038482969615*^9, 3.417038564345366*^9}, {3.4170388965954847`*^9, 3.4170389832225227`*^9}, {3.417039501467555*^9, 3.417039576230713*^9}, 3.417043933665843*^9}, CellID->199619429], Cell[TextData[{ "Here is the content of the ", StyleBox["PacletInfo.m", "MR"], " file that would represent this overall circumstance. Note that there is \ also a specification of the packages current Version number. This is not \ mandatory, but it makes sense to include it." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417038221334536*^9, 3.417038250195487*^9}, { 3.417039601459694*^9, 3.4170396331835327`*^9}, 3.41704394127124*^9}, CellID->634286589], Cell["\<\ Paclet[ \tName -> \"My Magnificent Package\", \tVersion -> \"1.1.0\", \tExtensions -> { \t\t{\"Application\", Root -> \"FirstApplication\", Context -> \ \"MyApplication`MyPackage`\"}, \t\t\t{\"Documentation\", \t\t\t Language -> \"English\", \t\t\t LinkBase -> \"FirstApplication\", \t\t\tResources -> { \t\t\t\t\"Guides/TableOfContents\"} \t\t\t}, \t\t\t{\"Documentation\", \t\t\t Language -> \"English\", \t\t\t LinkBase -> \"FirstApplication\", \t\t\tResources -> { \t\t\t\t\"Tutorials/ATutorial\", \t\t\t\t\"Tutorials/AnotherTutorial\" \t\t\t\t} \t\t\t}, \t\t\t{\"Documentation\", \t\t\t Language -> \"English\", \t\t\t LinkBase -> \"FirstApplication\", \t\t\tResources -> { \t\t\t\t\"ReferencePages/Symbols/AFunction\", \t\t\t\t\"ReferencePages/Symbols/AnotherFunction\" \t\t\t} \t} } ]\ \>", "Program", Editable->True, CellFrame->True, ShowCellBracket->False, CellMargins->{{60, 29}, {0, 8}}, TaggingRules:>{"GUIDTag[36538469260668625056776423143815230507]"}, CellChangeTimes->{{3.417038450543178*^9, 3.417038462039351*^9}, { 3.417038612522846*^9, 3.4170387081308413`*^9}, {3.41703886254526*^9, 3.417038874085185*^9}, 3.417038987884515*^9, {3.417039585784651*^9, 3.417039589647313*^9}}, CellTags->{ "DiaryDate[{2008, 4, 13, 1, 20, 49.526384}]", "EphemeralGUID[172765327242001422606226980615579606153]", "CellGUID[295143705471389554471718887170486879399]"}, CellID->345877615] }, Open ]], Cell[CellGroupData[{ Cell["Preparing the Notebooks", "Subsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->True, TaggingRules:>{"GUIDTag[180655695136350397516236887972834616248]"}, CellChangeTimes->{{3.417036829458043*^9, 3.417036833823184*^9}, { 3.417039047954221*^9, 3.417039052751742*^9}}, CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1608718659], Cell[TextData[{ "The simplest way to prepare the notebooks that you will place in the ", StyleBox["Guides", "SR"], ", ", StyleBox["Tutorials", "SR"], ", and ", StyleBox["ReferencePages", "SR"], " directories is to make sure that they have several key properties. In \ general you will want to create these notebooks and then make the changes \ that we describe in the following in duplicates of the notebooks rather than \ the originals." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417039641752789*^9, 3.4170397713054857`*^9}}, CellID->1521735763], Cell["\<\ However the first item can, and probably should, be done to the originals.\ \>", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.4170397846870337`*^9, 3.417039807313663*^9}}, CellID->1430216618], Cell[CellGroupData[{ Cell["First Step", "Subsubsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->False, CellChangeTimes->{{3.417040676773334*^9, 3.417040678886492*^9}}, CellID->488956408], Cell[TextData[{ "For each notebook call its notebook object ", StyleBox["nb", "MR"], ". Then execute the following for each notebook in turn:" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417039812431612*^9, 3.417039849674564*^9}}, CellID->866237855], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{"nb", ",", RowBox[{"System`CreateCellID", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input", CellFrame->True, CellChangeTimes->{{3.4170398512513657`*^9, 3.417039886108205*^9}, { 3.4170401556435843`*^9, 3.417040166912355*^9}}, CellID->1067985972], Cell["\<\ Of course, alternatively, you could execute the following within the notebook \ itself and then delete it:\ \>", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417039924528008*^9, 3.417039966540133*^9}}, CellID->1127019764], Cell[BoxData[ RowBox[{ RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"EvaluationNotebook", "[", "]"}], ",", RowBox[{"System`CreateCellID", "\[Rule]", "True"}]}], "]"}], ";"}]], "Input", CellFrame->True, CellChangeTimes->{{3.41703994296802*^9, 3.417039946001601*^9}, 3.417040169528623*^9}, CellID->1015407008], Cell["\<\ Once this has been done you should select the entire notebook's contents, \ copy it, then select the entire notebook's contents again, and past it back. \ Alternatively, and much more easily, you can do this programmatically as \ follows:\ \>", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417039968626067*^9, 3.4170400446132307`*^9}, { 3.417040198209714*^9, 3.417040205016041*^9}, {3.4170439431753263`*^9, 3.4170439453676033`*^9}}, CellID->2040524394], Cell[BoxData[ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", "nbg", "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"nbg", "=", RowBox[{"NotebookGet", "[", "nb", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"NotebookPut", "[", RowBox[{"nbg", ",", "nb"}], "]"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellFrame->True, CellChangeTimes->{{3.41704004920208*^9, 3.417040092511674*^9}, { 3.4170401280187387`*^9, 3.417040164337761*^9}}, CellID->1927131015], Cell[TextData[{ "Or, you can perform both steps using the following\[LongDash]again assuming \ that you have assigned the notebook's ", StyleBox["NotebookObject", "MR"], " to the parameter ", StyleBox["nb", "MR"], ". Here some more code is inserted to make sure that the notebook in \ question allows for its cells to be modified and so on:" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417040213054427*^9, 3.417040250680685*^9}, { 3.4170403414425497`*^9, 3.417040372378847*^9}, {3.417040640769836*^9, 3.417040642062442*^9}}, CellID->574959792], Cell[BoxData[ RowBox[{ RowBox[{"Module", "[", RowBox[{ RowBox[{"{", RowBox[{"nbg", ",", "editable"}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{ RowBox[{"editable", "=", RowBox[{"Editable", "/.", RowBox[{"Options", "[", RowBox[{"nb", ",", "Editable"}], "]"}]}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SetOptions", "[", RowBox[{"nb", ",", RowBox[{"Editable", "\[Rule]", "True"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SetOptions", "[", RowBox[{"nb", ",", RowBox[{"System`CreateCellID", "\[Rule]", "True"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"nbg", "=", RowBox[{"NotebookGet", "[", "nb", "]"}]}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SelectionMove", "[", RowBox[{"nb", ",", "All", ",", "Notebook"}], "]"}], ";", "\[IndentingNewLine]", RowBox[{"SetOptions", "[", RowBox[{ RowBox[{"NotebookSelection", "[", "nb", "]"}], ",", RowBox[{"Editable", "\[Rule]", "True"}], ",", RowBox[{"Deletable", "\[Rule]", "True"}], ",", RowBox[{"Copyable", "\[Rule]", "True"}]}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"NotebookPut", "[", RowBox[{"nbg", ",", "nb"}], "]"}], ";", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"SetOptions", "[", RowBox[{"nb", ",", RowBox[{"Editable", "\[Rule]", "editable"}]}], "]"}]}]}], "\[IndentingNewLine]", "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellFrame->True, CellChangeTimes->{{3.41704004920208*^9, 3.417040092511674*^9}, { 3.4170401280187387`*^9, 3.417040164337761*^9}, {3.4170402602690287`*^9, 3.417040263035157*^9}, {3.417040301559554*^9, 3.417040333004673*^9}, { 3.417040388253783*^9, 3.417040453663763*^9}, {3.417040517637335*^9, 3.4170405440812798`*^9}, {3.417040580636512*^9, 3.417040646555256*^9}}, CellID->1820296291] }, Open ]], Cell[CellGroupData[{ Cell["Second Step", "Subsubsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->False, TaggingRules:>{"GUIDTag[118870112486447110865418585164841824192]"}, CellChangeTimes->{{3.417040720265873*^9, 3.417040722442267*^9}}, CellTags->{ "DiaryDate[{2008, 4, 13, 1, 58, 39.111264}]", "EphemeralGUID[210922070307389724018971557495804869296]", "CellGUID[129831369265561216313689924859750096925]"}, CellID->1617915834], Cell[TextData[{ "Each of the notebooks should be assigned the ", StyleBox["Wolfram/Reference.nb", "MR"], " style sheet. This is not absolutely necessary, but making this assignment \ will bring the style of your notebooks into alignment with those already in \ the ", StyleBox["Documentation Center", "IT"], ". (See below if you do not wish to do this.)" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417040733538096*^9, 3.417040827345583*^9}}, CellID->873483724], Cell[TextData[{ "An important thing to note is that the ", StyleBox["Wolfram/Reference.nb", "MR"], " style sheet generally does not allow editing of the notebook that it is \ assigned to. So you should only make this change to the final notebook that \ you will be using, after you have made all final edits to it. " }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417040856432014*^9, 3.417040920522027*^9}}, CellID->73048577], Cell["To make this style sheet assignment execute the following ", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.41704083110865*^9, 3.4170408479047318`*^9}}, CellID->442738376], Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"nb", ",", RowBox[{"StyleDefinitions", "\[Rule]", RowBox[{"FrontEnd`FileName", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", "\"\\""}], "]"}]}]}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{{3.4170409292572727`*^9, 3.417040940900275*^9}, { 3.417040979465312*^9, 3.41704098605715*^9}}, CellID->1514271202], Cell[TextData[{ "When you do this you will notice that the notebook automatically acquires \ the ", StyleBox["Documentation Center", "IT"], " toolbar." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.4170410243305397`*^9, 3.41704105467619*^9}}, CellID->1165522259], Cell[TextData[{ "If, on the other hand, you don't want to use the ", StyleBox["Wolfram/Reference.nb", "MR"], " style sheet, you can still use your notebooks with whatever style sheet \ you wish\[LongDash]this way you can retain whatever appearance you want to \ maintain, as well as any custom style definitions you chose to add." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417041060963724*^9, 3.41704118855157*^9}}, CellID->1734262726], Cell[TextData[{ "The one change that you will need to make though is to add the \ Documentation Center Toolbar. To do this you simply execute the following \ for the notebook object ", StyleBox["nb", "MR"], "." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417041198141552*^9, 3.417041244278844*^9}, { 3.417043953919505*^9, 3.417043955887714*^9}}, CellID->2105578798], Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"nb", ",", RowBox[{"DockedCells", "\[Rule]", RowBox[{"FEPrivate`FrontEndResource", "[", RowBox[{"\"\\"", ",", "\"\\""}], "]"}]}]}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{{3.417041255563348*^9, 3.417041318601766*^9}}, CellID->79839073] }, Open ]], Cell[CellGroupData[{ Cell["Third Step", "Subsubsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->False, TaggingRules:>{"GUIDTag[143533477015819697023429953754928864597]"}, CellChangeTimes->{{3.4170419150434113`*^9, 3.417041917024302*^9}, { 3.417046113378891*^9, 3.417046121606011*^9}}, CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->677811783], Cell[TextData[{ "When a notebook is assigned the ", StyleBox["Wolfram/Reference.nb", "MR"], " style sheet it will automatically have headers and footers that, when it \ is printed out, will state that the notebook was printed from the \ Documentation Center and that Wolfram Research owns the copyright to its \ content. Of course this is not the right thing to do for non-Wolfram \ documentation Center pages, so you will probably want to change these as well \ for your various notebooks. The simplest thing to do is to modify all of \ your notebooks' headers and footers to :" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417046126704205*^9, 3.417046192054762*^9}, { 3.417123502640737*^9, 3.41712357395798*^9}, {3.417123850046955*^9, 3.417123857410467*^9}}, CellID->1729373193], Cell[BoxData[ RowBox[{"SetOptions", "[", RowBox[{"nb", ",", "\[IndentingNewLine]", RowBox[{"PageFooters", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"None", ",", "None", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{ RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{ "{", "\"\<\[Copyright] 2008 [[***YOUR NAME OR COMPANY HERE***]]. \ All rights reserved.\>\"", "}"}], "]"}], ",", "\"\\""}], "]"}], ",", "None", ",", "None"}], "}"}]}], "}"}]}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"PageHeaders", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"None", ",", "None", ",", "None"}], "}"}], ",", RowBox[{"{", RowBox[{"None", ",", "None", ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"{", RowBox[{ RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{ "{", "\"\\"", "}"}], "]"}], ",", "\"\\""}], "]"}], ",", RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"{", RowBox[{"CounterBox", "[", "\"\\"", "]"}], "}"}], "]"}], ",", "\"\\""}], "]"}]}], "}"}], "]"}], ",", RowBox[{"CellMargins", "\[Rule]", RowBox[{"{", RowBox[{ RowBox[{"{", RowBox[{"Inherited", ",", RowBox[{"-", "29"}]}], "}"}], ",", RowBox[{"{", RowBox[{"Inherited", ",", "Inherited"}], "}"}]}], "}"}]}]}], "]"}]}], "}"}]}], "}"}]}]}], "\[IndentingNewLine]", "]"}]], "Input", CellFrame->True, CellChangeTimes->{{3.4171236274440813`*^9, 3.417123670466576*^9}, { 3.417123706694004*^9, 3.417123709482977*^9}, {3.417123743392383*^9, 3.417123839248569*^9}}, CellID->1073637145] }, Open ]], Cell[CellGroupData[{ Cell["Fourth Step", "Subsubsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->False, TaggingRules:>{"GUIDTag[143533477015819697023429953754928864597]"}, CellChangeTimes->{{3.4170419150434113`*^9, 3.417041917024302*^9}, { 3.417046113378891*^9, 3.417046114518908*^9}}, CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->990567650], Cell[TextData[{ "The third step is to create and prepare the ", StyleBox["TableOfContents.nb", "MR"], " notebook. This will have two links: one to the first Tutorial, ", StyleBox["ATutorial.nb", "MR"], ", and another to the second Tutorial, ", StyleBox["AnotherTutorial.nb", "MR"], "." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417041926416683*^9, 3.417042010114025*^9}}, CellID->1177262006], Cell["Here is the Cell expression for the first Cell", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417042189682804*^9, 3.4170421998125343`*^9}}, CellID->150307908], Cell[BoxData[ RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"ButtonBox", "[", RowBox[{"\"\\"", ",", RowBox[{"BaseStyle", "\[Rule]", "\"\\""}], ",", RowBox[{ "ButtonData", "\[Rule]", "\"\\""}]}], "]"}], "]"}], ",", "\"\\"", ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}]}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{{3.417042148105544*^9, 3.4170422086934347`*^9}, 3.417042241292778*^9, {3.41704228222853*^9, 3.4170422920965757`*^9}}, CellID->1338427831], Cell["\<\ And here is the Cell expression for the second cell in the table of contents\ \>", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.4170422493992453`*^9, 3.417042270533964*^9}}, CellID->784240884], Cell[BoxData[ RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"ButtonBox", "[", RowBox[{"\"\\"", ",", RowBox[{"BaseStyle", "\[Rule]", "\"\\""}], ",", RowBox[{ "ButtonData", "\[Rule]", "\"\\""}]}], "]"}], "]"}], ",", "\"\\"", ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}]}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{{3.417042148105544*^9, 3.4170422086934347`*^9}, 3.417042241292778*^9, {3.41704229696518*^9, 3.417042303577032*^9}}, CellID->1629395749], Cell[TextData[{ "Note that you can create cells that link directly to particular locations \ in a Tutorial by pointing the link to the particular CellID (this is one of \ the reasons for Step 1 above. Simply go to that cell in the Tutorial and \ examine its Cell expression using the menu command: ", StyleBox["Cell \[RightTriangle] Show Expression", "SR"], ". In the cell expression you will see a Cell Option of the form ", StyleBox["CellID->an integer", "MR"], ". Say that that integer is 123456. Then you can create a cell in the \ Table of Contents that has a link to that cell in the Tutorial with the \ following, for example:" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.4171293717581177`*^9, 3.417129535792396*^9}, { 3.417129597743226*^9, 3.417129770051765*^9}, {3.4171298995147667`*^9, 3.417129902504941*^9}}, CellID->174875117], Cell[BoxData[ RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"ButtonBox", "[", RowBox[{"\"\\"", ",", RowBox[{"BaseStyle", "\[Rule]", "\"\\""}], ",", RowBox[{ "ButtonData", "\[Rule]", "\"\\""}]}], "]"}], "]"}], ",", "\"\\"", ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}]}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{{3.4171297990475197`*^9, 3.417129808839014*^9}}, CellID->1368462323], Cell[TextData[{ "So with these you could create the notebook ", StyleBox["TableOfContents.nb", "MR"], " programmatically as follows" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417042312907638*^9, 3.417042326878275*^9}, { 3.417042437618286*^9, 3.41704244943229*^9}, 3.417043959455399*^9}, CellID->542886899], Cell[BoxData[ RowBox[{ RowBox[{"NotebookPut", "[", "\[IndentingNewLine]", RowBox[{"Notebook", "[", RowBox[{ RowBox[{"{", " ", "\[IndentingNewLine]", RowBox[{ RowBox[{"Cell", "[", RowBox[{ "\"\\"", ",", "\"\\"", ",", RowBox[{"ShowGroupOpener", "\[Rule]", "False"}], ",", RowBox[{"TextAlignment", "\[Rule]", "Center"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"ButtonBox", "[", RowBox[{"\"\\"", ",", RowBox[{"BaseStyle", "\[Rule]", "\"\\""}], ",", RowBox[{ "ButtonData", "\[Rule]", "\"\\""}]}], "]"}], "]"}], ",", "\"\\"", ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"ButtonBox", "[", RowBox[{"\"\\"", ",", RowBox[{"BaseStyle", "\[Rule]", "\"\\""}], ",", RowBox[{ "ButtonData", "\[Rule]", "\"\\""}]}], "]"}], "]"}], ",", "\"\\"", ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}]}], "]"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"Cell", "[", RowBox[{ RowBox[{"TextData", "[", RowBox[{"ButtonBox", "[", RowBox[{"\"\\"", ",", RowBox[{"BaseStyle", "\[Rule]", "\"\\""}], ",", RowBox[{ "ButtonData", "\[Rule]", "\"\\"\ "}]}], "]"}], "]"}], ",", "\"\\"", ",", RowBox[{"ShowGroupOpener", "\[Rule]", "True"}]}], "]"}]}], "}"}], ",", "\[IndentingNewLine]", "\[IndentingNewLine]", RowBox[{"StyleDefinitions", "\[Rule]", RowBox[{"FrontEnd`FileName", "[", RowBox[{ RowBox[{"{", "\"\\"", "}"}], ",", "\"\\""}], "]"}]}]}], "\[IndentingNewLine]", "]"}], "\[IndentingNewLine]", "]"}], ";"}]], "Input", CellFrame->True, CellChangeTimes->{{3.4171298358032827`*^9, 3.417129886009748*^9}}, CellID->1789579037], Cell[TextData[{ "Then once you have created this you should save it as the notebook ", StyleBox["TableOfContents.nb", "MR"], "." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417042650426072*^9, 3.417042674602515*^9}}, CellID->168800748] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell["Placing the Notebooks", "Subsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->True, TaggingRules:>{"GUIDTag[180655695136350397516236887972834616248]"}, CellChangeTimes->{{3.417036829458043*^9, 3.417036833823184*^9}, { 3.417039047954221*^9, 3.417039052751742*^9}, {3.41704297830764*^9, 3.417042979256813*^9}}, CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->727947389], Cell[TextData[{ "The full directory structure of your package (i.e., the full directory \ that we have called ", StyleBox["MyApplication ", "SR"], "in this document) needs to now be placed where ", StyleBox["Mathematica", FontSlant->"Italic"], " can find it. Generally this will be in one of the following locations" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417042982883144*^9, 3.417043024520936*^9}, { 3.4170431676218967`*^9, 3.417043221795845*^9}, {3.417043876123352*^9, 3.4170438764855337`*^9}}, CellID->397429964], Cell[BoxData[ RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{"$UserBaseDirectory", ",", "\"\\""}], "}"}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{{3.417043016444915*^9, 3.417043109131579*^9}}, CellID->931262778], Cell[BoxData[ RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{"$BaseDirectory", ",", "\"\\""}], "}"}], "]"}]], "Input", CellFrame->True, CellChangeTimes->{{3.417043016444915*^9, 3.417043109131579*^9}, { 3.41704315245612*^9, 3.4170431590066357`*^9}}, CellID->1159302381], Cell[TextData[{ "The first location will allow ", StyleBox["Mathematica", FontSlant->"Italic"], " to find the application (and its documentation) for the particular user \ that is logged in. The second location will allow system-wide access for all \ users who have access to that computer independent of their log-in \ credentials." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417043236051313*^9, 3.417043328417741*^9}}, CellID->2117088579], Cell["\<\ The easiest way to place the package in one of these locations is to do it \ programmatically. \ \>", "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417044983066684*^9, 3.417045017030313*^9}, 3.417130210116768*^9}, CellID->2095136887], Cell[TextData[{ "So if the full path to the directory where your application is located is \ called ", StyleBox["fullPathToMyApplication", "MR"], " then you can simply execute the following (this is for the first \ \"Applications\" directory above):" }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417044983066684*^9, 3.417045118783332*^9}}, CellID->676299950], Cell[BoxData[{ RowBox[{ RowBox[{ RowBox[{"Quiet", "@", RowBox[{"DeleteDirectory", "[", RowBox[{ StyleBox[ RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ "$UserBaseDirectory", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}], ShowStringCharacters->True], StyleBox[",", ShowStringCharacters->True], RowBox[{ StyleBox["DeleteContents", ShowStringCharacters->True], StyleBox["\[Rule]", ShowStringCharacters->True], "True"}]}], "]"}]}], ";"}], "\[IndentingNewLine]"}], "\[IndentingNewLine]", RowBox[{"CopyDirectory", "[", RowBox[{"fullPathToMyApplication", ",", RowBox[{"ToFileName", "[", RowBox[{"{", RowBox[{ "$UserBaseDirectory", ",", "\"\\"", ",", "\"\\""}], "}"}], "]"}]}], "]"}]}], "Input", CellFrame->True, CellChangeTimes->{{3.417045122728397*^9, 3.417045212072711*^9}}, CellID->2089799726], Cell[CellGroupData[{ Cell[TextData[{ "Letting ", StyleBox["Mathematica", FontSlant->"Italic"], " Know" }], "Subsubsection", Editable->False, ShowCellBracket->False, ShowGroupOpener->True, TaggingRules:>{"GUIDTag[180655695136350397516236887972834616248]"}, CellChangeTimes->{{3.417036829458043*^9, 3.417036833823184*^9}, { 3.417039047954221*^9, 3.417039052751742*^9}, {3.41704297830764*^9, 3.417042979256813*^9}, {3.417045402344803*^9, 3.417045410203664*^9}}, CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1306270061], Cell[TextData[{ "Once you place the completed application in one of these locations you can \ then either restart ", StyleBox["Mathematica", FontSlant->"Italic"], " or execute the following after closing the ", StyleBox["Documentation Center", "IT"], " if it is open." }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.4170433318154917`*^9, 3.417043386870078*^9}}, CellID->251200110], Cell[BoxData[ RowBox[{"PacletManager`RestartPacletManager", "[", "]"}]], "Input", CellFrame->True, CellChangeTimes->{{3.417043433994094*^9, 3.4170434390760202`*^9}}, CellID->1268486319], Cell[TextData[{ "This will generally reset much of what is needed to make ", StyleBox["Mathematica", FontSlant->"Italic"], " recognize the changes for the purposes of the ", StyleBox["Documentation Center", "IT"], ". However, the foolproof method is, of course, to restart ", StyleBox["Mathematica.", FontSlant->"Italic"] }], "Text", Editable->False, ShowCellBracket->False, CellChangeTimes->{{3.417129193942165*^9, 3.417129297629423*^9}}, CellID->94448901], Cell[" ", "Text", Editable->False, ShowCellBracket->False, CellID->1432083710] }, Open ]] }, Open ]] }, Open ]] }, Editable->True, WindowSize->{787, 749}, WindowMargins->{{433, Automatic}, {Automatic, 103}}, DockedCells->{ Cell[ BoxData[ FormBox[ TagBox[ ButtonBox[ PaneSelectorBox[{False -> InterpretationBox[ RowBox[{ StyleBox[ "\"S\"", FontSlant -> "Italic", FontColor -> RGBColor[0.7, 0, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"c\"", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.2, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.4, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"e\"", FontSlant -> "Italic", FontColor -> RGBColor[0.9, 0.5, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"n\"", FontSlant -> "Italic", FontColor -> RGBColor[1, 0.6, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"t\"", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.6, 0.], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.5, 0.3], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"f\"", FontSlant -> "Italic", FontColor -> RGBColor[0.2, 0.4, 0.3], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.3, 0.5], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"c\"", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.2, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox["\" \"", FontSlant -> "Italic", StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"A\"", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0, 0.7], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"r\"", FontSlant -> "Italic", FontColor -> RGBColor[0.4, 0, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"t\"", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0.1, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"s\"", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.2, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\" LLC\"", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica", StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\" (\[Copyright], 2008)\"", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica", StripOnInput -> False]}], Row[{ Style[ "S", FontSlant -> "Italic", FontColor -> RGBColor[0.7, 0, 0]], Style[ "c", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.2, 0]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.4, 0]], Style[ "e", FontSlant -> "Italic", FontColor -> RGBColor[0.9, 0.5, 0]], Style[ "n", FontSlant -> "Italic", FontColor -> RGBColor[1, 0.6, 0]], Style[ "t", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.6, 0.]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.5, 0.3]], Style[ "f", FontSlant -> "Italic", FontColor -> RGBColor[0.2, 0.4, 0.3]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.3, 0.5]], Style[ "c", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.2, 0.6]], Style[" ", FontSlant -> "Italic"], Style[ "A", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0, 0.7]], Style[ "r", FontSlant -> "Italic", FontColor -> RGBColor[0.4, 0, 0.6]], Style[ "t", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0.1, 0.6]], Style[ "s", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.2, 0.6]], Style[ " LLC", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica"], Style[ " (\[Copyright], 2008)", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica"]}]], True -> StyleBox[ InterpretationBox[ RowBox[{ StyleBox[ "\"S\"", FontSlant -> "Italic", FontColor -> RGBColor[0.7, 0, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"c\"", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.2, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.4, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"e\"", FontSlant -> "Italic", FontColor -> RGBColor[0.9, 0.5, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"n\"", FontSlant -> "Italic", FontColor -> RGBColor[1, 0.6, 0], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"t\"", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.6, 0.], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.5, 0.3], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"f\"", FontSlant -> "Italic", FontColor -> RGBColor[0.2, 0.4, 0.3], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"i\"", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.3, 0.5], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"c\"", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.2, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox["\" \"", FontSlant -> "Italic", StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"A\"", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0, 0.7], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"r\"", FontSlant -> "Italic", FontColor -> RGBColor[0.4, 0, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"t\"", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0.1, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\"s\"", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.2, 0.6], StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\" LLC\"", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica", StripOnInput -> False], "\[InvisibleSpace]", StyleBox[ "\" (\[Copyright], 2008)\"", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica", StripOnInput -> False]}], Row[{ Style[ "S", FontSlant -> "Italic", FontColor -> RGBColor[0.7, 0, 0]], Style[ "c", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.2, 0]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0.8, 0.4, 0]], Style[ "e", FontSlant -> "Italic", FontColor -> RGBColor[0.9, 0.5, 0]], Style[ "n", FontSlant -> "Italic", FontColor -> RGBColor[1, 0.6, 0]], Style[ "t", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.6, 0.]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0.3, 0.5, 0.3]], Style[ "f", FontSlant -> "Italic", FontColor -> RGBColor[0.2, 0.4, 0.3]], Style[ "i", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.3, 0.5]], Style[ "c", FontSlant -> "Italic", FontColor -> RGBColor[0, 0.2, 0.6]], Style[" ", FontSlant -> "Italic"], Style[ "A", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0, 0.7]], Style[ "r", FontSlant -> "Italic", FontColor -> RGBColor[0.4, 0, 0.6]], Style[ "t", FontSlant -> "Italic", FontColor -> RGBColor[0.5, 0.1, 0.6]], Style[ "s", FontSlant -> "Italic", FontColor -> RGBColor[0.6, 0.2, 0.6]], Style[ " LLC", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica"], Style[ " (\[Copyright], 2008)", FontColor -> RGBColor[0, 0.35, 0], FontSize -> 9, FontFamily -> "Helvetica"]}]], "HyperlinkActive"]}, Dynamic[ CurrentValue["MouseOver"]], ImageSize -> Automatic, FrameMargins -> 0, BaselinePosition -> Baseline], BaseStyle -> "Hyperlink", ButtonData -> { URL["http://scientificarts.com/worklife"], None}, ButtonNote -> "http://scientificarts.com/worklife"], Annotation[#, "http://scientificarts.com/worklife", "Hyperlink"]& ], StandardForm]], "Text", TextAlignment -> Center, ShowCellBracket -> False, CellDingbat -> None, CellFrameMargins -> 5, CellMargins -> {{0, 0}, {5, 1}}, FontFamily -> "Times New Roman", CellFrame -> {{0, 0}, {2, 2}}, FontSize -> 35, Background -> RGBColor[0.9333333333333333, 0.9333333333333333, 0.9333333333333333]]}, TaggingRules:>{ "This notebook is Copyright \[Copyright], 2008 Scientific Arts, LLC, all \ rights reserved. It may be redistributed only in full and in its original \ form without modification; and it may not be used for any commercial purpose \ without permission from Scientific Arts. A non-exclusive royalty-free \ license is given to reproduce and use all the of the Mathematica code in this \ notebook for any purpose whatsoever, as well as any of the ideas. No \ guarantee whatsoever is given as to the accuracy or functionality of \ anything presented in this document. Use at your own risk. \n\nEnjoy: I hope \ that it's useful. For further information on A WorkLife FrameWork, please \ click on the Scientific Arts banner above.", "SaveBackupToolbarDockedCell"}, CreateCellID->True, FrontEndVersion->"6.0 for Mac OS X x86 (32-bit) (March 13, 2008)", StyleDefinitions->"Default.nb" ] (* End of Notebook Content *) (* Internal cache information *) (*CellTagsOutline CellTagsIndex->{ "DiaryDate[{2008, 4, 13, 0, 12, 41.115594}]"->{ Cell[5441, 177, 2202, 54, 452, "Graphics", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 12, 41.115594}]", "EphemeralGUID[42813389784420250757880456136848447631]", "CellGUID[80430276481694835362319120721296092751]"}, CellID->208273949]}, "EphemeralGUID[42813389784420250757880456136848447631]"->{ Cell[5441, 177, 2202, 54, 452, "Graphics", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 12, 41.115594}]", "EphemeralGUID[42813389784420250757880456136848447631]", "CellGUID[80430276481694835362319120721296092751]"}, CellID->208273949]}, "CellGUID[80430276481694835362319120721296092751]"->{ Cell[5441, 177, 2202, 54, 452, "Graphics", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 12, 41.115594}]", "EphemeralGUID[42813389784420250757880456136848447631]", "CellGUID[80430276481694835362319120721296092751]"}, CellID->208273949]}, "DiaryDate[{2008, 4, 13, 0, 42, 47.501359}]"->{ Cell[9845, 314, 485, 14, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 42, 47.501359}]", "EphemeralGUID[332395247488929281630951474907650830001]", "CellGUID[42951417094012448381146599396971351441]"}, CellID->1611906811]}, "EphemeralGUID[332395247488929281630951474907650830001]"->{ Cell[9845, 314, 485, 14, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 42, 47.501359}]", "EphemeralGUID[332395247488929281630951474907650830001]", "CellGUID[42951417094012448381146599396971351441]"}, CellID->1611906811]}, "CellGUID[42951417094012448381146599396971351441]"->{ Cell[9845, 314, 485, 14, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 42, 47.501359}]", "EphemeralGUID[332395247488929281630951474907650830001]", "CellGUID[42951417094012448381146599396971351441]"}, CellID->1611906811]}, "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]"->{ Cell[13705, 439, 479, 13, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1798212562], Cell[24375, 723, 498, 11, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1608718659], Cell[45552, 1306, 543, 12, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->727947389], Cell[49430, 1425, 654, 17, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1306270061]}, "EphemeralGUID[176361740331776999843739039682268417365]"->{ Cell[13705, 439, 479, 13, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1798212562], Cell[24375, 723, 498, 11, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1608718659], Cell[45552, 1306, 543, 12, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->727947389], Cell[49430, 1425, 654, 17, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1306270061]}, "CellGUID[239025176700050435742155733489199174370]"->{ Cell[13705, 439, 479, 13, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1798212562], Cell[24375, 723, 498, 11, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1608718659], Cell[45552, 1306, 543, 12, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->727947389], Cell[49430, 1425, 654, 17, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1306270061]}, "DiaryDate[{2008, 4, 13, 1, 20, 49.526384}]"->{ Cell[22788, 670, 1550, 48, 439, "Program", CellTags->{ "DiaryDate[{2008, 4, 13, 1, 20, 49.526384}]", "EphemeralGUID[172765327242001422606226980615579606153]", "CellGUID[295143705471389554471718887170486879399]"}, CellID->345877615]}, "EphemeralGUID[172765327242001422606226980615579606153]"->{ Cell[22788, 670, 1550, 48, 439, "Program", CellTags->{ "DiaryDate[{2008, 4, 13, 1, 20, 49.526384}]", "EphemeralGUID[172765327242001422606226980615579606153]", "CellGUID[295143705471389554471718887170486879399]"}, CellID->345877615]}, "CellGUID[295143705471389554471718887170486879399]"->{ Cell[22788, 670, 1550, 48, 439, "Program", CellTags->{ "DiaryDate[{2008, 4, 13, 1, 20, 49.526384}]", "EphemeralGUID[172765327242001422606226980615579606153]", "CellGUID[295143705471389554471718887170486879399]"}, CellID->345877615]}, "DiaryDate[{2008, 4, 13, 1, 58, 39.111264}]"->{ Cell[30919, 911, 441, 10, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 1, 58, 39.111264}]", "EphemeralGUID[210922070307389724018971557495804869296]", "CellGUID[129831369265561216313689924859750096925]"}, CellID->1617915834]}, "EphemeralGUID[210922070307389724018971557495804869296]"->{ Cell[30919, 911, 441, 10, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 1, 58, 39.111264}]", "EphemeralGUID[210922070307389724018971557495804869296]", "CellGUID[129831369265561216313689924859750096925]"}, CellID->1617915834]}, "CellGUID[129831369265561216313689924859750096925]"->{ Cell[30919, 911, 441, 10, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 1, 58, 39.111264}]", "EphemeralGUID[210922070307389724018971557495804869296]", "CellGUID[129831369265561216313689924859750096925]"}, CellID->1617915834]}, "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]"->{ Cell[34549, 1018, 490, 11, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->677811783], Cell[38061, 1110, 491, 11, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->990567650]}, "EphemeralGUID[147598008489010039404399412378462218749]"->{ Cell[34549, 1018, 490, 11, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->677811783], Cell[38061, 1110, 491, 11, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->990567650]}, "CellGUID[152346254120921335328834174773187628751]"->{ Cell[34549, 1018, 490, 11, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->677811783], Cell[38061, 1110, 491, 11, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->990567650]} } *) (*CellTagsIndex CellTagsIndex->{ {"DiaryDate[{2008, 4, 13, 0, 12, 41.115594}]", 63383, 1759}, {"EphemeralGUID[42813389784420250757880456136848447631]", 63699, 1766}, {"CellGUID[80430276481694835362319120721296092751]", 64010, 1773}, {"DiaryDate[{2008, 4, 13, 0, 42, 47.501359}]", 64315, 1780}, {"EphemeralGUID[332395247488929281630951474907650830001]", 64634, 1787}, {"CellGUID[42951417094012448381146599396971351441]", 64947, 1794}, {"DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", 65254, 1801}, {"EphemeralGUID[176361740331776999843739039682268417365]", 66356, 1826}, {"CellGUID[239025176700050435742155733489199174370]", 67453, 1851}, {"DiaryDate[{2008, 4, 13, 1, 20, 49.526384}]", 68543, 1876}, {"EphemeralGUID[172765327242001422606226980615579606153]", 68862, 1883}, {"CellGUID[295143705471389554471718887170486879399]", 69176, 1890}, {"DiaryDate[{2008, 4, 13, 1, 58, 39.111264}]", 69483, 1897}, {"EphemeralGUID[210922070307389724018971557495804869296]", 69807, 1904}, {"CellGUID[129831369265561216313689924859750096925]", 70126, 1911}, {"DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", 70438, 1918}, {"EphemeralGUID[147598008489010039404399412378462218749]", 71024, 1931}, {"CellGUID[152346254120921335328834174773187628751]", 71605, 1944} } *) (*NotebookFileOutline Notebook[{ Cell[568, 21, 1833, 46, 117, "Text", CellID->2123826423], Cell[2404, 69, 222, 6, 26, "Text", CellID->1486673549], Cell[2629, 77, 420, 13, 26, "Text", CellID->550105198], Cell[CellGroupData[{ Cell[3074, 94, 149, 4, 67, "Section", CellID->1851443488], Cell[3226, 100, 295, 7, 26, "Text", CellID->1393114728], Cell[3524, 109, 574, 15, 41, "Text", CellID->65030255], Cell[4101, 126, 413, 11, 41, "Text", CellID->1943657550], Cell[CellGroupData[{ Cell[4539, 141, 110, 3, 26, "Item", CellID->74658445], Cell[4652, 146, 115, 3, 26, "Item", CellID->1678688333], Cell[4770, 151, 163, 4, 26, "Item", CellID->654035267] }, Open ]], Cell[4948, 158, 314, 11, 26, "Text", CellID->61916233], Cell[5265, 171, 173, 4, 26, "Text", CellID->1549427123], Cell[5441, 177, 2202, 54, 452, "Graphics", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 12, 41.115594}]", "EphemeralGUID[42813389784420250757880456136848447631]", "CellGUID[80430276481694835362319120721296092751]"}, CellID->208273949], Cell[7646, 233, 353, 13, 26, "Text", CellID->272202062], Cell[CellGroupData[{ Cell[8024, 250, 161, 5, 25, "Subsubsection", CellID->759887924], Cell[8188, 257, 295, 7, 26, "Text", CellID->1387564179] }, Open ]], Cell[CellGroupData[{ Cell[8520, 269, 122, 4, 25, "Subsubsection", CellID->351089959], Cell[8645, 275, 282, 7, 26, "Text", CellID->1266233680] }, Open ]], Cell[CellGroupData[{ Cell[8964, 287, 172, 5, 25, "Subsubsection", CellID->1631362604], Cell[9139, 294, 669, 15, 56, "Text", CellID->26517990] }, Open ]], Cell[CellGroupData[{ Cell[9845, 314, 485, 14, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 42, 47.501359}]", "EphemeralGUID[332395247488929281630951474907650830001]", "CellGUID[42951417094012448381146599396971351441]"}, CellID->1611906811], Cell[10333, 330, 1424, 40, 101, "Text", CellID->811565572] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[11806, 376, 123, 4, 67, "Section", CellID->1993613587], Cell[11932, 382, 1257, 35, 56, "Text", CellID->1158743001], Cell[13192, 419, 488, 16, 41, "Text", CellID->924029707], Cell[CellGroupData[{ Cell[13705, 439, 479, 13, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1798212562], Cell[14187, 454, 459, 11, 41, "Text", CellID->419662065], Cell[14649, 467, 504, 12, 26, "Text", CellID->1021165303], Cell[15156, 481, 520, 13, 26, "Text", CellID->35940697], Cell[15679, 496, 522, 13, 26, "Text", CellID->612389672], Cell[16204, 511, 448, 11, 41, "Text", CellID->1691580880], Cell[16655, 524, 547, 15, 41, "Text", CellID->2011331174], Cell[17205, 541, 251, 5, 26, "Text", CellID->902953991], Cell[17459, 548, 3613, 83, 645, "Graphics", CellID->1244042883], Cell[21075, 633, 1213, 22, 101, "Text", CellID->199619429], Cell[22291, 657, 494, 11, 41, "Text", CellID->634286589], Cell[22788, 670, 1550, 48, 439, "Program", CellTags->{ "DiaryDate[{2008, 4, 13, 1, 20, 49.526384}]", "EphemeralGUID[172765327242001422606226980615579606153]", "CellGUID[295143705471389554471718887170486879399]"}, CellID->345877615] }, Open ]], Cell[CellGroupData[{ Cell[24375, 723, 498, 11, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1608718659], Cell[24876, 736, 590, 15, 56, "Text", CellID->1521735763], Cell[25469, 753, 230, 6, 26, "Text", CellID->1430216618], Cell[CellGroupData[{ Cell[25724, 763, 189, 5, 25, "Subsubsection", CellID->488956408], Cell[25916, 770, 287, 8, 26, "Text", CellID->866237855], Cell[26206, 780, 319, 9, 43, "Input", CellID->1067985972], Cell[26528, 791, 260, 7, 26, "Text", CellID->1127019764], Cell[26791, 800, 332, 10, 43, "Input", CellID->1015407008], Cell[27126, 812, 497, 11, 41, "Text", CellID->2040524394], Cell[27626, 825, 579, 16, 119, "Input", CellID->1927131015], Cell[28208, 843, 588, 14, 41, "Text", CellID->574959792], Cell[28799, 859, 2083, 47, 299, "Input", CellID->1820296291] }, Open ]], Cell[CellGroupData[{ Cell[30919, 911, 441, 10, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 1, 58, 39.111264}]", "EphemeralGUID[210922070307389724018971557495804869296]", "CellGUID[129831369265561216313689924859750096925]"}, CellID->1617915834], Cell[31363, 923, 502, 12, 56, "Text", CellID->873483724], Cell[31868, 937, 460, 10, 41, "Text", CellID->73048577], Cell[32331, 949, 204, 4, 26, "Text", CellID->442738376], Cell[32538, 955, 425, 11, 43, "Input", CellID->1514271202], Cell[32966, 968, 297, 9, 26, "Text", CellID->1165522259], Cell[33266, 979, 474, 10, 41, "Text", CellID->1734262726], Cell[33743, 991, 405, 11, 41, "Text", CellID->2105578798], Cell[34151, 1004, 361, 9, 59, "Input", CellID->79839073] }, Open ]], Cell[CellGroupData[{ Cell[34549, 1018, 490, 11, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->677811783], Cell[35042, 1031, 824, 16, 71, "Text", CellID->1729373193], Cell[35869, 1049, 2155, 56, 254, "Input", CellID->1073637145] }, Open ]], Cell[CellGroupData[{ Cell[38061, 1110, 491, 11, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 2, 18, 25.624995}]", "EphemeralGUID[147598008489010039404399412378462218749]", "CellGUID[152346254120921335328834174773187628751]"}, CellID->990567650], Cell[38555, 1123, 435, 12, 41, "Text", CellID->1177262006], Cell[38993, 1137, 193, 4, 26, "Text", CellID->150307908], Cell[39189, 1143, 645, 15, 74, "Input", CellID->1338427831], Cell[39837, 1160, 231, 6, 26, "Text", CellID->784240884], Cell[40071, 1168, 651, 15, 74, "Input", CellID->1629395749], Cell[40725, 1185, 886, 17, 71, "Text", CellID->174875117], Cell[41614, 1204, 589, 14, 74, "Input", CellID->1368462323], Cell[42206, 1220, 347, 9, 26, "Text", CellID->542886899], Cell[42556, 1231, 2672, 59, 344, "Input", CellID->1789579037], Cell[45231, 1292, 272, 8, 26, "Text", CellID->168800748] }, Open ]] }, Open ]], Cell[CellGroupData[{ Cell[45552, 1306, 543, 12, 34, "Subsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->727947389], Cell[46098, 1320, 568, 14, 41, "Text", CellID->397429964], Cell[46669, 1336, 253, 7, 43, "Input", CellID->931262778], Cell[46925, 1345, 300, 8, 43, "Input", CellID->1159302381], Cell[47228, 1355, 481, 12, 41, "Text", CellID->2117088579], Cell[47712, 1369, 276, 8, 26, "Text", CellID->2095136887], Cell[47991, 1379, 394, 10, 41, "Text", CellID->676299950], Cell[48388, 1391, 1017, 30, 104, "Input", CellID->2089799726], Cell[CellGroupData[{ Cell[49430, 1425, 654, 17, 25, "Subsubsection", CellTags->{ "DiaryDate[{2008, 4, 13, 0, 53, 45.534556}]", "EphemeralGUID[176361740331776999843739039682268417365]", "CellGUID[239025176700050435742155733489199174370]"}, CellID->1306270061], Cell[50087, 1444, 418, 12, 41, "Text", CellID->251200110], Cell[50508, 1458, 189, 4, 43, "Input", CellID->1268486319], Cell[50700, 1464, 472, 13, 41, "Text", CellID->94448901], Cell[51175, 1479, 81, 3, 26, "Text", CellID->1432083710] }, Open ]] }, Open ]] }, Open ]] } ] *) (* End of internal cache information *)