NotebookTabbing.nb

(* Content-type: application/vnd.wolfram.mathematica *)

(*** Wolfram Notebook File ***)
(* http://www.wolfram.com/nb *)

(* CreatedBy='Mathematica 11.0' *)

(*CacheID: 234*)
(* Internal cache information:
NotebookFileLineBreakTest
NotebookFileLineBreakTest
NotebookDataPosition[       158,          7]
NotebookDataLength[    122947,       2817]
NotebookOptionsPosition[    114841,       2620]
NotebookOutlinePosition[    115743,       2651]
CellTagsIndexPosition[    115700,       2648]
WindowFrame->Normal*)

(* Beginning of Notebook Content *)
Notebook[{

Cell[CellGroupData[{
Cell["Tabbed Notebooks", "Title",
 CellChangeTimes->{{3.688928656098591*^9, 3.6889286599306517`*^9}}],

Cell["\<\
Useful for creating richer Mathematica interfaces

Can create tabs in a single notebook, cache these tabs, add tabs, etc.

Create an autoupdating package by evaluating the cell below:\
\>", "Text",
 CellChangeTimes->{{3.68892867085317*^9, 3.688928707309936*^9}, {
  3.689039781938801*^9, 
  3.689039826588443*^9}},ExpressionUUID->"7f3aac13-bd63-422e-9d10-\
508a6cf3d2e5"],

Cell[BoxData[
 RowBox[{"SetOptions", "[", 
  RowBox[{
   RowBox[{"EvaluationNotebook", "[", "]"}], ",", 
   RowBox[{"AutoGeneratedPackage", "\[Rule]", "Automatic"}]}], "]"}]], "Input",\

 CellChangeTimes->{{3.6890398271662207`*^9, 
  3.689039853419751*^9}},ExpressionUUID->"d55506d0-01da-4e58-8e43-\
a5dcc7d9cba1"],

Cell["\<\
The package as it stands is somewhat sparse, but nicer interfaces can be \
built from the exposed components. \
\>", "Text",
 CellChangeTimes->{{3.6890399513088903`*^9, 
  3.6890400128432407`*^9}},ExpressionUUID->"8f59ccc7-f5d6-42c3-b342-\
f3a0d3d96bc5"],

Cell["\<\
Note that the package needs to be loaded for any tabbing to work, so you\
\[CloseCurlyQuote]ll need to set an auto-load of some sort to restore state.\
\>", "Text",
 CellChangeTimes->{{3.689044540992732*^9, 
  3.6890445910881643`*^9}},ExpressionUUID->"b3133793-1df1-4122-b170-\
e04c43099afc"],

Cell[CellGroupData[{

Cell["Code", "Section",
 InitializationGroup->True,
 CellChangeTimes->{{3.688930578804886*^9, 3.6889305794757757`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{"BeginPackage", "[", "\"\<NotebookTabbing`\>\"", "]"}], 
  ";"}]], "Input",
 CellGroupingRules->{"SectionGrouping", 40},
 CellChangeTimes->{{3.6889290958576*^9, 3.688929103830974*^9}, {
   3.688929510210627*^9, 3.688929517985293*^9}, 3.688931672613675*^9, {
   3.706914079881809*^9, 
   3.706914083213726*^9}},ExpressionUUID->"aafca72b-8ac5-43bd-93ab-\
d5d28799bde3"],

Cell[CellGroupData[{

Cell["Exposed Interface", "Subsection",
 CellChangeTimes->{{3.688928758928584*^9, 3.6889287643365498`*^9}}],

Cell[CellGroupData[{

Cell["Formatting", "Subsubsection",
 CellChangeTimes->{{3.6890448428855658`*^9, 
  3.689044843988298*^9}},ExpressionUUID->"03fca003-2260-4b92-97e6-\
4fd5587e707f"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"$TabBackgroundActive", "::", "usage"}], "=", 
   "\"\<Active background for tabs\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$TabBackgroundInactive", "::", "usage"}], "=", 
   "\"\<Inactive tab background\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$TabBorderActive", "::", "usage"}], "=", 
   "\"\<Active tab border color\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$TabBorderInactive", "::", "usage"}], "=", 
   "\"\<Active tab border color\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$TabForegroundActive", "::", "usage"}], "=", 
   "\"\<Tab active text color\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$TabForegroundInactive", "::", "usage"}], "=", 
   "\"\<Tab inactive text color\>\""}], ";"}], "\n", 
 RowBox[{
  RowBox[{
   RowBox[{"$TabShape", "::", "usage"}], "=", 
   "\"\<The shape for new tabs\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.688928816158936*^9, 
  3.688928963913216*^9}},ExpressionUUID->"a67e16c5-d276-47b4-bd15-\
f12216bb10d1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Caches", "Subsubsection",
 CellChangeTimes->{{3.689044847548231*^9, 
  3.689044849284155*^9}},ExpressionUUID->"de38c215-6a27-46b5-a512-\
b9912d098f8e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"$NotebookCache", "::", "usage"}], "=", 
   "\"\<The notebook cache\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$ActiveNotebookTab", "::", "usage"}], "=", 
   "\"\<The active tab tag for a notebook\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.688928816158936*^9, 3.6889289188675613`*^9}, {
  3.688928969309828*^9, 3.6889290091293*^9}, {3.688929255841135*^9, 
  3.68892925784935*^9}},ExpressionUUID->"24b0ad41-18c0-4809-b1e9-\
8a030b898ebc"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tab Objects", "Subsubsection",
 CellChangeTimes->{{3.6890448518040447`*^9, 
  3.6890448536842127`*^9}},ExpressionUUID->"6a7b9099-9ce8-443a-bc45-\
034bf303589d"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"TabObject", "::", "usage"}], "=", 
   "\"\<Generates a tab without bindings applied\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TabButton", "::", "usage"}], "=", 
   "\"\<Binds the switch commands to the tab\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SwitchTabs", "::", "usage"}], "=", 
   "\"\<Switches to the given tab\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.6889290140147743`*^9, 3.6889290473519907`*^9}, {
  3.688931657469699*^9, 
  3.688931669637457*^9}},ExpressionUUID->"572e311f-c49b-42aa-9070-\
05bfd79eba27"]
}, Closed]],

Cell[CellGroupData[{

Cell["Docked Cell Interface", "Subsubsection",
 CellChangeTimes->{{3.6890448560121727`*^9, 3.689044857524054*^9}, 
   3.6890449815310993`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"TabDockedCell", "::", "usage"}], "=", 
   "\"\<Configures a tab bar docked cell\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TabDockedCellFileInterface", "::", "usage"}], "=", 
   "\"\<Configures a tab bar to work with opening and saving files\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetDockedTabs", "::", "usage"}], "=", 
   "\"\<Sets up a docked cell of tabs\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.688930744172386*^9, 3.688930784066375*^9}, {
  3.6889310633501053`*^9, 3.6889310774357862`*^9}, {3.689037280165064*^9, 
  3.689037299537125*^9}, {3.6890449637532883`*^9, 
  3.689044975989258*^9}},ExpressionUUID->"bd26c3f0-089b-4aaf-b081-\
0871406bd1aa"]
}, Closed]],

Cell[CellGroupData[{

Cell["Docked Tab Editing", "Subsubsection",
 CellChangeTimes->{3.6890449877226353`*^9}],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"AddDockedTab", "::", "usage"}], "=", 
   "\"\<Adds a tab to the docked cell bar\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"RemoveDockedTab", "::", "usage"}], "=", 
   "\"\<Removes a tab from the docked cell bar\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ChangeTabName", "::", "usage"}], "=", 
   "\"\<Changes the display name of the tab with the specified tag\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"ChangeTabTag", "::", "usage"}], "=", 
   "\"\<Changes the tag value of the tab with the specified tag\>\""}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.688930744172386*^9, 3.688930784066375*^9}, {
  3.6889310633501053`*^9, 3.6889310774357862`*^9}, {3.689037280165064*^9, 
  3.689037299537125*^9}, {3.6890449637532883`*^9, 
  3.689044975989258*^9}},ExpressionUUID->"e954abae-a636-445f-9d33-\
1b7d3a898aa1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Saving and Opening", "Subsubsection",
 CellChangeTimes->{{3.689044859819819*^9, 
  3.689044863091666*^9}},ExpressionUUID->"d8a6c4f2-6c85-41fa-9eac-\
08f41d5473ac"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"TabNotebookCachePages", "::", "usage"}], "=", 
   "\"\<Sticks the tab pages into the NotebookDynamicExpression\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TabOpenFile", "::", "usage"}], "=", 
   "\"\<Opens a file in a new tab\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TabFileSave", "::", "usage"}], "=", 
   "\"\<Saves a given tab to a file. Only does saving as .nb right \
now.\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TabNotebookSave", "::", "usage"}], "=", 
   "\"\<Saves a tab notebook to a folder with a subfolder for the tab files\>\
\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TabNotebookSaveBindings", "::", "usage"}], "=", 
   "\"\<Sets up the save bindings for the notebook\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.688934769218404*^9, 3.688934835428574*^9}, {
  3.688934959717771*^9, 3.688934970443059*^9}, {3.688948557338716*^9, 
  3.688948563920087*^9}, {3.6889486262303333`*^9, 3.688948635677928*^9}, {
  3.6889940279463453`*^9, 3.688994058080883*^9}, {3.68902655296988*^9, 
  3.689026553519404*^9}},ExpressionUUID->"54689bd4-8094-4083-8e80-\
f42e9805bee1"]
}, Closed]],

Cell[CellGroupData[{

Cell["Info", "Subsubsection",
 CellChangeTimes->{{3.689044867435705*^9, 
  3.689044867859775*^9}},ExpressionUUID->"6cdea502-80a1-4bc9-aa03-\
d45e3bfb1cbf"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GetTabName", "::", "usage"}], "=", 
   "\"\<Gets the name assigned to a tab in a given notebook\>\""}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"GetTabInfo", "::", "usage"}], "=", 
   "\"\<Gets the tabs and names for a notebook\>\""}], ";"}]}], "Input",
 CellChangeTimes->{{3.68893883100158*^9, 3.6889388669975367`*^9}, {
  3.6889403280220203`*^9, 3.688940342268125*^9}, {3.6889421987979527`*^9, 
  3.6889422063087873`*^9}, {3.6890449577752533`*^9, 
  3.68904495809863*^9}},ExpressionUUID->"6b58cb31-83a0-4905-9a55-\
634e520f90f3"]
}, Closed]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], ";"}]], "Input",
 CellGroupingRules->{"SectionGrouping", 40},
 CellChangeTimes->{{3.6889290958576*^9, 3.688929103830974*^9}, 
   3.6889316794475307`*^9},ExpressionUUID->"8a08243c-d8e0-4555-8bfd-\
ae67d9b9331e"],

Cell[CellGroupData[{

Cell["Internals", "Subsection",
 CellChangeTimes->{{3.688928775383605*^9, 3.6889287772639008`*^9}}],

