Question about AutoAction (or Mouseover)

Questions
, , ,
1

The code below creates an ActionMenu that opens when I mouse over it. This is what I want… however, I would like it to close the ActionMenu when I move the mouse away from the ActionMenu. I cannot get it to work. It forces me to click somewhere to remove the ActionMenu. Can anyone help?

Thank you in advance!
Mike

ActionMenu["Boxes",
 {"Definition" :> {SelectionMove[InputNotebook[], After, Cell]},
  "Theorem" :> {SelectionMove[InputNotebook[], After, Cell]},
  "Procedure" :> {SelectionMove[InputNotebook[], After, Cell]},
  "Example" :> {SelectionMove[InputNotebook[], After, Cell]}
    }, Appearance -> "PopupMenu", AutoAction -> True]
1 Like