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