Cell[CellGroupData[{

Cell["Formatting", "Subsubsection",
 CellChangeTimes->{{3.688929110703952*^9, 3.6889291116628723`*^9}}],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$TabBackgroundActive", "=", 
   RowBox[{"GrayLevel", "[", ".7", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$TabBorderActive", "=", "Blue"}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$TabForegroundActive", "=", "White"}], ";"}]}], "Input",
 CellChangeTimes->{{3.688906044403702*^9, 3.688906157531601*^9}, {
   3.688906420841319*^9, 3.688906754062174*^9}, {3.688906820122389*^9, 
   3.688906848650116*^9}, {3.688906922435471*^9, 3.688906938937299*^9}, {
   3.68890732737199*^9, 3.688907401904092*^9}, {3.6889078512237062`*^9, 
   3.688907888412752*^9}, {3.688907938076386*^9, 3.688908078309997*^9}, {
   3.6889081247799664`*^9, 3.6889081271548147`*^9}, {3.688908160865611*^9, 
   3.688908224576593*^9}, {3.688908255278911*^9, 3.688908287913292*^9}, {
   3.6889083222499*^9, 3.688908464677362*^9}, {3.688908504638033*^9, 
   3.6889086813129683`*^9}, {3.6889087190414343`*^9, 3.688908796210848*^9}, {
   3.688908840407291*^9, 3.688908885347136*^9}, {3.6889089302764*^9, 
   3.6889089398899117`*^9}, {3.688909025277388*^9, 3.6889090274050694`*^9}, {
   3.688909072844512*^9, 3.688909090930586*^9}, {3.688909221397113*^9, 
   3.688909226609373*^9}, 3.688909683609123*^9, 3.688928957607555*^9, 
   3.688929093643417*^9, {3.688929146714259*^9, 3.6889291674796457`*^9}, {
   3.688933636114615*^9, 3.6889336365673637`*^9}, {3.688933776355111*^9, 
   3.688933788891231*^9}},ExpressionUUID->"8eb4c9fc-5597-48ac-9d78-\
8bbbbdd62007"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"$TabBackgroundInactive", "=", 
   RowBox[{"GrayLevel", "[", ".9", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$TabBorderInactive", "=", 
   RowBox[{"GrayLevel", "[", ".7", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$TabForegroundInactive", "=", 
   RowBox[{"GrayLevel", "[", ".3", "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.688906044403702*^9, 3.688906157531601*^9}, {
   3.688906420841319*^9, 3.688906754062174*^9}, {3.688906820122389*^9, 
   3.688906848650116*^9}, {3.688906922435471*^9, 3.688906938937299*^9}, {
   3.68890732737199*^9, 3.688907401904092*^9}, {3.6889078512237062`*^9, 
   3.688907888412752*^9}, {3.688907938076386*^9, 3.688908078309997*^9}, {
   3.6889081247799664`*^9, 3.6889081271548147`*^9}, {3.688908160865611*^9, 
   3.688908224576593*^9}, {3.688908255278911*^9, 3.688908287913292*^9}, {
   3.6889083222499*^9, 3.688908464677362*^9}, {3.688908504638033*^9, 
   3.6889086813129683`*^9}, {3.6889087190414343`*^9, 3.688908796210848*^9}, {
   3.688908840407291*^9, 3.688908885347136*^9}, {3.6889089302764*^9, 
   3.6889089398899117`*^9}, {3.688909025277388*^9, 3.6889090274050694`*^9}, {
   3.688909072844512*^9, 3.688909090930586*^9}, {3.688909221397113*^9, 
   3.688909226609373*^9}, 3.688909683609123*^9, 3.688928957607555*^9, 
   3.688929093643417*^9, {3.688929146714259*^9, 3.688929190079658*^9}, {
   3.6889318030186996`*^9, 
   3.6889318061775084`*^9}},ExpressionUUID->"e35534a8-c8c7-4edf-ac4f-\
9b948733d4c6"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$TabDockBackgroundColor", "=", 
   RowBox[{"GrayLevel", "[", ".95", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.688933508670433*^9, 
  3.688933565019292*^9}},ExpressionUUID->"4c96e041-7793-4dc4-888a-\
7fd2f7fcdc53"],

Cell[BoxData[
 RowBox[{
  RowBox[{"$TabShape", "=", "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{
       RowBox[{"height", "=", "10"}], ",", 
       RowBox[{"flatspan", "=", "30"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"Polygon", "@", 
      RowBox[{"Join", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Table", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"height", "*", 
             RowBox[{"LogisticSigmoid", "[", "x", "]"}]}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"Range", "[", 
             RowBox[{
              RowBox[{"-", "4"}], ",", "4", ",", ".5"}], "]"}]}], "}"}]}], 
         "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"Table", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{
            RowBox[{"flatspan", "+", "8", "+", "x"}], ",", 
            RowBox[{"height", "*", 
             RowBox[{"LogisticSigmoid", "[", 
              RowBox[{"-", "x"}], "]"}]}]}], "}"}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"{", 
           RowBox[{"x", ",", 
            RowBox[{"Range", "[", 
             RowBox[{
              RowBox[{"-", "4"}], ",", "4", ",", ".5"}], "]"}]}], "}"}]}], 
         "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.688906044403702*^9, 3.688906157531601*^9}, {
   3.688906420841319*^9, 3.688906754062174*^9}, {3.688906820122389*^9, 
   3.688906848650116*^9}, {3.688906922435471*^9, 3.688906938937299*^9}, {
   3.68890732737199*^9, 3.688907401904092*^9}, {3.6889078512237062`*^9, 
   3.688907888412752*^9}, {3.688907938076386*^9, 3.688908078309997*^9}, {
   3.6889081247799664`*^9, 3.6889081271548147`*^9}, {3.688908160865611*^9, 
   3.688908224576593*^9}, {3.688908255278911*^9, 3.688908287913292*^9}, {
   3.6889083222499*^9, 3.688908464677362*^9}, {3.688908504638033*^9, 
   3.6889086813129683`*^9}, {3.6889087190414343`*^9, 3.688908796210848*^9}, {
   3.688908840407291*^9, 3.688908885347136*^9}, {3.6889089302764*^9, 
   3.6889089398899117`*^9}, {3.688909025277388*^9, 3.6889090274050694`*^9}, {
   3.688909072844512*^9, 3.688909090930586*^9}, {3.688909221397113*^9, 
   3.688909226609373*^9}, 3.688909683609123*^9, 3.688928957607555*^9, 
   3.688929093643417*^9, {3.688929146714259*^9, 3.688929193488908*^9}, 
   3.688933785882978*^9},ExpressionUUID->"bbbcc8aa-a803-48af-a48f-\
235fcdebaea8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Caches", "Subsubsection",
 CellChangeTimes->{{3.688929117159666*^9, 3.688929117830559*^9}, {
  3.689044880598686*^9, 
  3.689044881459157*^9}},ExpressionUUID->"ff61949a-60bc-4488-9357-\
cc0a8083fea2"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"Not", "@", 
      RowBox[{"MatchQ", "[", 
       RowBox[{"$NotebookCache", ",", "_Association"}], "]"}]}], ",", 
     RowBox[{"$NotebookCache", "=", 
      RowBox[{"<|", "|>"}]}]}], "]"}], ";", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{"Not", "@", 
      RowBox[{"MatchQ", "[", 
       RowBox[{"$ActiveNotebookTab", ",", "_Association"}], "]"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"$ActiveNotebookTab", "=", 
      RowBox[{"<|", "|>"}]}]}], "\[IndentingNewLine]", "]"}], ";"}], 
  "*)"}]], "Input",
 CellChangeTimes->{{3.688906044403702*^9, 3.688906157531601*^9}, {
   3.688906420841319*^9, 3.688906754062174*^9}, {3.688906820122389*^9, 
   3.688906848650116*^9}, {3.688906922435471*^9, 3.688906938937299*^9}, {
   3.68890732737199*^9, 3.688907401904092*^9}, {3.6889078512237062`*^9, 
   3.688907888412752*^9}, {3.688907938076386*^9, 3.688908078309997*^9}, {
   3.6889081247799664`*^9, 3.6889081271548147`*^9}, {3.688908160865611*^9, 
   3.688908224576593*^9}, {3.688908255278911*^9, 3.688908287913292*^9}, {
   3.6889083222499*^9, 3.688908464677362*^9}, {3.688908504638033*^9, 
   3.6889086813129683`*^9}, {3.6889087190414343`*^9, 3.688908796210848*^9}, {
   3.688908840407291*^9, 3.688908885347136*^9}, {3.6889089302764*^9, 
   3.6889089398899117`*^9}, {3.688909025277388*^9, 3.6889090274050694`*^9}, {
   3.688909072844512*^9, 3.688909090930586*^9}, {3.688909221397113*^9, 
   3.688909226609373*^9}, 3.688909683609123*^9, {3.688928957607555*^9, 
   3.688928960080928*^9}, {3.688929528155015*^9, 3.688929556218192*^9}, {
   3.7069138622813997`*^9, 3.706913873613611*^9}, {3.706913910200634*^9, 
   3.706913956296139*^9}, {3.7069143506839333`*^9, 
   3.7069143556976433`*^9}},ExpressionUUID->"37c7193c-dd4d-4a53-bbc3-\
9cd08ec48b28"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"$NotebookCache", "[", "nb_", "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"CurrentValue", "[", 
    RowBox[{"nb", ",", 
     RowBox[{"{", 
      RowBox[{"TaggingRules", ",", "\"\<NotebookTabs\>\""}], "}"}], ",", 
     RowBox[{"<|", "|>"}]}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"$NotebookCache", "/:", 
  RowBox[{"Set", "[", 
   RowBox[{
    RowBox[{"$NotebookCache", "[", "nb_", "]"}], ",", "assoc_"}], "]"}], ":=",
   "\[IndentingNewLine]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"CurrentValue", "[", 
     RowBox[{"nb", ",", 
      RowBox[{"{", 
       RowBox[{"TaggingRules", ",", "\"\<NotebookTabs\>\""}], "}"}]}], "]"}], 
    "=", "assoc"}], ")"}]}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$NotebookCache", "/:", 
   RowBox[{"SetDelayed", "[", 
    RowBox[{
     RowBox[{"$NotebookCache", "[", "nb_", "]"}], ",", "assoc_"}], "]"}], ":=",
    "\[IndentingNewLine]", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"CurrentValue", "[", 
      RowBox[{"nb", ",", 
       RowBox[{"{", 
        RowBox[{"TaggingRules", ",", "\"\<NotebookTabs\>\""}], "}"}]}], "]"}],
      ":=", "assoc"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$NotebookCache", "/:", 
   RowBox[{"Set", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"$NotebookCache", "[", "nb_", "]"}], "[", "tab_", "]"}], ",", 
     "val_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"Lookup", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{
      RowBox[{"CurrentValue", "[", 
       RowBox[{"nb", ",", 
        RowBox[{"{", 
         RowBox[{"TaggingRules", ",", "\"\<NotebookTabs\>\""}], "}"}]}], 
       "]"}], "=", "\[IndentingNewLine]", 
      RowBox[{"Append", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"CurrentValue", "[", 
         RowBox[{"nb", ",", 
          RowBox[{"{", 
           RowBox[{"TaggingRules", ",", "\"\<NotebookTabs\>\""}], "}"}], ",", 
          
          RowBox[{"<|", "|>"}]}], "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{"tab", "->", "val"}]}], "\[IndentingNewLine]", "]"}]}], ",", 
     "\[IndentingNewLine]", "tab"}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{"$NotebookCache", "/:", 
  RowBox[{"SetDelayed", "[", 
   RowBox[{
    RowBox[{
     RowBox[{"$NotebookCache", "[", "nb_", "]"}], "[", "tab_", "]"}], ",", 
    "val_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{
     RowBox[{"CurrentValue", "[", 
      RowBox[{"nb", ",", 
       RowBox[{"{", 
        RowBox[{"TaggingRules", ",", "\"\<NotebookTabs\>\""}], "}"}]}], "]"}],
      "=", "\[IndentingNewLine]", 
     RowBox[{"Append", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"CurrentValue", "[", 
        RowBox[{"nb", ",", 
         RowBox[{"{", 
          RowBox[{"TaggingRules", ",", "\"\<NotebookTabs\>\""}], "}"}], ",", 
         RowBox[{"<|", "|>"}]}], "]"}], ",", "\[IndentingNewLine]", 
       RowBox[{"tab", ":>", "val"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], 
   ")"}]}]}], "Input",
 TaggingRules->{
  "DocuToolsSettingsInternal" -> {"$CondensedBlogMenus" -> "True"}, 
   "DocuToolsSettings" -> {
    "ShowMetaDataMessage" -> "False", "$ShowPacletVariablesPrompt" -> "True", 
     "$ApplicationName" -> "", "$ApplicationDirectory" -> 
     "/Applications/Mathematica.app/Contents/", "$DocumentationDirectory" -> 
     "/Applications/Mathematica.app/Contents/Documentation/English/", 
     "$LinkBase" -> "Schloop"}, "NotebookTabs" -> Association[]},
 CellChangeTimes->{{3.688906044403702*^9, 3.688906157531601*^9}, {
   3.688906420841319*^9, 3.688906754062174*^9}, {3.688906820122389*^9, 
   3.688906848650116*^9}, {3.688906922435471*^9, 3.688906938937299*^9}, {
   3.68890732737199*^9, 3.688907401904092*^9}, {3.6889078512237062`*^9, 
   3.688907888412752*^9}, {3.688907938076386*^9, 3.688908078309997*^9}, {
   3.6889081247799664`*^9, 3.6889081271548147`*^9}, {3.688908160865611*^9, 
   3.688908224576593*^9}, {3.688908255278911*^9, 3.688908287913292*^9}, {
   3.6889083222499*^9, 3.688908464677362*^9}, {3.688908504638033*^9, 
   3.6889086813129683`*^9}, {3.6889087190414343`*^9, 3.688908796210848*^9}, {
   3.688908840407291*^9, 3.688908885347136*^9}, {3.6889089302764*^9, 
   3.6889089398899117`*^9}, {3.688909025277388*^9, 3.6889090274050694`*^9}, {
   3.688909072844512*^9, 3.688909090930586*^9}, {3.688909221397113*^9, 
   3.688909226609373*^9}, 3.688909683609123*^9, {3.688928957607555*^9, 
   3.688928960080928*^9}, {3.688929528155015*^9, 3.688929556218192*^9}, {
   3.7069138622813997`*^9, 3.706913873613611*^9}, {3.706913910200634*^9, 
   3.7069139998037987`*^9}, {3.706914045459633*^9, 3.706914059966591*^9}, {
   3.7069140927457867`*^9, 3.7069142543414497`*^9}, {3.706914385740963*^9, 
   3.7069144210881443`*^9}, {3.706914614596264*^9, 3.706914624562722*^9}, {
   3.7069150426499968`*^9, 3.7069150538017273`*^9}, {3.706915321263373*^9, 
   3.70691533804066*^9}},ExpressionUUID->"5acb08b0-e3b4-4ece-aad7-\
39423ada9375"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"$ActiveNotebookTab", "[", "nb_", "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"CurrentValue", "[", 
    RowBox[{"nb", ",", 
     RowBox[{"{", 
      RowBox[{"TaggingRules", ",", "\"\<ActiveTab\>\""}], "}"}], ",", 
     RowBox[{"Missing", "[", 
      RowBox[{"\"\<KeyAbsent\>\"", ",", "nb"}], "]"}]}], "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"$ActiveNotebookTab", "/:", 
   RowBox[{"Set", "[", 
    RowBox[{
     RowBox[{"$ActiveNotebookTab", "[", "nb_", "]"}], ",", "tab_"}], "]"}], ":=",
    "\[IndentingNewLine]", 
   RowBox[{"(", 
    RowBox[{
     RowBox[{"CurrentValue", "[", 
      RowBox[{"nb", ",", 
       RowBox[{"{", 
        RowBox[{"TaggingRules", ",", "\"\<ActiveTab\>\""}], "}"}]}], "]"}], 
     "=", "tab"}], ")"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{"$ActiveNotebookTab", "/:", 
  RowBox[{"SetDelayed", "[", 
   RowBox[{
    RowBox[{"$ActiveNotebookTab", "[", "nb_", "]"}], ",", "tab_"}], "]"}], ":=",
   "\[IndentingNewLine]", 
  RowBox[{"(", 
   RowBox[{
    RowBox[{"CurrentValue", "[", 
     RowBox[{"nb", ",", 
      RowBox[{"{", 
       RowBox[{"TaggingRules", ",", "\"\<ActiveTab\>\""}], "}"}]}], "]"}], ":=",
     "tab"}], ")"}]}]}], "Input",
 TaggingRules->{
  "DocuToolsSettingsInternal" -> {"$CondensedBlogMenus" -> "True"}, 
   "DocuToolsSettings" -> {
    "ShowMetaDataMessage" -> "False", "$ShowPacletVariablesPrompt" -> "True", 
     "$ApplicationName" -> "", "$ApplicationDirectory" -> 
     "/Applications/Mathematica.app/Contents/", "$DocumentationDirectory" -> 
     "/Applications/Mathematica.app/Contents/Documentation/English/", 
     "$LinkBase" -> "Schloop"}, "ActiveTab" -> 
   Missing["KeyAbsent", NotebookTabbing`Private`nb]},
 CellChangeTimes->{{3.688906044403702*^9, 3.688906157531601*^9}, {
   3.688906420841319*^9, 3.688906754062174*^9}, {3.688906820122389*^9, 
   3.688906848650116*^9}, {3.688906922435471*^9, 3.688906938937299*^9}, {
   3.68890732737199*^9, 3.688907401904092*^9}, {3.6889078512237062`*^9, 
   3.688907888412752*^9}, {3.688907938076386*^9, 3.688908078309997*^9}, {
   3.6889081247799664`*^9, 3.6889081271548147`*^9}, {3.688908160865611*^9, 
   3.688908224576593*^9}, {3.688908255278911*^9, 3.688908287913292*^9}, {
   3.6889083222499*^9, 3.688908464677362*^9}, {3.688908504638033*^9, 
   3.6889086813129683`*^9}, {3.6889087190414343`*^9, 3.688908796210848*^9}, {
   3.688908840407291*^9, 3.688908885347136*^9}, {3.6889089302764*^9, 
   3.6889089398899117`*^9}, {3.688909025277388*^9, 3.6889090274050694`*^9}, {
   3.688909072844512*^9, 3.688909090930586*^9}, {3.688909221397113*^9, 
   3.688909226609373*^9}, 3.688909683609123*^9, {3.688928957607555*^9, 
   3.688928960080928*^9}, {3.688929528155015*^9, 3.688929556218192*^9}, {
   3.7069138622813997`*^9, 3.706913873613611*^9}, {3.706913910200634*^9, 
   3.7069139998037987`*^9}, {3.706914045459633*^9, 3.706914059966591*^9}, {
   3.706914147702918*^9, 3.706914153205554*^9}, {3.706914461681912*^9, 
   3.706914477694433*^9}, {3.706914758424158*^9, 
   3.7069147841426783`*^9}},ExpressionUUID->"eeb90f8e-9650-4ff2-a321-\
90b8c79353a2"]
}, Closed]],

