home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
MC00
/
S00.SCM
< prev
next >
Wrap
Text File
|
1993-05-02
|
348b
|
12 lines
{ C:\BP\CODE\S00.SCM MenuCase 0.0 13:43:22, 5/2/93 }
GetExtent(r);
R.B.Y := R.A.Y + 1;
MenuBar := new(PmenuBar,init(r,
NewMenu(
NewSubMenu('~F~ile', hcnocontext,
NewMenu(
NewItem('~A~bout', ' ',kbnokey,CmAbout, hcnocontext,
NewLine(
NewItem('e~X~it', 'Alt X',kbAltX,cmquit, hcNoContext,
NIL)))),nil))));