•Add menus

In[175]:=

submenuFilter = NewJMenu[Null, "Filter", "F"]

In[176]:=

menuEffect @ insert[submenuFilter, 0]

In[177]:=

(* *)

In[178]:=

itemFilterBoxFilter = NewJMenuItem[submenuFilter, "Box", "B"]

In[179]:=

itemFilterGaussianFilter = NewJMenuItem[submenuFilter, "Gaussian", "G"]

In[180]:=

itemFilterHighpassFilter = NewJMenuItem[submenuFilter, "Highpass", "H"]

In[181]:=

itemFilterUnsharpFilter = NewJMenuItem[submenuFilter, "Unsharp", "U"]

In[182]:=

itemFilterSmoothingFilter = NewJMenuItem[submenuFilter, "Smoothing", "S"]

In[183]:=

itemFilterLaplacianOfGaussianFilter = NewJMenuItem[submenuFilter, "Laplacian of Gaussian", "L"]

In[184]:=

itemFilterThreshold = NewJMenuItem[submenuFilter, "Threshold", "R"]


Converted by Mathematica  (July 17, 2003)