Cell[CellGroupData[{

Cell["Tab Objects", "Subsubsection",
 CellChangeTimes->{{3.688929120366798*^9, 3.68892912171848*^9}, 
   3.6890448881356163`*^9},ExpressionUUID->"ccefa05f-b851-41b0-bf8a-\
02350de69add"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TabObject", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", "name_", ",", "tag_", ",", "ops___"}], "]"}], ":=",
    "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", ":=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Interpretation", "[", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"DynamicWrapper", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Graphics", "[", 
          RowBox[{
           RowBox[{"{", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"Dynamic", "@", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"$ActiveNotebookTab", "[", "nb", "]"}], "===", 
                  "tag"}], ")"}], ",", "\[IndentingNewLine]", 
                "$TabBackgroundActive", ",", "\[IndentingNewLine]", 
                "$TabBackgroundInactive"}], "\[IndentingNewLine]", "]"}]}], 
             ",", "\[IndentingNewLine]", 
             RowBox[{"Dynamic", "@", "\[IndentingNewLine]", 
              RowBox[{"If", "[", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{
                  RowBox[{"$ActiveNotebookTab", "[", "nb", "]"}], "===", 
                  "tag"}], ")"}], ",", "\[IndentingNewLine]", 
                RowBox[{"EdgeForm", "@", "$TabBorderActive"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"EdgeForm", "@", "$TabBorderInactive"}]}], 
               "\[IndentingNewLine]", "]"}]}], ",", " ", 
             "\[IndentingNewLine]", "$TabShape", ",", 
             RowBox[{"{", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Dynamic", "@", "\[IndentingNewLine]", 
                RowBox[{"If", "[", 
                 RowBox[{
                  RowBox[{"(", 
                   RowBox[{
                    RowBox[{"$ActiveNotebookTab", "[", "nb", "]"}], "===", 
                    "tag"}], ")"}], ",", "\[IndentingNewLine]", 
                  "$TabForegroundActive", ",", "\[IndentingNewLine]", 
                  "$TabForegroundInactive"}], "\[IndentingNewLine]", "]"}]}], 
               ",", "\[IndentingNewLine]", 
               RowBox[{"Inset", "[", "\[IndentingNewLine]", 
                RowBox[{"name", ",", "\[IndentingNewLine]", 
                 RowBox[{"Scaled", "[", 
                  RowBox[{"{", 
                   RowBox[{".2", ",", "0"}], "}"}], "]"}], ",", 
                 "\[IndentingNewLine]", 
                 RowBox[{"{", 
                  RowBox[{"Left", ",", "Bottom"}], "}"}]}], 
                "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
              "}"}]}], "\[IndentingNewLine]", "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"ImageMargins", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"ImagePadding", "\[Rule]", 
            RowBox[{"{", 
             RowBox[{
              RowBox[{"{", 
               RowBox[{"0", ",", "0"}], "}"}], ",", 
              RowBox[{"{", 
               RowBox[{"0", ",", "3"}], "}"}]}], "}"}]}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", 
           "\[IndentingNewLine]", "ops"}], "\[IndentingNewLine]", "]"}], ",", 
         "\[IndentingNewLine]", 
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"DownValues", "[", "SwitchTabs", "]"}], "===", 
            RowBox[{"{", "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
           "CloudGet", "@", "\[IndentingNewLine]", 
            "\"\<https://www.wolframcloud.com/objects/user-affd7b1c-ecb6-4ccc-\
8cc4-4d107e2bf04a/NotebookTabbing.m\>\""}]}], "\[IndentingNewLine]", "]"}]}], 
        "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", "tag"}], 
      "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.688906044403702*^9, 3.688906157531601*^9}, {
   3.688906420841319*^9, 3.688906754062174*^9}, {3.688906820122389*^9, 
   3.688906848650116*^9}, {3.688906922435471*^9, 3.688906938937299*^9}, {
   3.68890732737199*^9, 3.688907401904092*^9}, {3.6889078512237062`*^9, 
   3.688907888412752*^9}, {3.688907938076386*^9, 3.688908078309997*^9}, {
   3.6889081247799664`*^9, 3.6889081271548147`*^9}, {3.688908160865611*^9, 
   3.688908224576593*^9}, {3.688908255278911*^9, 3.688908287913292*^9}, {
   3.6889083222499*^9, 3.688908464677362*^9}, {3.688908504638033*^9, 
   3.6889086813129683`*^9}, {3.6889087190414343`*^9, 3.688908796210848*^9}, {
   3.688908840407291*^9, 3.688908885347136*^9}, {3.6889089302764*^9, 
   3.6889089398899117`*^9}, {3.688909025277388*^9, 3.6889090274050694`*^9}, {
   3.688909072844512*^9, 3.688909090930586*^9}, {3.688909221397113*^9, 
   3.688909226609373*^9}, {3.688909683609123*^9, 3.688909696319149*^9}, {
   3.688912903223069*^9, 3.688912910055813*^9}, 3.6889147822752733`*^9, {
   3.688929201953713*^9, 3.688929227877204*^9}, {3.688929275567067*^9, 
   3.688929351897915*^9}, {3.688930363144928*^9, 3.6889303702253838`*^9}, {
   3.688931931390135*^9, 3.6889320195369377`*^9}, {3.688932396532238*^9, 
   3.688932410970042*^9}, 3.688933056076264*^9, {3.688933355187649*^9, 
   3.688933357306532*^9}, {3.688933402008099*^9, 3.688933410079714*^9}, {
   3.688933481429878*^9, 3.688933497956813*^9}, {3.688933599308853*^9, 
   3.688933600083291*^9}, {3.688933933890985*^9, 3.688933985567589*^9}, {
   3.688934022771093*^9, 3.688934053824814*^9}, 3.688934087607956*^9, 
   3.688934124381672*^9, {3.688934185888838*^9, 3.688934229125374*^9}, {
   3.68893426982076*^9, 3.688934285538612*^9}, {3.68893431658984*^9, 
   3.688934321378107*^9}, {3.706916036896861*^9, 3.706916066982294*^9}, {
   3.7069163692387*^9, 
   3.7069164371561537`*^9}},ExpressionUUID->"09fb9e5e-521e-4260-be12-\
6181bc7a5e5e"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SwitchTabs", "::", "nonb"}], "=", 
   "\"\<NotebookObject `` does not exist\>\""}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SwitchTabs", "[", 
    RowBox[{"notebook_NotebookObject", ",", "tab_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"If", "[", 
    RowBox[{
     RowBox[{
      RowBox[{"$ActiveNotebookTab", "[", "notebook", "]"}], "=!=", "tab"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"(*", 
      RowBox[{"Cache", " ", "current", " ", "state"}], "*)"}], 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Replace", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"$NotebookCache", "[", "notebook", "]"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"_Missing", "\[RuleDelayed]", 
         RowBox[{"Set", "[", 
          RowBox[{
           RowBox[{"$NotebookCache", "[", "notebook", "]"}], ",", 
           RowBox[{"<|", "|>"}]}], "]"}]}]}], "\[IndentingNewLine]", "]"}], 
      ";", "\[IndentingNewLine]", 
      RowBox[{"With", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"nb", "=", 
          RowBox[{"NotebookGet", "@", "notebook"}]}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{"nb", "=!=", "$Failed"}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Replace", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"$ActiveNotebookTab", "[", "notebook", "]"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Except", "[", 
               RowBox[{"Missing", "[", 
                RowBox[{"\"\<KeyAbsent\>\"", ",", "notebook"}], "]"}], "]"}], 
              "\[RuleDelayed]", "\[IndentingNewLine]", 
              RowBox[{"Set", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{
                 RowBox[{"$NotebookCache", "[", "notebook", "]"}], "[", 
                 RowBox[{"$ActiveNotebookTab", "[", "notebook", "]"}], "]"}], 
                ",", "\[IndentingNewLine]", 
                RowBox[{"Compress", "@", 
                 RowBox[{"First", "@", "nb"}]}]}], "\[IndentingNewLine]", 
               "]"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
           "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{"Set", " ", "new", " ", "tab"}], "*)"}], 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"$ActiveNotebookTab", "[", "notebook", "]"}], "=", 
            "tab"}], ";", "\[IndentingNewLine]", 
           RowBox[{"(*", 
            RowBox[{
            "Insert", " ", "cached", " ", "notebook", " ", "values", " ", 
             "into", " ", "notebook"}], "*)"}], "\[IndentingNewLine]", 
           RowBox[{"NotebookPut", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"ReplacePart", "[", 
              RowBox[{
               RowBox[{"NotebookGet", "@", "notebook"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"1", "\[Rule]", "\[IndentingNewLine]", 
                RowBox[{"Uncompress", "@", "\[IndentingNewLine]", 
                 RowBox[{"Replace", "[", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{
                    RowBox[{"$NotebookCache", "[", "notebook", "]"}], "[", 
                    "tab", "]"}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                   "_Missing", "\[RuleDelayed]", "\[IndentingNewLine]", 
                    RowBox[{"Set", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{
                    RowBox[{"$NotebookCache", "[", "notebook", "]"}], "[", 
                    "tab", "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"Compress", "@", 
                    RowBox[{"{", "}"}]}]}], "\[IndentingNewLine]", "]"}]}]}], 
                  "\[IndentingNewLine]", "]"}]}]}]}], "\[IndentingNewLine]", 
              "]"}], ",", "\[IndentingNewLine]", "notebook"}], 
            "\[IndentingNewLine]", "]"}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Message", "[", 
            RowBox[{
             RowBox[{"SwitchTabs", "::", "nonb"}], ",", "notebook"}], "]"}], 
           ";", "$Failed"}]}], "\[IndentingNewLine]", "]"}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", "tab"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SwitchTabs", "[", 
   RowBox[{"Automatic", ",", "tab_"}], "]"}], ":=", "\[IndentingNewLine]", 
  RowBox[{"SwitchTabs", "[", 
   RowBox[{
    RowBox[{"EvaluationNotebook", "[", "]"}], ",", "tab"}], "]"}]}]}], "Input",\

 CellChangeTimes->{{3.6889296010822287`*^9, 3.688930106702627*^9}, {
   3.689034088122929*^9, 3.689034161869041*^9}, {3.706914586126952*^9, 
   3.706914595603977*^9}, {3.7069146789953003`*^9, 3.706914690647192*^9}, {
   3.706914843272457*^9, 3.706914843765579*^9}, {3.7069149055248823`*^9, 
   3.7069149124924*^9}, {3.7069149488033953`*^9, 3.7069149875493793`*^9}, 
   3.706915061396594*^9, {3.706915140731086*^9, 3.706915142175727*^9}, {
   3.706915252441854*^9, 3.7069152539275417`*^9}, {3.7069153707779703`*^9, 
   3.706915370966898*^9}, {3.7069154431990747`*^9, 3.706915452787962*^9}, 
   3.706915495594964*^9, {3.706915534819414*^9, 3.706915568736616*^9}, {
   3.706917183568059*^9, 
   3.706917211059802*^9}},ExpressionUUID->"11941069-acdd-4dab-920e-\
9177d4876535"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TabButton", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", "name_", ",", "tag_", ",", "\[IndentingNewLine]", 
     
     RowBox[{"command_:", "SwitchTabs"}]}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"EventHandler", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"TabObject", "[", 
      RowBox[{"notebook", ",", "name", ",", "tag"}], "]"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
     "\"\<MouseClicked\>\"", "\[RuleDelayed]", "\[IndentingNewLine]", 
      RowBox[{"(", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"If", "[", 
         RowBox[{
          RowBox[{
           RowBox[{"command", "===", "SwitchTabs"}], "&&", 
           RowBox[{
            RowBox[{"DownValues", "[", "SwitchTabs", "]"}], "===", 
            RowBox[{"{", "}"}]}]}], ",", "\[IndentingNewLine]", 
          RowBox[{
          "CloudGet", "@", 
           "\"\<https://www.wolframcloud.com/objects/user-affd7b1c-ecb6-4ccc-\
8cc4-4d107e2bf04a/NotebookTabbing.m\>\""}]}], "\[IndentingNewLine]", "]"}], 
        ";", "\[IndentingNewLine]", 
        RowBox[{"command", "[", 
         RowBox[{"notebook", ",", "tag"}], "]"}]}], "\[IndentingNewLine]", 
       ")"}]}]}], "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.688906044403702*^9, 3.688906157531601*^9}, {
   3.688906420841319*^9, 3.688906754062174*^9}, {3.688906820122389*^9, 
   3.688906848650116*^9}, {3.688906922435471*^9, 3.688906938937299*^9}, {
   3.68890732737199*^9, 3.688907401904092*^9}, {3.6889078512237062`*^9, 
   3.688907888412752*^9}, {3.688907938076386*^9, 3.688908078309997*^9}, {
   3.6889081247799664`*^9, 3.6889081271548147`*^9}, {3.688908160865611*^9, 
   3.688908224576593*^9}, {3.688908255278911*^9, 3.688908287913292*^9}, {
   3.6889083222499*^9, 3.688908464677362*^9}, {3.688908504638033*^9, 
   3.6889086813129683`*^9}, {3.6889087190414343`*^9, 3.688908796210848*^9}, {
   3.688908840407291*^9, 3.688908885347136*^9}, {3.6889089302764*^9, 
   3.6889089398899117`*^9}, {3.688909025277388*^9, 3.6889090274050694`*^9}, {
   3.688909072844512*^9, 3.688909090930586*^9}, {3.688909221397113*^9, 
   3.688909226609373*^9}, {3.688909683609123*^9, 3.688909696319149*^9}, {
   3.688912903223069*^9, 3.688912910055813*^9}, 3.6889147822752733`*^9, {
   3.68892936611023*^9, 3.688929482435615*^9}, {3.6889295906089077`*^9, 
   3.6889295920154037`*^9}, {3.688930117462632*^9, 3.68893012921974*^9}, {
   3.688932027864286*^9, 3.688932041520495*^9}, {3.688932620259129*^9, 
   3.6889326377454777`*^9}, {3.6889338208019247`*^9, 
   3.6889338320875263`*^9}, {3.6889940966589108`*^9, 
   3.6889940998968897`*^9}, {3.68903049834503*^9, 3.68903049938087*^9}, {
   3.706915661647819*^9, 3.706915689916153*^9}, {3.7069158295492907`*^9, 
   3.706915830926193*^9}, 3.706916062767353*^9, {3.706916861375774*^9, 
   3.706916881164927*^9}, {3.706917154224712*^9, 
   3.706917178964876*^9}},ExpressionUUID->"f5b79dde-03c1-43a4-8175-\
61f1cd33f81e"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Docked Cell Interface", "Subsubsection",
 CellChangeTimes->{{3.689044769159647*^9, 3.6890447749693327`*^9}}],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TabDockedCell", "[", 
    RowBox[{"notebook_", ",", 
     RowBox[{"tabSpecs", ":", 
      RowBox[{"{", "__Rule", "}"}]}], ",", "ops___"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"Cell", "[", 
    RowBox[{
     RowBox[{"BoxData", "@", "\[IndentingNewLine]", 
      RowBox[{"TagBox", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"PaneBox", "[", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"RowBox", "@", "\[IndentingNewLine]", 
           RowBox[{"Table", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"ToBoxes", "@", "\[IndentingNewLine]", 
              RowBox[{"TabButton", "[", "\[IndentingNewLine]", 
               RowBox[{"Automatic", ",", "\[IndentingNewLine]", 
                RowBox[{"Sequence", "@@", "t"}]}], "\[IndentingNewLine]", 
               "]"}]}], ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"t", ",", "tabSpecs"}], "}"}]}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{"ImageSize", "\[Rule]", 
           RowBox[{"Scaled", "[", "1", "]"}]}]}], "\[IndentingNewLine]", 
         "]"}], ",", "\[IndentingNewLine]", "\"\<Tabs\>\""}], "]"}]}], ",", 
     "\[IndentingNewLine]", "ops", ",", "\[IndentingNewLine]", 
     RowBox[{"CellMargins", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "0"}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"CellFrame", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", "0"}], "}"}], ",", 
        RowBox[{"{", 
         RowBox[{"2", ",", "0"}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"CellFrameColor", "\[Rule]", 
      RowBox[{"Dynamic", "@", "$TabBorderActive"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"CellFrameMargins", "\[Rule]", 
      RowBox[{"{", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{"0", ",", " ", "0"}], "}"}], ",", " ", 
        RowBox[{"{", 
         RowBox[{
          RowBox[{"-", "2"}], ",", " ", "3"}], "}"}]}], "}"}]}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Background", "\[Rule]", "$TabDockBackgroundColor"}]}], "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.688906044403702*^9, 3.688906157531601*^9}, {
   3.688906420841319*^9, 3.688906754062174*^9}, {3.688906820122389*^9, 
   3.688906848650116*^9}, {3.688906922435471*^9, 3.688906938937299*^9}, {
   3.68890732737199*^9, 3.688907401904092*^9}, {3.6889078512237062`*^9, 
   3.688907888412752*^9}, {3.688907938076386*^9, 3.688908078309997*^9}, {
   3.6889081247799664`*^9, 3.6889081271548147`*^9}, {3.688908160865611*^9, 
   3.688908224576593*^9}, {3.688908255278911*^9, 3.688908287913292*^9}, {
   3.6889083222499*^9, 3.688908464677362*^9}, {3.688908504638033*^9, 
   3.6889086813129683`*^9}, {3.6889087190414343`*^9, 3.688908796210848*^9}, {
   3.688908840407291*^9, 3.688908885347136*^9}, {3.6889089302764*^9, 
   3.6889089398899117`*^9}, {3.688909025277388*^9, 3.6889090274050694`*^9}, {
   3.688909072844512*^9, 3.688909090930586*^9}, {3.688909221397113*^9, 
   3.688909226609373*^9}, {3.688909683609123*^9, 3.688909689775017*^9}, {
   3.688930134622135*^9, 3.688930211394806*^9}, 3.688930436426531*^9, {
   3.6889309534628057`*^9, 3.688930954653612*^9}, {3.6889318553307953`*^9, 
   3.688931857193462*^9}, {3.688932046187688*^9, 3.688932095991626*^9}, {
   3.6889327350020647`*^9, 3.688932743601384*^9}, {3.68893278480081*^9, 
   3.6889327911736183`*^9}, {3.6889335357010202`*^9, 3.688933539834824*^9}, 
   3.6889335717267513`*^9, {3.689027032640716*^9, 3.689027043964941*^9}, {
   3.689027170802809*^9, 3.689027179134632*^9}, {3.689028668454699*^9, 
   3.6890286844320717`*^9}, {3.689035155457247*^9, 3.689035155618937*^9}, {
   3.689037909328692*^9, 3.689037910254221*^9}, {3.689037978236082*^9, 
   3.68903798045837*^9}, {3.6890380190360727`*^9, 3.68903802084914*^9}, {
   3.689038379880188*^9, 3.6890384071195374`*^9}, {3.6890387405781507`*^9, 
   3.6890387657763863`*^9}, {3.689038796479389*^9, 3.689038861995042*^9}, {
   3.6890408950618353`*^9, 3.689040895811233*^9}, {3.689040964821364*^9, 
   3.689040967883864*^9}, 3.706916566219396*^9, {3.706917269456216*^9, 
   3.7069173034570217`*^9}},ExpressionUUID->"1c42b783-0346-4a36-8dfb-\
864561fdffab"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"saveIcon", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJylll9IZFUcx+/8cRj/h4Y4/l2TCM1QC6SHSnpMxD8rPrQvi0smQeOCGy4Z
WIgyM65lD/7HgsCHetNeknqwzNxyiE0d161GakMhkCAV3Zm5d+bX93fnHL2N
bnRnf/DxzD2e8/ue3+/87jm37Nr1y69bFUW54cSfyx03X+7p6Xi77TE8tHff
eKOru/O1V7rf6uzq7Hn+mg2dl4AL2BXTZhHtU2AEfA/ugnlwBVgTxpk1m2jr
QRjQBXwBnEIrGR2r0PlR+LsDOkArmDLousV4s2mSOSgFD0AMPJ0wZkFofCWe
bYo5kxqXDBruBD+PK/E8PmPStzSLgOMPKPH1so4fvA9aQG6Svo0m1/wi2FPO
7/df4GOQY1hTMibncV46wWcgmKA1L8ZYz81+uE8jRh1p6eAl8CXQBGUJOjzH
Jp5lXSf6kc/si/eD69Yl+mQOn1TO9unZi2Kx2+0PwwIcVqs+vEw5y8mHIgbW
zwAeEcPfytn+G3M7rcTf0a/Bd2AN/AS2wD0lnvNNi8VSrMTrSOr8IcbeN/R5
EuJTMO/N7OxsGhwcJJ/PR16vV28lHo+HhoeHqaqqiuff5thg72Leb4AM3Afv
gMT8sg2VlJSoRBQCmoGoEb/fr7Ivm812C3OeA6+C98AHoF+Jnyl8VlaBQoMW
m6eoqIgODw9VGEUiEeLWSCjE8kQDAwNRp9NJKSkphHhYLwwegBDgZ+6Pwv8R
qDfkzMsaJycnHAvFYjGKRqPndFibLRgMRjc3N6NbW1sUCAROQZ/erq+vq6Wl
pZzX69Z4oaQAn1GD/T+iRSoqKrh+u0Qt2hI12DY2NmhqaopmZmZoenr6FO6b
nJy8kImJCb0dHx/X8vLyyOFwzCBv1cifU2ocHx/rGru7u5Sbm3vR/ZMU0PpB
avCes8bIyIj+v7m5OVpdXaXl5WVaWVkxxdLSEs+LjY2NSa1/5aqyspLKy8sf
dU906+/v5xqMsEZBQQHXk7q9va3rDg0N6XvPNatpmim4Brk9OjrS8vPzYzk5
OZ+wBn6zrNrX16dr7Ozs6OtIpsZYg+t/YWGBzy7Kysp6gTWKi4v1PS8sLKS6
urqk/bNxDDy9paVFP1/S09MdrMF7sLi4qLLu7Oysvg5ej1mT69rb21Phm5Cn
YfGO+Kqrq6m9vV1FndH+/r4+jnXMmlzX6Ogov4MaNOT3g4/fB5xDKsdniNe0
8bqAVltbG0M9fQuf7J8D8YkaVufn55POk1zX2tqaxudzWlraVRGDHfnSNVwu
l3pwcHBag5xbM4TDYT0Ut9vN6/0zNTU1S94jOFO80I319vbywRq7gOh/YLxv
NOiE8K7xXtwS94f8HtXvzpqaGmpubqaGhgZqbGz8XzQ1NVFrayvxPra1tVF9
fb08O54Q96BeVBkZGTeh/Tvu25/xeyczMzOI9lfU3i/4fQ+/74IA2EDfHeBH
rm+Db5T4ty1/B3wOPgUf4Zy9ItZ++k3yDwt0TNs=
      "], {{0, 32}, {25, 0}}, {0, 
      255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    DefaultBaseStyle->"ImageGraphics",
    ImageSizeRaw->{25, 32},
    PlotRange->{{0, 25}, {0, 32}}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"openIcon", "=", 
   GraphicsBox[
    TagBox[RasterBox[CompressedData["
1:eJyllm1IZFUYx++8aON7aJjvtuuHVjPUD0kfAtlvJeLLDgMVxKJkUqQLbris
hB/EYWbcCQt8x4hAqA990L4kBFlmVg5Ujpq77QwU6RJJhYoyM/fOPP2fO+eO
t2m2ZmYf+M25c849z/855zznnHuh59qVV4ySJF234OdK943Lg4PdN60P449t
4PqrfQO9Lz838EZvX+/g0z0mVD4GSoFZStmMonwCvAU2wV3wObgJiuPeS9f/
C0ABlIB74Mk0dfh9gxSNPyj8/QqGgA24wamovw1yxPuGFDRMonxP+PlD6Ont
JRAW7T2iLtnl0GLhxfaDCHhb1D0k/Gi+PKL9o7jY/s+0eb0gnc+HVdRrvs0i
lndE+3dJ+o7XqBcxso/LcXFqWiOi/Q7IEHXJrImmcQmEhI9nE2iwL7to35WS
zyuD7t0i8Lvw0S/aMkWbFjOvA4/1s7j4DCIeo3Seo/cb35oUzZ1vdHWanzLw
p4jBoRtfzMxm8/0wAIvRqLp6Xjrfb9PgUTGWS0Kf63l/1sbpPwLmwCdS9Ez4
SoqeET9I0XnlPcU56zUYDDUoP9Dp/CVF1zeoq3tT+I3lLfq9XlBQQGNjY+Ry
ucjpdKqlhsPhoPHxcaqvr+f+Gzw2mBv97gEShIEPvAZirnXTZK+qqpKJKAAU
HWE9Ho9HZn8mk+kW+jwFuoELTEnRnG0Dj0vR86pcp8XmqKiooOPjYxlGoVCI
uNQTCLA80ejoaNhisVBGRgZhPKwXAGei5P9cr8D/CWjRzZmTNc7OzngsFIlE
KBwO/0uHtdl8Pl94e3s7vLu7Szs7OzFQp5ZbW1tydXU1z+s1YzRROK9deg32
/4AWqq2t5T3SJ3LRFK/B5vV6aXZ2lubn52lubi4G183MzCRkenpaLaemppTi
4mLKzMycx7w1YP4smsbp6amqsb+/T0VFRYnun7SA1reaBq85a7jdbrVtcXGR
NjY2aG1tjdbX11NidXWV+0UmJyc1rX/MVV1dHdXU1Dzomqg2MjLCOcjnqKus
rIzzSd7b21N17Xa7uvacs4qipATnIJcnJydKSUlJpLCw8H3WwDPLysPDw6qG
3+9X40gnx1iD8395eVn9rsjPz3+GNSorK9U1Ly8vp+bm5rT9s/EYuHtnZyef
Mb/k5OTwmeniNVhZWZFZd2FhQY2D40nVtLgODg5k+CbM07jYI66Ghgay2Wwy
8owODw/V91gnVdPimpiY4D2oQEP71nLxfsA5JPP4dONN2TguoDQ1NUWQT1/C
p3aHuEQOy0tLS2nPkxbX5uYmn4mUnZ19VYzBjPlSNUpLS+Wjo6NYDvLcpkIw
GFSH0t/fz/H+lpWVla/dIzhTnNCNDA0N8cEaSUD4P9DfNwp0AthrvBa3xP2h
3ef8/U2NjY3U0dFBra2t1NbWlhTt7e3U1dVFvI5Wq5VaWlq0s+OipPumyc3N
vQHtn3Hf3sGzPy8vz4fyLnLvJzzfxvOPYAd4Ufc98GCuvwZfoPunUvQ74GPw
IXgX5+yLIvbY99XfExVSWA==
      "], {{0, 32}, {25, 0}}, {0, 255},
      ColorFunction->RGBColor],
     BoxForm`ImageTag["Byte", ColorSpace -> "RGB", Interleaving -> True],
     Selectable->False],
    DefaultBaseStyle->"ImageGraphics",
    ImageSizeRaw->{25, 32},
    PlotRange->{{0, 25}, {0, 32}}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.689042261300933*^9, 3.68904226856389*^9}, {
  3.689042795586941*^9, 3.689042832898069*^9}, {3.689043848139637*^9, 
  3.689043868398147*^9}, {3.6890442585407877`*^9, 
  3.689044269742112*^9}},ExpressionUUID->"7728a898-dfc8-49c6-a623-\
8c61a7dfdc87"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TabDockedCellFileInterface", "[", 
    RowBox[{"notebook_", ",", 
     RowBox[{"tabSpecs", ":", 
      RowBox[{"{", "__Rule", "}"}]}], ",", "ops___"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"c", "=", 
       RowBox[{"TabDockedCell", "[", 
        RowBox[{"notebook", ",", "tabSpecs", ",", "ops"}], "]"}]}], "}"}], 
     ",", "\[IndentingNewLine]", 
     RowBox[{"Replace", "[", "\[IndentingNewLine]", 
      RowBox[{"c", ",", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Cell", "[", 
         RowBox[{
          RowBox[{"BoxData", "[", 
           RowBox[{"TagBox", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"PaneBox", "[", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"RowBox", "@", 
                RowBox[{
                "{", "\[IndentingNewLine]", "tabs___", "\[IndentingNewLine]", 
                 "}"}]}], ",", "\[IndentingNewLine]", "po___"}], "]"}], ",", 
             "\[IndentingNewLine]", "\"\<Tabs\>\""}], "\[IndentingNewLine]", 
            "]"}], "]"}], ",", "\[IndentingNewLine]", "co___"}], "]"}], 
        "\[RuleDelayed]", "\[IndentingNewLine]", 
        RowBox[{"With", "[", 
         RowBox[{
          RowBox[{"{", 
           RowBox[{"addition", "=", 
            RowBox[{"Row", "[", 
             RowBox[{
              RowBox[{"{", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Button", "[", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"Mouseover", "[", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Framed", "[", 
                    RowBox[{"saveIcon", ",", "\[IndentingNewLine]", 
                    RowBox[{"RoundingRadius", "\[Rule]", "5"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FrameStyle", "\[Rule]", "None"}]}], 
                    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                    
                    RowBox[{"Framed", "[", 
                    RowBox[{"saveIcon", ",", "\[IndentingNewLine]", 
                    RowBox[{"Background", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", ".98", "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"RoundingRadius", "\[Rule]", "5"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FrameStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", ".7", "]"}]}]}], 
                    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
                   "]"}], ",", "\[IndentingNewLine]", 
                  RowBox[{"TabFileSave", "[", 
                   RowBox[{"notebook", ",", 
                    RowBox[{"$ActiveNotebookTab", "[", "notebook", "]"}]}], 
                   "]"}], ",", "\[IndentingNewLine]", 
                  RowBox[{"Method", "\[Rule]", "\"\<Queued\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Appearance", "\[Rule]", "\"\<Frameless\>\""}]}], 
                 "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                RowBox[{"Button", "[", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"Mouseover", "[", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"Framed", "[", 
                    RowBox[{"openIcon", ",", "\[IndentingNewLine]", 
                    RowBox[{"RoundingRadius", "\[Rule]", "5"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FrameStyle", "\[Rule]", "None"}]}], 
                    "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                    
                    RowBox[{"Framed", "[", 
                    RowBox[{"openIcon", ",", "\[IndentingNewLine]", 
                    RowBox[{"Background", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", ".98", "]"}]}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"RoundingRadius", "\[Rule]", "5"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"FrameStyle", "\[Rule]", 
                    RowBox[{"GrayLevel", "[", ".7", "]"}]}]}], 
                    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
                   "]"}], ",", "\[IndentingNewLine]", 
                  RowBox[{"TabOpenFile", "[", "notebook", "]"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Method", "\[Rule]", "\"\<Queued\>\""}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{"Appearance", "\[Rule]", "\"\<Frameless\>\""}]}], 
                 "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                RowBox[{"Spacer", "@", "5"}]}], "}"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"(*", 
               RowBox[{
                RowBox[{"Frame", "\[Rule]", "True"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"FrameStyle", "\[Rule]", 
                 RowBox[{"GrayLevel", "[", ".85", "]"}]}], ","}], "*)"}], 
              "\[IndentingNewLine]", 
              RowBox[{"BaselinePosition", "\[Rule]", 
               RowBox[{"Scaled", "[", ".2", "]"}]}]}], "\[IndentingNewLine]", 
             "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
          RowBox[{"Cell", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"BoxData", "[", "\[IndentingNewLine]", 
             RowBox[{"RowBox", "@", 
              RowBox[{"{", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"TagBox", "[", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"PaneBox", "[", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"RowBox", "@", 
                    RowBox[{
                    "{", "\[IndentingNewLine]", "tabs", "\[IndentingNewLine]",
                     "}"}]}], ",", "\[IndentingNewLine]", 
                    RowBox[{"ImageSize", "\[Rule]", 
                    RowBox[{"With", "[", 
                    RowBox[{
                    RowBox[{"{", 
                    RowBox[{"w", "=", 
                    RowBox[{"First", "@", 
                    RowBox[{"ImageDimensions", "@", 
                    RowBox[{"Rasterize", "@", "addition"}]}]}]}], "}"}], ",", 
                    "\[IndentingNewLine]", 
                    RowBox[{"Dynamic", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"(", 
                    RowBox[{"First", "@", 
                    RowBox[{"(", 
                    RowBox[{"WindowSize", "/.", 
                    RowBox[{"AbsoluteOptions", "[", 
                    RowBox[{
                    RowBox[{"EvaluationNotebook", "[", "]"}], ",", 
                    "WindowSize"}], "]"}]}], ")"}]}], ")"}], "-", "w"}], 
                    "]"}]}], "\[IndentingNewLine]", "]"}]}], ",", 
                    "\[IndentingNewLine]", "po"}], "\[IndentingNewLine]", 
                   "]"}], ",", "\[IndentingNewLine]", "\"\<Tabs\>\""}], 
                 "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
                RowBox[{"ToBoxes", "@", "addition"}]}], "\[IndentingNewLine]",
                "}"}]}], "\[IndentingNewLine]", "]"}], ",", 
            "\[IndentingNewLine]", "co"}], "]"}]}], "\[IndentingNewLine]", 
         "]"}]}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
    "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.689036830643347*^9, 3.6890369283241043`*^9}, {
   3.689037124648814*^9, 3.689037268978509*^9}, {3.689037329707704*^9, 
   3.689037360680209*^9}, {3.689037557426119*^9, 3.6890376483252583`*^9}, {
   3.689037681893127*^9, 3.689037764049389*^9}, {3.689037844996161*^9, 
   3.689037862680458*^9}, 3.689037897465114*^9, {3.689038007834344*^9, 
   3.689038078455615*^9}, {3.689038110307434*^9, 3.689038126530732*^9}, {
   3.6890381814407587`*^9, 3.689038282276725*^9}, {3.689038487587385*^9, 
   3.689038546776396*^9}, {3.689038592964032*^9, 3.689038652110765*^9}, {
   3.68903887550178*^9, 3.689038964934664*^9}, {3.6890390038094463`*^9, 
   3.689039005311996*^9}, {3.689039106654085*^9, 3.689039317886726*^9}, {
   3.689040834399831*^9, 3.689040888476101*^9}, {3.689041899081407*^9, 
   3.689041930452697*^9}, {3.68904224247472*^9, 3.689042245992579*^9}, {
   3.689042807786125*^9, 3.689042862097196*^9}, {3.689043875090671*^9, 
   3.6890438814087687`*^9}},ExpressionUUID->"9ef5664e-f595-4d3f-bae5-\
9998d603c3bb"],

