Windows style menus (continued)

Define sub-menu FILEMENU

menu-item FOPEN label "Open... "

menu-item FSAVE label "Save as..."

menu-item FEXIT label "E&xit...".

Define sub-menu EDITMENU

menu-item FCUT label "Cut..."

menu-item FCOPY label "Copy..."

menu-item FPASTE label "Paste...".

Define menu MAINMENU menubar

sub-menu FILEMENU label "File"

sub-menu EDITMENU label "Edit".

Current-window:menubar = menu MAINMENU:handle.

Wait-for choose of this-procedure

or choose of menu-item fexit.

Previous slide

Next slide

Back to first slide

View graphic version