home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
MC00
/
S02.SCM
< prev
next >
Wrap
Text File
|
1993-05-02
|
773b
|
23 lines
{ C:\BP\CODE\S02.SCM MenuCase 0.0 13:43:07, 5/2/93 }
GetExtent(r);
R.B.Y := R.A.Y + 1;
MenuBar := new(PmenuBar,init(r,
NewMenu(
NewSubMenu('~T~his', hcnocontext,
NewMenu(
NewSubMenu('~I~s', hcNoContext,
NewMenu(
NewSubMenu('~A~', hcNoContext,
NewMenu(
NewSubMenu('~C~razy', hcNoContext,
NewMenu(
NewSubMenu('~M~enu', hcNoContext,
NewMenu(
NewItem('~F~inished', ' ',kbnokey,CmFinished, HcUselessMenu,
NIL)),
NIL)),
NIL)),
NIL)),
NewItem('e~X~it', 'Alt X',kbAltX,cmquit, hcNoContext,
NIL))),nil))));