Cell[BoxData[
 RowBox[{
  RowBox[{"tabRow", "[", 
   RowBox[{"tabNum_Integer", ",", 
    RowBox[{"topMost", ":", "_Integer", ":", "1"}]}], "]"}], ":=", 
  "\[IndentingNewLine]", 
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"tab", "=", 
      RowBox[{"Graphics", "[", 
       RowBox[{
        RowBox[{"{", 
         RowBox[{
          RowBox[{"EdgeForm", "@", "$TabBorderInactive"}], ",", 
          "$TabBackgroundInactive", ",", "$TabShape"}], "}"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"Method", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{"\"\<ShrinkWrap\>\"", "\[Rule]", "True"}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"ImageSize", "\[Rule]", "100"}], ",", "\[IndentingNewLine]", 
        RowBox[{"ImagePadding", "\[Rule]", "None"}]}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"With", "[", 
     RowBox[{
      RowBox[{"{", 
       RowBox[{"baseSize", "=", 
        RowBox[{"ImageDimensions", "@", "tab"}]}], "}"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Graphics", "[", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Table", "[", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Inset", "[", "\[IndentingNewLine]", 
            RowBox[{"tab", ",", "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{
               RowBox[{".85", "*", 
                RowBox[{"(", 
                 RowBox[{"tabNum", "-", "i"}], ")"}], "*", 
                RowBox[{"First", "@", "baseSize"}]}], ",", "0"}], "}"}], ",", 
             "\[IndentingNewLine]", 
             RowBox[{"{", 
              RowBox[{"Left", ",", "Center"}], "}"}], ",", 
             "\[IndentingNewLine]", "baseSize"}], "\[IndentingNewLine]", 
            "]"}], ",", "\[IndentingNewLine]", 
           RowBox[{"{", 
            RowBox[{"i", ",", "tabNum"}], "}"}]}], "]"}], "//", 
         RowBox[{
          RowBox[{"Append", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Delete", "[", 
             RowBox[{"#", ",", 
              RowBox[{"-", "topMost"}]}], "]"}], ",", "\[IndentingNewLine]", 
            RowBox[{"#", "[", 
             RowBox[{"[", 
              RowBox[{"-", "topMost"}], "]"}], "]"}]}], "\[IndentingNewLine]",
            "]"}], "&"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"ImageSize", "\[Rule]", 
         RowBox[{"{", 
          RowBox[{
           RowBox[{".85", "*", "tabNum", "*", 
            RowBox[{"First", "@", "baseSize"}]}], ",", 
           RowBox[{"Last", "@", "baseSize"}]}], "}"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"PlotRangePadding", "\[Rule]", "None"}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{"ImageMargins", "\[Rule]", "None"}]}], "\[IndentingNewLine]", 
       "]"}]}], "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
   "]"}]}]], "Input",
 CellChangeTimes->{{3.689035282142288*^9, 3.689035376014264*^9}, {
   3.689035511144383*^9, 3.689035537879835*^9}, {3.689035587188932*^9, 
   3.689035639922823*^9}, 3.689035696757928*^9, {3.6890357282314587`*^9, 
   3.689035782557506*^9}, {3.689035813411137*^9, 3.689036088901148*^9}, {
   3.689036137328594*^9, 3.689036227880274*^9}, {3.689036260901659*^9, 
   3.689036472002594*^9}, {3.6890365709221687`*^9, 
   3.689036616430523*^9}},ExpressionUUID->"71b0ee4e-c499-48af-ba89-\
32041d2abf18"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"SetDockedTabs", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"tabSpecs", ":", 
      RowBox[{"{", "__Rule", "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"cellFunction", ":", 
      RowBox[{"(", 
       RowBox[{"DockedCells", "\[Rule]", "_"}], ")"}], ":", 
      RowBox[{"(", 
       RowBox[{"DockedCells", "->", "TabDockedCell"}], ")"}]}], ",", 
     "\[IndentingNewLine]", "ops___"}], "\[IndentingNewLine]", "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", "=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"SetOptions", "[", 
       RowBox[{"nb", ",", "\[IndentingNewLine]", 
        RowBox[{"DockedCells", "\[Rule]", 
         RowBox[{
          RowBox[{"(", 
           RowBox[{"Last", "@", "cellFunction"}], ")"}], "[", 
          RowBox[{"notebook", ",", "tabSpecs", ",", "ops"}], "]"}]}]}], 
       "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"$ActiveNotebookTab", "[", "nb", "]"}], "=", 
       RowBox[{"Last", "@", 
        RowBox[{"First", "@", "tabSpecs"}]}]}], ";", "\[IndentingNewLine]", 
      RowBox[{"If", "[", 
       RowBox[{
        RowBox[{"MatchQ", "[", 
         RowBox[{
          RowBox[{"$NotebookCache", "[", "nb", "]"}], ",", "_Missing"}], 
         "]"}], ",", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"$NotebookCache", "[", "nb", "]"}], "=", 
         RowBox[{"<|", "|>"}]}]}], "\[IndentingNewLine]", "]"}], ";", 
      "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{
        RowBox[{"$NotebookCache", "[", "nb", "]"}], "[", 
        RowBox[{"Last", "@", 
         RowBox[{"First", "@", "tabSpecs"}]}], "]"}], "=", 
       RowBox[{"First", "@", 
        RowBox[{"NotebookGet", "@", "nb"}]}]}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"SetDockedTabs", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", "t_Rule", ",", "\[IndentingNewLine]", "ops___"}], 
    "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"SetDockedTabs", "[", 
    RowBox[{"notebook", ",", 
     RowBox[{"{", "t", "}"}], ",", "ops"}], "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.688930961757716*^9, 3.6889310169621973`*^9}, {
   3.688931051700459*^9, 3.688931058092486*^9}, 3.688931109716033*^9, 
   3.688931645695793*^9, {3.6889317199469748`*^9, 3.688931745896021*^9}, {
   3.6889321019928837`*^9, 3.688932103230489*^9}, {3.688932300681959*^9, 
   3.688932300880644*^9}, {3.6890312071174593`*^9, 3.6890312239069967`*^9}, {
   3.689031273618649*^9, 3.6890312741821947`*^9}, {3.689032073188064*^9, 
   3.689032092055976*^9}, {3.689034001423587*^9, 3.689034018916141*^9}, {
   3.689037397432946*^9, 3.6890375054916*^9}, {3.706916545220079*^9, 
   3.7069165528263083`*^9}, {3.706916954586288*^9, 3.7069169579033527`*^9}, {
   3.706917291664564*^9, 
   3.706917293734939*^9}},ExpressionUUID->"b1a2418c-24c3-4d0e-89b8-\
138e3a2fcd00"]
}, Open  ]],

Cell[CellGroupData[{

Cell["Docked Tab Editing", "Subsubsection",
 CellChangeTimes->{{3.688935068751013*^9, 3.688935070487355*^9}, {
  3.689044897045596*^9, 
  3.6890449036343803`*^9}},ExpressionUUID->"17ae829e-4884-47e5-a84a-\
1f09d739d957"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"AddDockedTab", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", "name_", ",", "tag_", ",", "\[IndentingNewLine]", 
     
     RowBox[{"cachedNotebook", ":", "_List", ":", 
      RowBox[{"{", "}"}]}]}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", "=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"b", "=", 
         RowBox[{"TabButton", "[", 
          RowBox[{"notebook", ",", "name", ",", "tag"}], "]"}]}], "}"}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{"Replace", "[", 
         RowBox[{
          RowBox[{"DockedCells", "/.", 
           RowBox[{"Options", "[", 
            RowBox[{"nb", ",", "DockedCells"}], "]"}]}], ",", 
          "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"Cell", "[", "\[IndentingNewLine]", 
            RowBox[{"stuff_", ",", "\[IndentingNewLine]", "ops___"}], 
            "\[IndentingNewLine]", "]"}], "\[RuleDelayed]", 
           RowBox[{"(", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"SetOptions", "[", 
              RowBox[{"nb", ",", "\[IndentingNewLine]", 
               RowBox[{"DockedCells", "\[Rule]", 
                RowBox[{"Cell", "[", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"stuff", "/.", 
                   RowBox[{
                    RowBox[{"TagBox", "[", 
                    RowBox[{
                    RowBox[{"PaneBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"RowBox", "@", "tabs_List"}], ",", 
                    "\[IndentingNewLine]", "pops___"}], "]"}], ",", 
                    "\[IndentingNewLine]", "\"\<Tabs\>\""}], "]"}], 
                    "\[RuleDelayed]", "\[IndentingNewLine]", 
                    RowBox[{"TagBox", "[", 
                    RowBox[{
                    RowBox[{"PaneBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"RowBox", "@", 
                    RowBox[{"Append", "[", 
                    RowBox[{"tabs", ",", 
                    RowBox[{"ToBoxes", "@", "b"}]}], "]"}]}], ",", 
                    "\[IndentingNewLine]", "pops"}], "]"}], ",", 
                    "\[IndentingNewLine]", "\"\<Tabs\>\""}], "]"}]}]}], ",", 
                  "\[IndentingNewLine]", "ops"}], "]"}]}]}], 
              "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"$NotebookCache", "[", "nb", "]"}], "[", "tag", "]"}], 
              "=", "cachedNotebook"}], ";"}], "\[IndentingNewLine]", 
            ")"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"AddDockedTab", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"name_", "->", "tag_"}], ",", "\[IndentingNewLine]", 
     RowBox[{"cachedNotebook", ":", "_List", ":", 
      RowBox[{"{", "}"}]}]}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"AddDockedTab", "[", 
    RowBox[{"notebook", ",", "name", ",", "tag", ",", "cachedNotebook"}], 
    "]"}]}], ";"}]}], "Input",
 CellChangeTimes->{{3.688930231259405*^9, 3.688930336158985*^9}, {
  3.688930382865452*^9, 3.6889305277492733`*^9}, {3.6889328401999197`*^9, 
  3.688932850563921*^9}, {3.688932963292242*^9, 3.688932986993864*^9}, {
  3.6890403059720697`*^9, 3.689040340748539*^9}, {3.6890407686636143`*^9, 
  3.689040772061805*^9}, {3.689041182398815*^9, 3.6890412462360487`*^9}, {
  3.689041403874879*^9, 3.689041405271474*^9}, {3.68904156679101*^9, 
  3.6890415736026077`*^9}},ExpressionUUID->"c1b7191b-f3bd-45fa-a6cc-\
5d09b1092599"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"RemoveDockedTab", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", "tag_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", "=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Replace", "[", 
       RowBox[{
        RowBox[{"DockedCells", "/.", 
         RowBox[{"Options", "[", 
          RowBox[{"nb", ",", "DockedCells"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Cell", "[", "\[IndentingNewLine]", 
          RowBox[{"stuff_", ",", "\[IndentingNewLine]", "ops___"}], 
          "\[IndentingNewLine]", "]"}], "\[RuleDelayed]", 
         RowBox[{"(", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{"SetOptions", "[", 
            RowBox[{"nb", ",", "\[IndentingNewLine]", 
             RowBox[{"DockedCells", "\[Rule]", 
              RowBox[{"Cell", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"stuff", "/.", 
                 RowBox[{
                  RowBox[{"TagBox", "[", 
                   RowBox[{
                    RowBox[{"PaneBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"RowBox", "@", "tabs_List"}], ",", 
                    "\[IndentingNewLine]", "pops___"}], "]"}], ",", 
                    "\[IndentingNewLine]", "\"\<Tabs\>\""}], "]"}], 
                  "\[RuleDelayed]", "\[IndentingNewLine]", 
                  RowBox[{"TagBox", "[", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"PaneBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"RowBox", "@", "\[IndentingNewLine]", 
                    RowBox[{"DeleteCases", "[", 
                    RowBox[{"tabs", ",", "\[IndentingNewLine]", 
                    RowBox[{"TagBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"InterpretationBox", "[", 
                    RowBox[{"_", ",", "tag"}], "]"}], ",", 
                    "\[IndentingNewLine]", "_"}], "\[IndentingNewLine]", 
                    "]"}]}], "\[IndentingNewLine]", "]"}]}], ",", 
                    "\[IndentingNewLine]", "pops"}], "]"}], ",", 
                    "\[IndentingNewLine]", "\"\<Tabs\>\""}], "]"}]}]}], ",", 
                "\[IndentingNewLine]", "ops"}], "]"}]}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"$NotebookCache", "[", "nb", "]"}], "[", "tag", "]"}], 
            "=."}], ";"}], "\[IndentingNewLine]", ")"}]}]}], 
       "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.688930628796165*^9, 3.688930733532387*^9}, {
   3.688932846063096*^9, 3.688932854006281*^9}, {3.6889350879294863`*^9, 
   3.68893509144191*^9}, 3.688938538452759*^9, 3.688938578891597*^9, {
   3.689040978158079*^9, 
   3.689041108288322*^9}},ExpressionUUID->"c12b4897-67d4-4d8f-83e9-\
06735c2d0e08"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeTabName", "[", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", "tag_", ",", "newName_"}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", "=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Replace", "[", 
       RowBox[{
        RowBox[{"DockedCells", "/.", 
         RowBox[{"Options", "[", 
          RowBox[{"nb", ",", "DockedCells"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Cell", "[", "\[IndentingNewLine]", 
          RowBox[{"stuff_", ",", "\[IndentingNewLine]", "ops___"}], 
          "\[IndentingNewLine]", "]"}], "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"SetOptions", "[", 
            RowBox[{"nb", ",", "\[IndentingNewLine]", 
             RowBox[{"DockedCells", "\[Rule]", 
              RowBox[{"Cell", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"stuff", "/.", 
                 RowBox[{
                  RowBox[{"InterpretationBox", "[", 
                   RowBox[{"o_", ",", "tag"}], "]"}], "\[RuleDelayed]", 
                  "\[IndentingNewLine]", 
                  RowBox[{"With", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"eval", "=", "\[IndentingNewLine]", 
                    RowBox[{"o", "/.", 
                    RowBox[{
                    RowBox[{"InsetBox", "[", 
                    RowBox[{"_", ",", "blah___"}], "]"}], "\[RuleDelayed]", 
                    RowBox[{"InsetBox", "[", 
                    RowBox[{"newName", ",", "blah"}], "]"}]}]}]}], "}"}], ",",
                     "\[IndentingNewLine]", 
                    RowBox[{"InterpretationBox", "[", 
                    RowBox[{"eval", ",", "tag"}], "]"}]}], 
                   "\[IndentingNewLine]", "]"}]}]}], ",", 
                "\[IndentingNewLine]", "ops"}], "]"}]}]}], 
            "\[IndentingNewLine]", "]"}], ";"}], "\[IndentingNewLine]", 
          ")"}]}]}], "\[IndentingNewLine]", "]"}], ";"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6889350793830643`*^9, 3.6889351195753736`*^9}, {
   3.688938279766347*^9, 3.6889383138083773`*^9}, {3.68893849992171*^9, 
   3.68893850305401*^9}, {3.688938535595029*^9, 3.6889386799146852`*^9}, 
   3.688939022318577*^9, {3.6889395717394876`*^9, 3.688939573609771*^9}, {
   3.688940190563861*^9, 3.688940210123448*^9}, {3.6889404037416067`*^9, 
   3.688940413450873*^9}, 3.688940562206531*^9, {3.688940675010571*^9, 
   3.688940709384055*^9}, {3.68904038741615*^9, 3.689040408917923*^9}, {
   3.689040536578961*^9, 
   3.689040544208426*^9}},ExpressionUUID->"be4615b0-1f54-4d8a-b6d8-\
cf109b16d14c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"ChangeTabTag", "[", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "tag_", ",", "newTag_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", "=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Replace", "[", 
       RowBox[{
        RowBox[{"DockedCells", "/.", 
         RowBox[{"Options", "[", 
          RowBox[{"nb", ",", "DockedCells"}], "]"}]}], ",", 
        "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"Cell", "[", "\[IndentingNewLine]", 
          RowBox[{"stuff_", ",", "\[IndentingNewLine]", "ops___"}], 
          "\[IndentingNewLine]", "]"}], "\[RuleDelayed]", 
         RowBox[{"(", 
          RowBox[{
           RowBox[{"SetOptions", "[", 
            RowBox[{"nb", ",", "\[IndentingNewLine]", 
             RowBox[{"DockedCells", "\[Rule]", 
              RowBox[{"Cell", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"stuff", "/.", 
                 RowBox[{
                  RowBox[{"TagBox", "[", 
                   RowBox[{
                    RowBox[{"InterpretationBox", "[", 
                    RowBox[{"o_", ",", "tag"}], "]"}], ",", "h_"}], "]"}], 
                  "\[RuleDelayed]", "\[IndentingNewLine]", 
                  RowBox[{"With", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"d", "=", 
                    RowBox[{"(", 
                    RowBox[{"o", "/.", 
                    RowBox[{
                    RowBox[{"HoldPattern", "[", 
                    RowBox[{"e_", "===", "tag"}], "]"}], "\[RuleDelayed]", 
                    RowBox[{"(", 
                    RowBox[{"e", "===", "newTag"}], ")"}]}]}], ")"}]}], "}"}],
                     ",", "\[IndentingNewLine]", 
                    RowBox[{"TagBox", "[", "\[IndentingNewLine]", 
                    RowBox[{
                    RowBox[{"InterpretationBox", "[", "\[IndentingNewLine]", 
                    RowBox[{"d", ",", "\[IndentingNewLine]", "newTag"}], 
                    "]"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"h", "/.", 
                    RowBox[{
                    RowBox[{"HoldPattern", "[", 
                    RowBox[{"SwitchTabs", "[", 
                    RowBox[{"n_", ",", "tag"}], "]"}], "]"}], 
                    "\[RuleDelayed]", 
                    RowBox[{"SwitchTabs", "[", 
                    RowBox[{"n", ",", "newTag"}], "]"}]}]}]}], 
                    "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
                   "]"}]}]}], ",", "\[IndentingNewLine]", "ops"}], "]"}]}]}], 
            "\[IndentingNewLine]", "]"}], ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"$NotebookCache", "[", "nb", "]"}], "[", "newTag", "]"}],
             "=", 
            RowBox[{
             RowBox[{"$NotebookCache", "[", "nb", "]"}], "[", "tag", "]"}]}], 
           ";", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{
             RowBox[{"$NotebookCache", "[", "nb", "]"}], "[", "tag", "]"}], 
            "=."}], ";"}], "\[IndentingNewLine]", ")"}]}]}], 
       "\[IndentingNewLine]", "]"}], ";"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6889350793830643`*^9, 3.6889351195753736`*^9}, 
   3.688938279766347*^9, {3.688938906903678*^9, 3.688938911072196*^9}, {
   3.688938941704892*^9, 3.688939041382225*^9}, {3.6889412922268667`*^9, 
   3.688941292442527*^9}, {3.688941526113966*^9, 3.688941584099226*^9}, {
   3.688941618932097*^9, 3.688941636975533*^9}, 3.689026807741815*^9, {
   3.689040416424062*^9, 3.689040442813355*^9}, {3.689040495580208*^9, 
   3.6890405296987143`*^9}},ExpressionUUID->"bb57e10f-0799-4679-a3e6-\
a5853dbab2d8"]
}, Closed]],

Cell[CellGroupData[{

Cell["Saving Opening", "Subsubsection",
 CellChangeTimes->{{3.688930214872254*^9, 3.688930217552389*^9}, {
  3.6889941729968767`*^9, 3.688994173833392*^9}, {3.689044910491713*^9, 
  3.689044910970748*^9}},ExpressionUUID->"6c30197a-9ffe-4b17-a71d-\
b9da162b0a5c"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TabNotebookCachePages", "[", "notebook_", "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", "\[IndentingNewLine]", 
      RowBox[{
       RowBox[{"n", "=", 
        RowBox[{"Extract", "[", 
         RowBox[{
          RowBox[{"First", "@", 
           RowBox[{"Options", "[", 
            RowBox[{"notebook", ",", "NotebookDynamicExpression"}], "]"}]}], 
          ",", "2", ",", "Hold"}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"cache", "=", 
        RowBox[{"Replace", "[", 
         RowBox[{
          RowBox[{"$NotebookCache", "[", "notebook", "]"}], ",", 
          RowBox[{"_Missing", "\[Rule]", 
           RowBox[{"<|", "|>"}]}]}], "]"}]}], ",", "\[IndentingNewLine]", 
       RowBox[{"active", "=", 
        RowBox[{"Replace", "[", 
         RowBox[{
          RowBox[{"$ActiveNotebookTab", "[", "notebook", "]"}], ",", 
          RowBox[{"_Missing", "\[Rule]", "None"}]}], "]"}]}], ",", 
       "\[IndentingNewLine]", 
       RowBox[{"dc", "=", 
        RowBox[{"DockedCells", "/.", 
         RowBox[{"Options", "[", 
          RowBox[{"notebook", ",", "DockedCells"}], "]"}]}]}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"nbDynamicExpr", "=", "\[IndentingNewLine]", 
         RowBox[{"Replace", "[", 
          RowBox[{"n", ",", 
           RowBox[{
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"Hold", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"If", "[", 
                  RowBox[{
                   RowBox[{"MatchQ", "[", 
                    RowBox[{
                    RowBox[{"$NotebookCache", "[", "_", "]"}], ",", 
                    "_Missing"}], "]"}], ",", "__"}], "]"}], "|", 
                 "\[IndentingNewLine]", "Null", "|", "\[IndentingNewLine]", 
                 "None"}], "]"}], "\[RuleDelayed]", "\[IndentingNewLine]", 
               RowBox[{"(", 
                RowBox[{
                "NotebookDynamicExpression", "\[RuleDelayed]", "$$cmd"}], 
                ")"}]}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Hold", "[", 
                RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"If", "[", 
                   RowBox[{
                    RowBox[{"MatchQ", "[", 
                    RowBox[{
                    RowBox[{"$NotebookCache", "[", "_", "]"}], ",", 
                    "_Missing"}], "]"}], ",", "__"}], "]"}], ",", 
                  "\[IndentingNewLine]", "a__"}], "\[IndentingNewLine]", 
                 "]"}], "\[IndentingNewLine]", "]"}], ":>", 
               RowBox[{"(", "\[IndentingNewLine]", 
                RowBox[{
                "NotebookDynamicExpression", "\[RuleDelayed]", 
                 "\[IndentingNewLine]", 
                 RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", 
                  RowBox[{"$$cmd", ",", "\[IndentingNewLine]", "a"}], 
                  "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
                ")"}]}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"Hold", "[", "a_", "]"}], "\[RuleDelayed]", 
               RowBox[{"(", "\[IndentingNewLine]", 
                RowBox[{
                "NotebookDynamicExpression", "\[RuleDelayed]", 
                 "\[IndentingNewLine]", 
                 RowBox[{"CompoundExpression", "[", "\[IndentingNewLine]", 
                  RowBox[{"$$cmd", ",", "\[IndentingNewLine]", "a"}], 
                  "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", 
                ")"}]}]}], "\[IndentingNewLine]", "}"}], "/.", 
            RowBox[{"$$cmd", "\[RuleDelayed]", "\[IndentingNewLine]", 
             RowBox[{"With", "[", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"nb", "=", 
                 RowBox[{"EvaluationNotebook", "[", "]"}]}], "}"}], ",", 
               "\[IndentingNewLine]", 
               RowBox[{"If", "[", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"MatchQ", "[", 
                  RowBox[{
                   RowBox[{"$NotebookCache", "[", "nb", "]"}], ",", 
                   "_Missing"}], "]"}], ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"$NotebookCache", "[", "nb", "]"}], "=", "cache"}],
                   ";", "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"$ActiveNotebookTab", "[", "nb", "]"}], "=", 
                   "active"}], ";", "\[IndentingNewLine]", 
                  RowBox[{"With", "[", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{"d", "=", 
                    RowBox[{"(", 
                    RowBox[{"dc", "/.", 
                    RowBox[{"_NotebookObject", "\[Rule]", "nb"}]}], ")"}]}], 
                    "}"}], ",", "\[IndentingNewLine]", 
                    RowBox[{"SetOptions", "[", 
                    RowBox[{"nb", ",", 
                    RowBox[{"DockedCells", "\[Rule]", "d"}]}], "]"}]}], 
                   "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", 
                "]"}]}], "\[IndentingNewLine]", "]"}]}]}]}], 
          "\[IndentingNewLine]", "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"SetOptions", "[", 
        RowBox[{"notebook", ",", "nbDynamicExpr"}], "]"}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]], "Input",
 CellChangeTimes->{{3.6889941765066566`*^9, 3.688994228855852*^9}, {
   3.688994307629278*^9, 3.6889945675786533`*^9}, {3.689010315769107*^9, 
   3.689010317222232*^9}, {3.68902578809995*^9, 3.689025795856061*^9}, {
   3.689025877780781*^9, 3.6890259280883837`*^9}, {3.689026105407009*^9, 
   3.689026176168851*^9}, {3.6890262426517763`*^9, 3.689026273797481*^9}, {
   3.689026304836514*^9, 3.68902639495662*^9}, {3.689026450212768*^9, 
   3.689026526823621*^9}, {3.6890287763171673`*^9, 3.6890287773363743`*^9}, {
   3.6890307622322617`*^9, 3.689030773148953*^9}, {3.6890309501686363`*^9, 
   3.6890310013422203`*^9}, {3.689031040897862*^9, 3.689031043919196*^9}, {
   3.6890310961345673`*^9, 3.689031096729856*^9}, {3.689031139432808*^9, 
   3.689031170188903*^9}, {3.68903141555331*^9, 3.6890314317881327`*^9}, {
   3.689031508106892*^9, 3.6890315596133013`*^9}, {3.6890317387291183`*^9, 
   3.6890317393513193`*^9}, 3.68903219480945*^9, {3.689032254077551*^9, 
   3.6890322889934196`*^9}, {3.689034319884274*^9, 3.689034320601246*^9}, {
   3.6890344597920837`*^9, 
   3.68903448673565*^9}},ExpressionUUID->"77c52e87-ffd0-4daf-9b66-\
7ccd2f57a445"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"TabOpenFile", "[", 
    RowBox[{"notebook_", ",", 
     RowBox[{"file_String", "?", "FileExistsQ"}]}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"stuff", "=", "\[IndentingNewLine]", 
       RowBox[{"Switch", "[", 
        RowBox[{"file", ",", "\[IndentingNewLine]", 
         RowBox[{
          RowBox[{"_", "?", "StringMatchQ"}], "[", 
          RowBox[{"__", "~~", 
           RowBox[{"\"\<.m\>\"", "|", "\"\<.wl\>\""}]}], "]"}], ",", 
         RowBox[{"{", 
          RowBox[{"Cell", "[", 
           RowBox[{
            RowBox[{"BoxData", "@", 
             RowBox[{"Import", "[", 
              RowBox[{"file", ",", "\"\<Text\>\""}], "]"}]}], ",", 
            "\"\<Input\>\""}], "]"}], "}"}], ",", "\[IndentingNewLine]", 
         RowBox[{"(*", 
          RowBox[{
           RowBox[{
            RowBox[{"_", "?", "StringMatchQ"}], "[", 
            RowBox[{"__", "~~", 
             RowBox[{"\"\<.m\>\"", "|", "\"\<.wl\>\""}]}], "]"}], ","}], 
          "*)"}], "\[IndentingNewLine]", "_", ",", 
         RowBox[{"Import", "[", "file", "]"}]}], "\[IndentingNewLine]", 
        "]"}]}], "}"}], ",", "\[IndentingNewLine]", 
     RowBox[{"AddDockedTab", "[", 
      RowBox[{"notebook", ",", "\[IndentingNewLine]", 
       RowBox[{"FileNameTake", "@", "file"}], ",", "\[IndentingNewLine]", 
       "file", ",", "\[IndentingNewLine]", 
       RowBox[{"Replace", "[", "\[IndentingNewLine]", 
        RowBox[{"stuff", ",", 
         RowBox[{"{", "\[IndentingNewLine]", 
          RowBox[{
           RowBox[{
            RowBox[{"Notebook", "[", 
             RowBox[{"cellStuff_", ",", "___"}], "]"}], "\[RuleDelayed]", 
            "cellStuff"}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"e", ":", 
             RowBox[{"Except", "[", "_List", "]"}]}], "\[RuleDelayed]", 
            RowBox[{"{", 
             RowBox[{"Cell", "[", 
              RowBox[{
               RowBox[{"BoxData", "@", 
                RowBox[{"ToBoxes", "@", "e"}]}], ",", "\"\<Output\>\""}], 
              "]"}], "}"}]}], ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"l", ":", 
             RowBox[{"Except", "[", 
              RowBox[{"{", 
               RowBox[{
                RowBox[{"(", 
                 RowBox[{"_Cell", "|", "_CellGroup"}], ")"}], "..."}], "}"}], 
              "]"}]}], "\[RuleDelayed]", 
            RowBox[{"(", 
             RowBox[{
              RowBox[{
               RowBox[{"Cell", "[", 
                RowBox[{
                 RowBox[{"BoxData", "@", 
                  RowBox[{"ToBoxes", "@", "#"}]}], ",", "\"\<Output\>\""}], 
                "]"}], "&"}], "/@", "l"}], ")"}]}]}], "\[IndentingNewLine]", 
          "}"}]}], "]"}]}], "\[IndentingNewLine]", "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TabOpenFile", "[", "notebook_", "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", "=", 
       RowBox[{"SystemDialogInput", "[", 
        RowBox[{"\"\<FileOpen\>\"", ",", "\"\<.nb\>\""}], "]"}]}], "}"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{"TabOpenFile", "[", 
      RowBox[{"notebook", ",", "f"}], "]"}]}], "\[IndentingNewLine]", "]"}]}],
   ";"}]}], "Input",
 CellChangeTimes->{{3.6889286016321363`*^9, 3.6889286388126507`*^9}, 
   3.688930220289729*^9, {3.688930608947102*^9, 3.688930613426819*^9}, {
   3.688931118499803*^9, 3.688931446797666*^9}, {3.688931492609867*^9, 
   3.6889314936179934`*^9}, 3.6889348446657476`*^9, {3.688948697087304*^9, 
   3.688948731785923*^9}, {3.689040039246883*^9, 3.689040067297764*^9}, {
   3.689040181218121*^9, 3.689040239085429*^9}, {3.6890443630976*^9, 
   3.689044366751259*^9}},ExpressionUUID->"9fdb38f0-8f30-4abd-9059-\
5e724eacb2ca"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"TabFileSave", "[", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", "tab_", ",", 
     RowBox[{"file_String", "?", 
      RowBox[{"(", 
       RowBox[{"StringMatchQ", "[", "\"\<*.nb\>\"", "]"}], ")"}]}]}], "]"}], ":=",
    "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", "=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Export", "[", 
      RowBox[{"file", ",", "\[IndentingNewLine]", 
       RowBox[{"DeleteCases", "[", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{"If", "[", 
          RowBox[{
           RowBox[{
            RowBox[{"$ActiveNotebookTab", "[", "nb", "]"}], "===", "tab"}], 
           ",", "\[IndentingNewLine]", 
           RowBox[{"NotebookGet", "@", "nb"}], ",", "\[IndentingNewLine]", 
           RowBox[{"ReplacePart", "[", "\[IndentingNewLine]", 
            RowBox[{
             RowBox[{"NotebookGet", "@", "nb"}], ",", "\[IndentingNewLine]", 
             RowBox[{"1", "\[Rule]", 
              RowBox[{
               RowBox[{"$NotebookCache", "[", "nb", "]"}], "[", "tab", 
               "]"}]}]}], "\[IndentingNewLine]", "]"}]}], 
          "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
         RowBox[{"(", 
          RowBox[{"DockedCells", "\[Rule]", "_"}], ")"}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"TabFileSave", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", "tab_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"f", "=", 
       RowBox[{"SystemDialogInput", "[", 
        RowBox[{"\"\<FileSave\>\"", ",", "\"\<.nb\>\""}], "]"}]}], "}"}], ",",
      "\[IndentingNewLine]", 
     RowBox[{"If", "[", 
      RowBox[{
       RowBox[{"f", "=!=", "$Canceled"}], ",", "\[IndentingNewLine]", 
       RowBox[{"TabFileSave", "[", 
        RowBox[{"notebook", ",", "tab", ",", "f"}], "]"}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
  ";"}]}], "Input",
 CellChangeTimes->{{3.688934852205476*^9, 3.688934940350542*^9}, {
   3.688934977653392*^9, 3.6889350003820877`*^9}, 3.688942252744602*^9, {
   3.688943709436389*^9, 3.688943750872319*^9}, {3.6889466671574802`*^9, 
   3.6889467068879967`*^9}, {3.6889469734036617`*^9, 3.68894702244865*^9}, {
   3.689036963652206*^9, 3.6890370048810253`*^9}, {3.689044374305335*^9, 
   3.689044378169635*^9}},ExpressionUUID->"e8c5f32a-d122-4ad0-89e8-\
8be75ef7d75f"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TabNotebookSave", "[", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"notebook", ":", 
      RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"fileBaseName_:", "Automatic"}]}], "]"}], ":=", 
   "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", "=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"baseName", "=", "\[IndentingNewLine]", 
         RowBox[{"Replace", "[", 
          RowBox[{"fileBaseName", ",", "\[IndentingNewLine]", 
           RowBox[{"Automatic", ":>", "\[IndentingNewLine]", 
            RowBox[{"Replace", "[", 
             RowBox[{
              RowBox[{"Quiet", "@", 
               RowBox[{"NotebookFileName", "@", "nb"}]}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{"$Failed", "\[RuleDelayed]", 
               RowBox[{"SystemDialogInput", "@", "\"\<FileSave\>\""}]}]}], 
             "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}],
         "}"}], ",", "\[IndentingNewLine]", 
       RowBox[{"If", "[", 
        RowBox[{
         RowBox[{"baseName", "=!=", "$Canceled"}], ",", "\[IndentingNewLine]", 
         RowBox[{"With", "[", 
          RowBox[{
           RowBox[{"{", 
            RowBox[{"folder", "=", 
             RowBox[{"DirectoryName", "@", "baseName"}]}], "}"}], ",", 
           "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"NotebookSave", "[", 
             RowBox[{"nb", ",", "\[IndentingNewLine]", 
              RowBox[{"FileNameJoin", "@", 
               RowBox[{"{", 
                RowBox[{"folder", ",", "\[IndentingNewLine]", 
                 RowBox[{"FileNameTake", "@", "baseName"}]}], 
                "\[IndentingNewLine]", "}"}]}]}], "]"}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Quiet", "@", 
             RowBox[{"CreateDirectory", "@", 
              RowBox[{"FileNameJoin", "@", 
               RowBox[{"{", 
                RowBox[{"folder", ",", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{"FileBaseName", "@", "baseName"}], "<>", 
                  "\"\<_saved_tabs\>\""}]}], "}"}]}]}]}], ";", 
            "\[IndentingNewLine]", 
            RowBox[{"Do", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"TabFileSave", "[", 
               RowBox[{"nb", ",", "\[IndentingNewLine]", 
                RowBox[{"First", "@", "pair"}], ",", "\[IndentingNewLine]", 
                RowBox[{"FileNameJoin", "@", 
                 RowBox[{"{", 
                  RowBox[{"folder", ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"FileBaseName", "@", "baseName"}], "<>", 
                    "\"\<_saved_tabs\>\""}], ",", "\[IndentingNewLine]", 
                   RowBox[{
                    RowBox[{"{", 
                    RowBox[{
                    RowBox[{"ToString", "@", 
                    RowBox[{"First", "@", "pair"}]}], ",", "\"\<_\>\"", ",", 
                    RowBox[{"ToString", "@", 
                    RowBox[{"Last", "@", "pair"}]}]}], "}"}], "<>", 
                    "\"\<.nb\>\""}]}], "\[IndentingNewLine]", "}"}]}]}], 
               "\[IndentingNewLine]", "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{"{", 
               RowBox[{"pair", ",", 
                RowBox[{"GetTabInfo", "[", "nb", "]"}]}], "}"}]}], 
             "\[IndentingNewLine]", "]"}]}]}], "\[IndentingNewLine]", "]"}]}],
         "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.688928585558607*^9, 3.688928592109424*^9}, {
   3.6889305996198893`*^9, 3.688930607316844*^9}, {3.688931159891481*^9, 
   3.688931163392816*^9}, {3.688931476252329*^9, 3.6889314846122103`*^9}, {
   3.6889315797943172`*^9, 3.688931584122995*^9}, 3.688934850767149*^9, {
   3.688935006504665*^9, 3.688935019605267*^9}, 3.6889390561653757`*^9, {
   3.688939147349337*^9, 3.688939176364936*^9}, {3.688939231133399*^9, 
   3.688939316680058*^9}, {3.688939370695615*^9, 3.688939402205658*^9}, {
   3.688939452085949*^9, 3.688939536036612*^9}, {3.688942041353533*^9, 
   3.688942183117402*^9}, {3.6889425774355288`*^9, 3.688942629976471*^9}, {
   3.6889427450835333`*^9, 3.688942762594219*^9}, {3.688943289621299*^9, 
   3.6889432926360064`*^9}, {3.6889433258936033`*^9, 
   3.6889433370272827`*^9}, {3.688947030795602*^9, 3.6889470557202463`*^9}, {
   3.688947089499193*^9, 3.688947094827077*^9}, {3.6889486650303593`*^9, 
   3.688948669283704*^9}},ExpressionUUID->"2faea56b-44a2-4b00-a20d-\
3a4cc46eed82"],

Cell[BoxData[
 RowBox[{
  RowBox[{
   RowBox[{"TabNotebookSaveBindings", "[", 
    RowBox[{"notebook", ":", 
     RowBox[{"_NotebookObject", "|", "Automatic"}], ":", "Automatic"}], "]"}],
    ":=", "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", "=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"With", "[", 
      RowBox[{
       RowBox[{"{", 
        RowBox[{"o", "=", 
         RowBox[{"NotebookEventActions", "/.", 
          RowBox[{"Options", "[", 
           RowBox[{"nb", ",", "NotebookEventActions"}], "]"}]}]}], "}"}], ",",
        "\[IndentingNewLine]", 
       RowBox[{"SetOptions", "[", 
        RowBox[{"nb", ",", "\[IndentingNewLine]", 
         RowBox[{"NotebookEventActions", "\[Rule]", 
          RowBox[{"Join", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"DeleteCases", "[", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{"Replace", "[", 
               RowBox[{"o", ",", 
                RowBox[{"None", "\[Rule]", 
                 RowBox[{"{", "}"}]}]}], "]"}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"(", 
                RowBox[{"Rule", "|", "RuleDelayed"}], ")"}], "[", 
               RowBox[{
                RowBox[{"{", 
                 RowBox[{"\"\<MenuCommand\>\"", ",", 
                  RowBox[{"\"\<Save\>\"", "|", "\"\<SaveRename\>\""}]}], 
                 "}"}], ",", "_"}], "]"}]}], "\[IndentingNewLine]", "]"}], 
            ",", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"{", 
                RowBox[{"\"\<MenuCommand\>\"", ",", "\"\<Save\>\""}], "}"}], 
               "\[RuleDelayed]", 
               RowBox[{"(", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"TabNotebookCachePages", "@", "nb"}], ";", 
                 RowBox[{"NotebookSave", "@", "nb"}]}], "\[IndentingNewLine]",
                 ")"}]}], ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{"\"\<MenuCommand\>\"", ",", "\"\<SaveRename\>\""}], 
                "}"}], "\[RuleDelayed]", 
               RowBox[{"(", "\[IndentingNewLine]", 
                RowBox[{
                 RowBox[{"TabNotebookCachePages", "@", "nb"}], ";", 
                 RowBox[{"NotebookSave", "@", "nb"}]}], "\[IndentingNewLine]",
                 ")"}]}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}]}], 
        "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}]}], 
    "\[IndentingNewLine]", "]"}]}], ";"}]], "Input",
 CellChangeTimes->{{3.6889471241913424`*^9, 3.688947258145657*^9}, {
   3.6889481556314096`*^9, 3.688948163144784*^9}, 3.6889482548141937`*^9, {
   3.6889483737819347`*^9, 3.688948420235853*^9}, {3.6889485199771357`*^9, 
   3.6889485294467382`*^9}, {3.688948756442203*^9, 3.688948831639917*^9}, {
   3.689026588698649*^9, 3.689026610958445*^9}, {3.689034756975646*^9, 
   3.689034779212838*^9}},ExpressionUUID->"565e7a33-bc76-4494-b8b1-\
ff1e90d53b1b"]
}, Closed]],

