![menuFilter = NewJMenu[menuBar, "Filter", "F"]](../HTMLFiles/index_290.gif){kind=small}
New menu is created and added to the menu bar.
In[115]:=
Menu item is added to the menu.
In[116]:=
![itemApply = NewJMenuItem[menuFilter, "Apply", "A"]](../HTMLFiles/index_293.gif){kind=small}
Listener class for menu action is loaded.
In[117]:=
![LoadJavaClass["JLinkProgramming.JavaSwing.ThreadMathActionListener"]](../HTMLFiles/index_296.gif){kind=small}
In[118]:=
![listenerItemApply = JavaNew["JLinkProgramming.JavaSwing.ThreadMathActionListener"]](../HTMLFiles/index_299.gif){kind=small}
A command handler is defined and is set to the listener.
In[119]:=
![handleItemApply[event_, command_] := JavaBlock[Module[ {saved}, saved = frame @ getTitle[] ; ... quot;handleItemApply was called..."] ; frame @ setTitle[saved] ; ReleaseObject[event] ; ]]](../HTMLFiles/index_302.gif)
In[120]:=
![listenerItemApply @ setHandler["actionPerformed", ToString[handleItemApply]]](../HTMLFiles/index_305.gif){kind=small}
The listener itself is attached to the menu item.
In[121]:=
![itemApply @ addActionListener[listenerItemApply]](../HTMLFiles/index_306.gif){kind=small}
BEFORE USING ANY MENU COMMAND DEFINED IN MATHEMATICA, SHARING FRONTEND SHOULD BE STARTED.
In[122]:=
![sfe = ShareFrontEnd[]](../HTMLFiles/index_309.gif){kind=small}
Now clicking a menu item makes Mathematica print a string. Because this 'calculation' is done very fast, it might be impossible to see the change of frame's title.
(sharing) In[123]:=
![LongCalculation[notify_: False] := Module[ {sum = 0, cnt = 0}, Do[ sum += Random[] ; ++ cnt ... rame @ setTitle["cnt=50000, sum=" <> ToString[sum]]] ], {100000}] ; Print[sum] ]](../HTMLFiles/index_315.gif)
(sharing) In[124]:=
![LongCalculation[] // Timing](../HTMLFiles/index_320.gif){kind=small}
The definition of the handlerItemFilter[ ] is changed.
(sharing) In[125]:=
![handleItemApply[event_, command_] := JavaBlock[Module[ {saved}, saved = frame @ getTitle[] ; ... called..."] ; LongCalculation[True] ; frame @ setTitle[saved] ; ReleaseObject[event] ; ]]](../HTMLFiles/index_321.gif)
Clicking a menu item invokes this command handler.
Converted by Mathematica (July 17, 2003)