Dynamic docked toolbar that appears only in the Working screen environment

Question

I have created a toolbar that, among other things, has an action menu button that gives me a table of contents list to navigate, see the picture bellow:

Now I'm trying to make this toolbar appear only in Working environment and disappear in printout environment. Since toolbar is a cell that has an evaluating command I wasn't able to put it directly in the stylesheet, so that I'm setting the toolbar with next command:

SetOptions[EvaluationNotebook[], DockedCells -> toolbarCell]

Usually when dealing with static DockedCells I would do this in the deffinitions of Working and Printout style cells like this:

Cell[StyleData["Notebook", "Working"], DockedCells->{toolbarCell}]
Cell[StyleData["Notebook", "Printout"], DockedCells->{}]

But, as said earlier, toolbarCell has code that searches whole notebook for section cells and makes a list from them in order to create ActionMenu buton. One option that I unsuccessfully tried was to put toolbarCell code in MiscExpressions.tr file in location C:\Program Files\Wolfram Research\Mathematica\11.0\SystemFiles\FrontEnd\TextResources and call it with command:

DockedCells -> {FEPrivate`FrontEndResource["FEExpressions","MasterToolbar"]}]

This is the way that presentation toolbar is called. But I can't seem to get it to work.

Another thing I tried was using Dynamic but still unsuccessful. Any help is more than welcome. I tried to present the problem conceptually since putting in all the code would be an overdue.

---

EDIT:
The main part of the code goes like this:

{Cell[
  BoxData[
   ToBoxes[
    ActionMenu["Toc",
(*creating list of action menu item names and list of commands*)
     Inner[
      RuleDelayed,
 (*1 create list of names*)
      Composition[
       Map[
  (*1.3. Extract modified input text into list*)
        First@FrontEndExecute@FrontEnd`ExportPacket[#, "InputText"] &],
  (*1.2. read objects into an expression and replace CounterBox["typeOfCell"] with counter values*)
       Map[(NotebookRead[#] /. CounterBox[style_] :> 
         ToBoxes@CurrentValue[#, {"CounterValue", style}]) &],
  (*1.1. extract list of section cells objects to put in TOC*)
       Cells[#, 
        CellStyle -> {"AbstractSection", "Section", "Subsection", 
        "Subsubsection", "ReferenceSection", 
        "EndnoteSection"}]&
      ]@EvaluationNotebook[],

 (*2. create list of commands*)
      Map[
       Unevaluated@NotebookFind[EvaluationNotebook[], #, All, CellID] &, 
       CurrentValue[
        Cells[CellStyle -> {"AbstractSection", "Section", 
        "Subsection", "Subsubsection", "ReferenceSection", 
        "EndnoteSection"}], CellID], 1], List]]]]]}

Now when I put the above written code as a docked cell in stylesheet I cannot close the cell when pressing ctr+shift+e and mathematica makes a beep sound while pressing the mentioned combination of keys.

Answer 1

Per my comment you can use a global symbol to track this and have that update on "MouseEntered":

Try:

SetOptions[EvaluationNotebook[],
 DockedCells ->
  Cell[BoxData[
    ToBoxes[
     EventHandler[
      Dynamic[
       ActionMenu[
        "Toc",(*creating list of action menu item names and list of \
commands*)
        Replace[$inputNotebookTOC,
         Except[_List] -> {}
         ]
        ]
       ],
      "MouseEntered" :>
       Set[$inputNotebookTOC,
        Inner[RuleDelayed,(*1 create list of names*)
         Composition[
           Map[(*1.3.Extract modified input text into list*)
            First@FrontEndExecute@
               FrontEnd`ExportPacket[#, 
                "InputText"] &],(*1.2.read objects into an expression \
and replace CounterBox["typeOfCell"] with counter values*)
           Map[(NotebookRead[#] /. 
               CounterBox[style_] :> 
                ToBoxes@
                 CurrentValue[#, {"CounterValue", 
                   style}]) &],(*1.1.extract list of section cells \
objects to put in TOC*)
           Cells[#, 
             CellStyle -> {"AbstractSection", "Section", "Subsection",
                "Subsubsection", "ReferenceSection", 
               "EndnoteSection"}] &]@
          InputNotebook[],(*2. create list of commands*)
         Map[Unevaluated@
            NotebookFind[InputNotebook[], #, All, CellID] &, 
          CurrentValue[
           Cells[CellStyle -> {"AbstractSection", "Section", 
              "Subsection", "Subsubsection", "ReferenceSection", 
              "EndnoteSection"}], CellID], 1], List]
        ]
      ]]
    ]
   ]
 ]

Every time you mouse over the thing it'll fire off an update event on the current InputNotebook

Answer 2

To make the answer complete I will post the whole solution supplemented with b3m2a1's answer.

The main problem was that I wanted to make docked cell toolbar with dynamic elements that appears in Working environment and disappears in Printout environment.

By dynamic element, in my case, I meant an ActionMenu that gives a list of hyperlinks to sections (subsections, subsubsections,.., see the picture from the question) and therefore gives you an easy way to navigate your notebook. The solution that follows is in regards with that ActionMenu.

Although @b3m2a1 did solve the problem of dynamically updating the list in action menu for which I am grateful to him, as @Kuba commented, his answer was not an adequate one for the question posted.

Currently there seems to be no stylesheet based solution? so that we proceed with the solution that uses SetOptions command and is quite simple. Conceptually, in order to make cell, called toolbarCell, appear as docked in Working and disappear in Printout environment you would proceed as follows:

SetOptions[
           EvaluationNotebook[],
           DockedCells->
            Dynamic[
             If[CurrentValue[EvaluationNotebook[],ScreenStyleEnvironment] === "Working", 
              toolbarCell,
              {}
             ]
            ]
]

But there is a catch, you will have to replace toolbarCell with an expression for your cell, that is, in order to make this to work you can not assign cell to some variable and then pass that variable in place of toolbarCell. You must replace toolbarCell with the whole expression. At least that solved my problem. The whole solution:

SetOptions[
 EvaluationNotebook[], 
 DockedCells -> 
  Dynamic[
   If[CurrentValue[EvaluationNotebook[], ScreenStyleEnvironment] === "Working",
(*HERE YOU PUT YOUR CELL*)      
    Evaluate@Cell[
              BoxData[
               ToBoxes[
                EventHandler[
                 Dynamic[
                  ActionMenu["Toc",
 (*creating list of action menu item names and list of commands*)
                   Replace[$inputNotebookTOC, Except[_List] -> {}]]], 
                 "MouseEntered" :> Set[
                  $inputNotebookTOC, 
                  Inner[RuleDelayed,
  (*1 create list of names*)
                   Composition[
                    Map[
   (*1.3.Extract modified input text into list*)
                     First@FrontEndExecute@FrontEnd`ExportPacket[#, 
                     "InputText"] &],
   (*1.2.read objects into an  expression and replace CounterBox["typeOfCell"] with counter values*)
                     Map[(NotebookRead[#] /. 
                      CounterBox[style_] :> ToBoxes@
                       CurrentValue[#, {"CounterValue", style}]) &],
   (*1.1.extract list of section cells objects to put in TOC*)
                     Cells[#, 
                      CellStyle -> {"AbstractSection", "Section", "Subsection", "Subsubsection", "ReferenceSection", "EndnoteSection"}] &]@
                    InputNotebook[],
  (*2. create list of commands*)
                   Map[Unevaluated@NotebookFind[InputNotebook[], #, All, CellID] &, 
                    CurrentValue[
                     Cells[CellStyle -> {"AbstractSection", "Section", 
             "Subsection", "Subsubsection", "ReferenceSection", 
             "EndnoteSection"}], CellID], 1], List]]]]]]

, {}]]] 

Hope someone find this helpful.