Cell[CellGroupData[{

Cell["Info", "Subsubsection",
 CellChangeTimes->{{3.6890449434664583`*^9, 
  3.689044943961275*^9}},ExpressionUUID->"85f1c17a-df2a-4a15-ad7a-\
af16dfe3d513"],

Cell[BoxData[{
 RowBox[{
  RowBox[{
   RowBox[{"GetTabName", "[", 
    RowBox[{"notebook_", ",", "tag_"}], "]"}], ":=", "\[IndentingNewLine]", 
   RowBox[{"With", "[", 
    RowBox[{
     RowBox[{"{", 
      RowBox[{"nb", "=", 
       RowBox[{"Replace", "[", 
        RowBox[{"notebook", ",", 
         RowBox[{"Automatic", "\[RuleDelayed]", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
     "\[IndentingNewLine]", 
     RowBox[{"Replace", "[", 
      RowBox[{
       RowBox[{"DockedCells", "/.", 
        RowBox[{"Options", "[", 
         RowBox[{"nb", ",", "DockedCells"}], "]"}]}], ",", 
       RowBox[{"{", "\[IndentingNewLine]", 
        RowBox[{
         RowBox[{
          RowBox[{"Cell", "[", "\[IndentingNewLine]", 
           RowBox[{"stuff_", ",", "\[IndentingNewLine]", "ops___"}], 
           "\[IndentingNewLine]", "]"}], "\[RuleDelayed]", 
          RowBox[{"Replace", "[", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"Cases", "[", 
             RowBox[{"stuff", ",", "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"InterpretationBox", "[", 
                RowBox[{"o_", ",", "tag"}], "]"}], "\[RuleDelayed]", 
               "\[IndentingNewLine]", 
               RowBox[{"Cases", "[", 
                RowBox[{"o", ",", 
                 RowBox[{
                  RowBox[{"InsetBox", "[", 
                   RowBox[{"n_", ",", "___"}], "]"}], "\[RuleDelayed]", "n"}],
                  ",", "\[Infinity]"}], "]"}]}], ",", "\[IndentingNewLine]", 
              "\[Infinity]"}], "]"}], ",", 
            RowBox[{"{", "\[IndentingNewLine]", 
             RowBox[{
              RowBox[{
               RowBox[{"{", "}"}], "\[RuleDelayed]", "None"}], ",", 
              "\[IndentingNewLine]", 
              RowBox[{
               RowBox[{"{", 
                RowBox[{
                 RowBox[{"{", 
                  RowBox[{"n_", ",", "___"}], "}"}], ",", "___"}], "}"}], 
               "\[RuleDelayed]", "n"}]}], "\[IndentingNewLine]", "}"}]}], 
           "]"}]}], ",", "\[IndentingNewLine]", 
         RowBox[{"_", "\[Rule]", "None"}]}], "\[IndentingNewLine]", "}"}]}], 
      "]"}]}], "\[IndentingNewLine]", "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"GetTabInfo", "[", "notebook_", "]"}], ":=", "\[IndentingNewLine]", 
  
  RowBox[{"With", "[", 
   RowBox[{
    RowBox[{"{", 
     RowBox[{"nb", "=", 
      RowBox[{"Replace", "[", 
       RowBox[{"notebook", ",", 
        RowBox[{"Automatic", "\[RuleDelayed]", 
         RowBox[{"EvaluationNotebook", "[", "]"}]}]}], "]"}]}], "}"}], ",", 
    "\[IndentingNewLine]", 
    RowBox[{"Replace", "[", 
     RowBox[{
      RowBox[{"DockedCells", "/.", 
       RowBox[{"Options", "[", 
        RowBox[{"nb", ",", "DockedCells"}], "]"}]}], ",", 
      RowBox[{"{", "\[IndentingNewLine]", 
       RowBox[{
        RowBox[{
         RowBox[{"Cell", "[", "\[IndentingNewLine]", 
          RowBox[{"stuff_", ",", "\[IndentingNewLine]", "ops___"}], 
          "\[IndentingNewLine]", "]"}], "\[RuleDelayed]", 
         "\[IndentingNewLine]", 
         RowBox[{"Cases", "[", 
          RowBox[{"stuff", ",", "\[IndentingNewLine]", 
           RowBox[{
            RowBox[{"InterpretationBox", "[", 
             RowBox[{"o_", ",", "t_"}], "]"}], "\[RuleDelayed]", 
            "\[IndentingNewLine]", 
            RowBox[{"(", 
             RowBox[{"t", "->", "\[IndentingNewLine]", 
              RowBox[{"Replace", "[", "\[IndentingNewLine]", 
               RowBox[{
                RowBox[{"Cases", "[", 
                 RowBox[{"o", ",", 
                  RowBox[{
                   RowBox[{"InsetBox", "[", 
                    RowBox[{"n_", ",", "___"}], "]"}], "\[RuleDelayed]", 
                   "n"}], ",", "\[Infinity]"}], "]"}], ",", 
                "\[IndentingNewLine]", 
                RowBox[{"{", "\[IndentingNewLine]", 
                 RowBox[{
                  RowBox[{
                   RowBox[{"{", "}"}], "\[RuleDelayed]", "None"}], ",", 
                  "\[IndentingNewLine]", 
                  RowBox[{
                   RowBox[{"{", 
                    RowBox[{"n_", ",", "___"}], "}"}], "\[RuleDelayed]", 
                   "n"}]}], "\[IndentingNewLine]", "}"}]}], "]"}]}], 
             "\[IndentingNewLine]", ")"}]}], ",", "\[IndentingNewLine]", 
           "\[Infinity]"}], "]"}]}], ",", "\[IndentingNewLine]", 
        RowBox[{"_", "\[Rule]", "None"}]}], "\[IndentingNewLine]", "}"}]}], 
     "]"}]}], "\[IndentingNewLine]", "]"}]}]}], "Input",
 CellChangeTimes->{{3.6889395854686737`*^9, 3.68893964609096*^9}, {
  3.688939778142808*^9, 3.688939892901926*^9}, {3.688940269054625*^9, 
  3.688940317661543*^9}, {3.688942261125844*^9, 3.688942457894001*^9}, {
  3.6889425157675753`*^9, 3.688942563322624*^9}, {3.689040369578207*^9, 
  3.689040375471109*^9}, {3.68904111671526*^9, 
  3.689041160628972*^9}},ExpressionUUID->"c308d917-5bfd-4e34-bc4c-\
8cc9301675b7"]
}, Closed]]
}, Open  ]],

Cell[BoxData[
 RowBox[{
  RowBox[{"End", "[", "]"}], ";"}]], "Input",
 CellGroupingRules->{"SectionGrouping", 40},
 CellChangeTimes->{{3.6889308228157387`*^9, 3.6889308235114517`*^9}, {
  3.688930882713708*^9, 
  3.6889308836398163`*^9}},ExpressionUUID->"cbfeb0da-f9d6-40a5-b3f7-\
d6bdc91e63b9"],

Cell[CellGroupData[{

Cell[BoxData[
 RowBox[{
  RowBox[{"EndPackage", "[", "]"}], ";"}]], "Input",
 CellGroupingRules->{"SectionGrouping", 40},
 CellChangeTimes->{{3.688930888285133*^9, 
  3.688930890745085*^9}},ExpressionUUID->"9f88ceef-afc8-45e8-85a7-\
ea06e8856d01"],

Cell[BoxData[
 RowBox[{"(*", 
  RowBox[{
   RowBox[{"CopyFile", "[", 
    RowBox[{
     RowBox[{"StringReplace", "[", 
      RowBox[{
       RowBox[{"NotebookFileName", "[", "]"}], ",", 
       RowBox[{"\"\<.nb\>\"", "\[Rule]", "\"\<.m\>\""}]}], "]"}], ",", 
     RowBox[{"CloudObject", "[", 
      RowBox[{"\"\<NotebookTabbing.m\>\"", ",", "\[IndentingNewLine]", 
       RowBox[{"Permissions", "\[Rule]", "\"\<Public\>\""}]}], 
      "\[IndentingNewLine]", "]"}]}], "\[IndentingNewLine]", "]"}], "//", 
   "First"}], "*)"}]], "Input",
 CellChangeTimes->{{3.706915742668682*^9, 3.706915763071279*^9}, {
  3.706915799645638*^9, 
  3.706915826435161*^9}},ExpressionUUID->"620191f5-fa31-4542-bbf5-\
2803c1e191fc"]
}, Open  ]]
}, Open  ]],

