•Add menu

In[220]:=

submenuGrab = NewJMenu[Null, "Grab", "G"]

In[221]:=

menuEffect @ insert[submenuGrab, 1]

In[222]:=

(* *)

In[223]:=

itemGrabBoxFilter = NewJMenuItem[submenuGrab, "Box", "B"]

In[224]:=

itemGrabGaussianFilter = NewJMenuItem[submenuGrab, "Gaussian", "G"]

In[225]:=

itemGrabHighpassFilter = NewJMenuItem[submenuGrab, "Highpass", "H"]

In[226]:=

itemGrabUnsharpFilter = NewJMenuItem[submenuGrab, "Unsharp", "U"]

In[227]:=

itemGrabSmoothingFilter = NewJMenuItem[submenuGrab, "Smoothing", "S"]

In[228]:=

itemGrabLaplacianOfGaussianFilter = NewJMenuItem[submenuGrab, "Laplacian of Gaussian", "L"]

In[229]:=

itemGrabThreshold = NewJMenuItem[submenuGrab, "Threshold", "R"]

In[230]:=

submenuGrab @ addSeparator[]

In[231]:=

itemGrabGrabImage = NewJMenuItem[submenuGrab, "Grab Image"]

Converted by Mathematica  (July 17, 2003)