class Menu example

This excerpt from a .MNU file shows the definition of the top-level Edit menu item and its Undo menu item, where this is the MenuBar object:

this.EDIT = new MENU(this) 

with (this.EDIT) 

   text = "&Edit" 

endwith 

this.EDIT.UNDO = new MENU(this.EDIT) 

with (this.EDIT.UNDO) 

   text = "&Undo" 

   shortCut = "Ctrl+Z" 

endwith 

The names of the menu prompts match the names of the menu objects as a convenience; it is not required. Note the use of the ampersand to designate the pick characters and that the Undo menu item’s parent is the Edit menu. At the end of the MenuBar object constructor, the Undo menu item is assigned to the menubar’s editUndoMenu property to enable the standard Undo behavior:

this.editUndoMenu = this.EDIT.UNDO