Cell[CellGroupData[{

Cell["Testing", "Section",
 CellChangeTimes->{{3.6889315057124233`*^9, 
  3.6889315073994417`*^9}},ExpressionUUID->"74a3af45-ea56-4f21-85e5-\
24681f223462"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"test1", "=", "\[IndentingNewLine]", 
   RowBox[{"CreateDocument", "[", 
    RowBox[{"Cell", "[", 
     RowBox[{
      RowBox[{"BoxData", "@", 
       RowBox[{"ToBoxes", "@", 
        RowBox[{"Unevaluated", "[", 
         RowBox[{"TabNotebookCachePages", "@", 
          RowBox[{"EvaluationNotebook", "[", "]"}]}], "]"}]}]}], ",", 
      "\"\<Input\>\""}], "]"}], "]"}]}], ";"}], "\n", 
 RowBox[{
  RowBox[{"SetDockedTabs", "[", 
   RowBox[{"test1", ",", "\[IndentingNewLine]", 
    RowBox[{"Table", "[", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"i", "\[Rule]", "i"}], ",", "\[IndentingNewLine]", 
      RowBox[{"{", 
       RowBox[{"i", ",", "3"}], "}"}]}], "\[IndentingNewLine]", "]"}]}], 
   "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.689026618333572*^9, 3.68902669645115*^9}, {
   3.689030924445793*^9, 3.689030927995075*^9}, {3.689031053056436*^9, 
   3.689031075229229*^9}, {3.689037517412668*^9, 3.6890375230388117`*^9}, 
   3.689040144360825*^9, 3.689040666964189*^9, {3.68904500653959*^9, 
   3.689045041776277*^9}, {3.7069118624606943`*^9, 3.706911873724103*^9}, {
   3.7069142718306713`*^9, 
   3.706914280452272*^9}},ExpressionUUID->"815a7dad-1dcd-47d8-9d71-\
f490bb2619fa"],

Cell[BoxData[{
 RowBox[{
  RowBox[{"test2", "=", "\[IndentingNewLine]", 
   RowBox[{"CreateDocument", "[", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"Cell", "[", 
       RowBox[{"\"\<Tabbed Package\>\"", ",", "\"\<Title\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Cell", "[", 
       RowBox[{
        RowBox[{"BoxData", "@", 
         RowBox[{"ToBoxes", "@", 
          RowBox[{"Unevaluated", "[", 
           RowBox[{
            RowBox[{"BeginPackage", "[", "\"\<MyPackage`\>\"", "]"}], ";"}], 
           "]"}]}]}], ",", "\[IndentingNewLine]", "\"\<Input\>\""}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Cell", "[", 
       RowBox[{"\"\<Exposed\>\"", ",", "\"\<Section\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Cell", "[", 
       RowBox[{
        RowBox[{"BoxData", "@", 
         RowBox[{"ToBoxes", "@", 
          RowBox[{"Unevaluated", "[", 
           RowBox[{
            RowBox[{"Begin", "[", "\"\<`Private`\>\"", "]"}], ";"}], 
           "]"}]}]}], ",", "\[IndentingNewLine]", "\"\<Input\>\""}], "]"}], 
      ",", "\[IndentingNewLine]", 
      RowBox[{"Cell", "[", 
       RowBox[{"\"\<Internals\>\"", ",", "\"\<Section\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Cell", "[", 
       RowBox[{
        RowBox[{"BoxData", "@", 
         RowBox[{"ToBoxes", "@", 
          RowBox[{"Unevaluated", "[", 
           RowBox[{
            RowBox[{"End", "[", "]"}], ";"}], "]"}]}]}], ",", 
        "\[IndentingNewLine]", "\"\<Input\>\""}], "]"}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"Cell", "[", 
       RowBox[{
        RowBox[{"BoxData", "@", 
         RowBox[{"ToBoxes", "@", 
          RowBox[{"Unevaluated", "[", 
           RowBox[{
            RowBox[{"EndPackage", "[", "]"}], ";"}], "]"}]}]}], ",", 
        "\[IndentingNewLine]", "\"\<Input\>\""}], "]"}]}], 
     "\[IndentingNewLine]", "}"}], "]"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{
   RowBox[{"$NotebookCache", "[", "test2", "]"}], "=", 
   RowBox[{"<|", "\[IndentingNewLine]", 
    RowBox[{
     RowBox[{"\"\<docs_tab\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"Cell", "[", 
        RowBox[{"\"\<Package Documentation\>\"", ",", "\"\<Title\>\""}], 
        "]"}], "}"}]}], ",", "\[IndentingNewLine]", 
     RowBox[{"\"\<testing_tab\>\"", "->", 
      RowBox[{"{", 
       RowBox[{"Cell", "[", 
        RowBox[{"\"\<Testing\>\"", ",", "\"\<Title\>\""}], "]"}], "}"}]}]}], 
    "\[IndentingNewLine]", "|>"}]}], ";"}], "\[IndentingNewLine]", 
 RowBox[{
  RowBox[{"SetDockedTabs", "[", 
   RowBox[{"test2", ",", "\[IndentingNewLine]", 
    RowBox[{"{", "\[IndentingNewLine]", 
     RowBox[{
      RowBox[{"\"\<Code\>\"", "\[Rule]", "\"\<code_tab\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Docs\>\"", "\[Rule]", "\"\<docs_tab\>\""}], ",", 
      "\[IndentingNewLine]", 
      RowBox[{"\"\<Testing\>\"", "\[Rule]", "\"\<testing_tab\>\""}]}], 
     "\[IndentingNewLine]", "}"}], ",", "\[IndentingNewLine]", 
    RowBox[{"DockedCells", "\[Rule]", "TabDockedCellFileInterface"}]}], 
   "\[IndentingNewLine]", "]"}], ";"}]}], "Input",
 CellChangeTimes->{{3.689045036646565*^9, 3.689045335306582*^9}, 
   3.706912146936211*^9},ExpressionUUID->"68a86caa-cfc2-49c5-87f6-\
c2daf3171edc"]
}, Open  ]]
}, Open  ]]
},
AutoGeneratedPackage->Automatic,
WindowSize->{808, 755},
WindowMargins->{{43, Automatic}, {Automatic, 29}},
DockedCells->None,
FrontEndVersion->"11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 16, \
2017)",
StyleDefinitions->Notebook[{
   Cell[
    StyleData[StyleDefinitions -> "Default.nb"]], 
   Cell[
    StyleData["Section"], WholeCellGroupOpener -> True], 
   Cell[
    StyleData["Subsection"], ShowGroupOpener -> True], 
   Cell[
    StyleData["Subsubsection"], ShowGroupOpener -> True], 
   Cell[
    StyleData["Subsubsubsection"], ShowGroupOpener -> True]}, Visible -> 
  False, FrontEndVersion -> 
  "11.1 for Mac OS X x86 (32-bit, 64-bit Kernel) (March 16, 2017)", 
  StyleDefinitions -> "PrivateStylesheetFormatting.nb"]
]
(* End of Notebook Content *)

