class MenuBar example

The following is the code generated by the Menu Designer for a basic menu that contains an empty File menu, the standard Edit menu, and a Window menu which lists all the open MDI forms. Note that the standard bootstrap code at the top of the file takes a form object as a parameter, and then binds the menubar object to that form using the name "root".

** END HEADER -- do not remove this line

//

// Generated on 01/09/98

//

parameter formObj

new BASICMENU(formObj, "root")

class BASICMENU(formObj, name) of MENUBAR(formObj, name)

   this.FILE = new MENU(this) 

   with (this.FILE) 

      text = "&File" 

   endwith 

   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 

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

   with (this.EDIT.CUT) 

      text = "Cu&t" 

      shortCut = "Ctrl+X" 

   endwith 

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

   with (this.EDIT.COPY) 

      text = "&Copy" 

      shortCut = "Ctrl+C" 

   endwith 

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

   with (this.EDIT.PASTE) 

      text = "&Paste" 

      shortCut = "Ctrl+V" 

   endwith 

   this.WINDOW = new MENU(this) 

   with (this.WINDOW) 

      text = "&Window" 

   endwith 

   this.windowMenu = this.WINDOW 

   this.editCutMenu = this.EDIT.cut 

   this.editCopyMenu = this.EDIT.copy 

   this.editPasteMenu = this.EDIT.paste 

   this.editUndoMenu = this.EDIT.undo 

endclass