Dear Andrew,

Could you put your solution doing something very simple (like Plot, Graphics or form) into the hereunder code structure because I tried myself without succeeding?

By the way, we are some people working on the same problem and nobody did yet find a satisfying solution.

I posted myself another question on the community you can consult:

https://community.wolfram.com/groups/-/m/t/2436599

Thank you beforehand for your answer.

Kindest regards.

Gianni Mocellin

PS: I am very proud that you take action in this discussion, because I already red many of your wonderful interventions in the community.

form = FormFunction[{"first" -> "String", "second" -> "Number"}, f];
CreatePalette[Grid[{{
    ActionMenu[
     "LogoMenu",
     {
      "About information" :> 
       NotebookWrite[SelectedNotebook[], 
        Cell["About information", "Text"]],
      "About information bis" :> 
       NotebookWrite[SelectedNotebook[], 
        ToBoxes@"About information bis"]
      }
     ],
    ActionMenu[
     "Menu 1",
     {
      "Action 1.1" :> 
       NotebookWrite[SelectedNotebook[], Cell["foo", "Text"]],
      "Action 1.1 bis" :> 
       NotebookWrite[SelectedNotebook[], ToBoxes@"foo bis"],

      "Action 1.2" :> 
       NotebookWrite[SelectedNotebook[], 
        Cell[ToBoxes[2 + 2], "Output"]],
      "Action 1.2 bis" :> 
       NotebookWrite[SelectedNotebook[], ToBoxes@(2 + 2)],

      "Action 1.3" :> 
       NotebookWrite[SelectedNotebook[], 
        Cell[ToBoxes[N[Sqrt[2]]], "Output"]],
      "Action 1.3 bis" :> 
       NotebookWrite[SelectedNotebook[], ToBoxes@N[Sqrt[2]]],

      "Action 1.4" :> 
       NotebookWrite[SelectedNotebook[], 
        Cell[{ToBoxes[Plot[Sin[x], {x, 0, 6 Pi}]]}, "Output"]],
      "Action 1.4 bis" :> 
       NotebookApply[SelectedNotebook[], 
        ToBoxes@Plot[Sin[x], {x, 0, 6 Pi}]],

      "Action 1.5" :> 
       NotebookWrite[SelectedNotebook[], 
        Cell[{ToBoxes[Graphics[Circle[]]]}, "Output"]],
      "Action 1.5 bis" :> 
       NotebookApply[SelectedNotebook[], ToBoxes@Graphics[Circle[]]],

      "Action 1.6" :> 
       NotebookWrite[SelectedNotebook[], 
        Cell[{ToBoxes[form[]]}, "Output"]], 
      "Action 1.6 bis" :> 
       NotebookApply[SelectedNotebook[], ToBoxes@form[]]
      }
     ]
    }},
  Frame -> All]]

Attachments:

Mathematica-2022...nb

Dear Daniel,

Could you give some examples of the ways you used ActionMenu with NotebookApply?

Thank you beforehand for your answer.

Kindest Regards.

Gianni Mocellin

Dear Rohit,

Thank you so much for your prompt answer.

I was thinking about something like that but I was not aware of the use of the NotebookApply function in conjunction with the ActionMenu function because in the ActionMenu documentation there is no example for that use.

Kindest regards,

Mario