(* Internal cache information *)
(*CellTagsOutline
CellTagsIndex->{}
*)
(*CellTagsIndex
CellTagsIndex->{}
*)
(*NotebookFileOutline
Notebook[{
Cell[CellGroupData[{
Cell[580, 22, 101, 1, 92, "Title", "ExpressionUUID" -> \
"f9d8f499-00d2-43d3-b80e-d4d149106cdb"],
Cell[684, 25, 381, 10, 106, "Text", "ExpressionUUID" -> \
"7f3aac13-bd63-422e-9d10-508a6cf3d2e5"],
Cell[1068, 37, 314, 8, 32, "Input", "ExpressionUUID" -> \
"d55506d0-01da-4e58-8e43-a5dcc7d9cba1"],
Cell[1385, 47, 264, 6, 30, "Text", "ExpressionUUID" -> \
"8f59ccc7-f5d6-42c3-b342-f3a0d3d96bc5"],
Cell[1652, 55, 302, 6, 49, "Text", "ExpressionUUID" -> \
"b3133793-1df1-4122-b170-e04c43099afc"],
Cell[CellGroupData[{
Cell[1979, 65, 119, 2, 64, "Section", "ExpressionUUID" -> \
"cbaefdae-dafd-4784-bdba-d5b1fe324c65",
 InitializationGroup->True],
Cell[2101, 69, 401, 9, 32, "Input", "ExpressionUUID" -> \
"aafca72b-8ac5-43bd-93ab-d5d28799bde3",
 CellGroupingRules->{"SectionGrouping", 40}],
Cell[CellGroupData[{
Cell[2527, 82, 107, 1, 36, "Subsection", "ExpressionUUID" -> \
"15aaa234-a631-46ac-aaa1-3bd783d7867a"],
Cell[CellGroupData[{
Cell[2659, 87, 163, 3, 35, "Subsubsection", "ExpressionUUID" -> \
"03fca003-2260-4b92-97e6-4fd5587e707f"],
Cell[2825, 92, 1147, 31, 159, "Input", "ExpressionUUID" -> \
"a67e16c5-d276-47b4-bd15-f12216bb10d1"]
}, Closed]],
Cell[CellGroupData[{
Cell[4009, 128, 157, 3, 29, "Subsubsection", "ExpressionUUID" -> \
"de38c215-6a27-46b5-a512-b9912d098f8e"],
Cell[4169, 133, 518, 12, 54, "Input", "ExpressionUUID" -> \
"24b0ad41-18c0-4809-b1e9-8a030b898ebc"]
}, Closed]],
Cell[CellGroupData[{
Cell[4724, 150, 166, 3, 29, "Subsubsection", "ExpressionUUID" -> \
"6a7b9099-9ce8-443a-bc45-034bf303589d"],
Cell[4893, 155, 636, 18, 75, "Input", "ExpressionUUID" -> \
"572e311f-c49b-42aa-9070-05bfd79eba27"]
}, Closed]],
Cell[CellGroupData[{
Cell[5566, 178, 142, 2, 29, "Subsubsection", "ExpressionUUID" -> \
"d56631eb-c8bf-41d5-975c-e9a493075127"],
Cell[5711, 182, 772, 18, 96, "Input", "ExpressionUUID" -> \
"bd26c3f0-089b-4aaf-b081-0871406bd1aa"]
}, Closed]],
Cell[CellGroupData[{
Cell[6520, 205, 87, 1, 29, "Subsubsection", "ExpressionUUID" -> \
"22f60dfe-008f-4786-93b8-5af7ca8d56f7"],
Cell[6610, 208, 953, 25, 96, "Input", "ExpressionUUID" -> \
"e954abae-a636-445f-9d33-1b7d3a898aa1"]
}, Closed]],
Cell[CellGroupData[{
Cell[7600, 238, 169, 3, 29, "Subsubsection", "ExpressionUUID" -> \
"d8a6c4f2-6c85-41fa-9eac-08f41d5473ac"],
Cell[7772, 243, 1244, 29, 180, "Input", "ExpressionUUID" -> \
"54689bd4-8094-4083-8e80-f42e9805bee1"]
}, Closed]],
Cell[CellGroupData[{
Cell[9053, 277, 155, 3, 29, "Subsubsection", "ExpressionUUID" -> \
"6cdea502-80a1-4bc9-aa03-d45e3bfb1cbf"],
Cell[9211, 282, 605, 14, 54, "Input", "ExpressionUUID" -> \
"6b58cb31-83a0-4905-9a55-634e520f90f3"]
}, Closed]]
}, Open  ]],
Cell[9843, 300, 286, 6, 32, "Input", "ExpressionUUID" -> \
"8a08243c-d8e0-4555-8bfd-ae67d9b9331e",
 CellGroupingRules->{"SectionGrouping", 40}],
Cell[CellGroupData[{
Cell[10154, 310, 99, 1, 36, "Subsection", "ExpressionUUID" -> \
"e27949c2-290b-4758-9ba5-f31b677d54a1"],
Cell[CellGroupData[{
Cell[10278, 315, 103, 1, 35, "Subsubsection", "ExpressionUUID" -> \
"fb1d9510-e8c3-4345-b07f-0937271d2e0c"],
Cell[10384, 318, 1485, 24, 75, "Input", "ExpressionUUID" -> \
"8eb4c9fc-5597-48ac-9d78-8bbbbdd62007"],
Cell[11872, 344, 1514, 26, 75, "Input", "ExpressionUUID" -> \
"e35534a8-c8c7-4edf-ac4f-9b948733d4c6"],
Cell[13389, 372, 254, 6, 32, "Input", "ExpressionUUID" -> \
"4c96e041-7793-4dc4-888a-7fd2f7fcdc53"],
Cell[13646, 380, 2661, 56, 285, "Input", "ExpressionUUID" -> \
"bbbcc8aa-a803-48af-a48f-235fcdebaea8"]
}, Closed]],
Cell[CellGroupData[{
Cell[16344, 441, 206, 4, 29, "Subsubsection", "ExpressionUUID" -> \
"ff61949a-60bc-4488-9357-cc0a8083fea2"],
Cell[16553, 447, 1848, 36, 96, "Input", "ExpressionUUID" -> \
"37c7193c-dd4d-4a53-bbc3-9cd08ec48b28"],
Cell[18404, 485, 5011, 111, 453, "Input", "ExpressionUUID" -> \
"5acb08b0-e3b4-4ece-aad7-39423ada9375"],
Cell[23418, 598, 3137, 65, 138, "Input", "ExpressionUUID" -> \
"eeb90f8e-9650-4ff2-a321-90b8c79353a2"]
}, Closed]],
Cell[CellGroupData[{
Cell[26592, 668, 186, 3, 29, "Subsubsection", "ExpressionUUID" -> \
"ccefa05f-b851-41b0-bf8a-02350de69add"],
Cell[26781, 673, 6447, 128, 915, "Input", "ExpressionUUID" -> \
"09fb9e5e-521e-4260-be12-6181bc7a5e5e"],
Cell[33231, 803, 5489, 118, 915, "Input", "ExpressionUUID" -> \
"11941069-acdd-4dab-920e-9177d4876535"],
Cell[38723, 923, 3122, 59, 348, "Input", "ExpressionUUID" -> \
"f5b79dde-03c1-43a4-8175-61f1cd33f81e"]
}, Open  ]],
Cell[CellGroupData[{
Cell[41882, 987, 114, 1, 35, "Subsubsection", "ExpressionUUID" -> \
"3b15b538-8eff-4f5e-982b-a4b60db555dd"],
Cell[41999, 990, 4430, 88, 453, "Input", "ExpressionUUID" -> \
"1c42b783-0346-4a36-8dfb-864561fdffab"],
Cell[46432, 1080, 4136, 79, 89, "Input", "ExpressionUUID" -> \
"7728a898-dfc8-49c6-a623-8c61a7dfdc87"],
Cell[50571, 1161, 8596, 166, 1587, "Input", "ExpressionUUID" -> \
"9ef5664e-f595-4d3f-bae5-9998d603c3bb"],
Cell[59170, 1329, 3491, 81, 558, "Input", "ExpressionUUID" -> \
"71b0ee4e-c499-48af-ba89-32041d2abf18"],
Cell[62664, 1412, 3475, 79, 453, "Input", "ExpressionUUID" -> \
"b1a2418c-24c3-4d0e-89b8-138e3a2fcd00"]
}, Open  ]],
Cell[CellGroupData[{
Cell[66176, 1496, 220, 4, 35, "Subsubsection", "ExpressionUUID" -> \
"17ae829e-4884-47e5-a84a-1f09d739d957"],
Cell[66399, 1502, 4294, 94, 705, "Input", "ExpressionUUID" -> \
"c1b7191b-f3bd-45fa-a6cc-5d09b1092599"],
Cell[70696, 1598, 3404, 73, 684, "Input", "ExpressionUUID" -> \
"c12b4897-67d4-4d8f-83e9-06735c2d0e08"],
Cell[74103, 1673, 3090, 68, 411, "Input", "ExpressionUUID" -> \
"be4615b0-1f54-4d8a-b6d8-cf109b16d14c"],
Cell[77196, 1743, 4102, 90, 516, "Input", "ExpressionUUID" -> \
"bb57e10f-0799-4679-a3e6-a5853dbab2d8"]
}, Closed]],
Cell[CellGroupData[{
Cell[81335, 1838, 262, 4, 29, "Subsubsection", "ExpressionUUID" -> \
"6c30197a-9ffe-4b17-a71d-b9da162b0a5c"],
Cell[81600, 1844, 6826, 141, 978, "Input", "ExpressionUUID" -> \
"77c52e87-ffd0-4daf-9b66-7ccd2f57a445"],
Cell[88429, 1987, 3920, 93, 516, "Input", "ExpressionUUID" -> \
"9fdb38f0-8f30-4abd-9059-5e724eacb2ca"],
Cell[92352, 2082, 3023, 70, 516, "Input", "ExpressionUUID" -> \
"e8c5f32a-d122-4ad0-89e8-8be75ef7d75f"],
Cell[95378, 2154, 4946, 102, 705, "Input", "ExpressionUUID" -> \
"2faea56b-44a2-4b00-a20d-3a4cc46eed82"],
Cell[100327, 2258, 3261, 72, 411, "Input", "ExpressionUUID" -> \
"565e7a33-bc76-4494-b8b1-ff1e90d53b1b"]
}, Closed]],
Cell[CellGroupData[{
Cell[103625, 2335, 157, 3, 29, "Subsubsection", "ExpressionUUID" -> \
"85f1c17a-df2a-4a15-ad7a-af16dfe3d513"],
Cell[103785, 2340, 4960, 114, 810, "Input", "ExpressionUUID" -> \
"c308d917-5bfd-4e34-bc4c-8cc9301675b7"]
}, Closed]]
}, Open  ]],
Cell[108772, 2458, 295, 7, 32, "Input", "ExpressionUUID" -> \
"cbfeb0da-f9d6-40a5-b3f7-d6bdc91e63b9",
 CellGroupingRules->{"SectionGrouping", 40}],
Cell[CellGroupData[{
Cell[109092, 2469, 247, 6, 26, "Input", "ExpressionUUID" -> \
"9f88ceef-afc8-45e8-85a7-ea06e8856d01",
 CellGroupingRules->{"SectionGrouping", 40}],
Cell[109342, 2477, 710, 17, 117, "Input", "ExpressionUUID" -> \
"620191f5-fa31-4542-bbf5-2803c1e191fc"]
}, Open  ]]
}, Open  ]],
Cell[CellGroupData[{
Cell[110101, 2500, 156, 3, 64, "Section", "ExpressionUUID" -> \
"74a3af45-ea56-4f21-85e5-24681f223462"],
Cell[110260, 2505, 1236, 28, 201, "Input", "ExpressionUUID" -> \
"815a7dad-1dcd-47d8-9d71-f490bb2619fa"],
Cell[111499, 2535, 3314, 81, 558, "Input", "ExpressionUUID" -> \
"68a86caa-cfc2-49c5-87f6-c2daf3171edc"]
}, Open  ]]
}, Open  ]]
}
]
*)