home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C!T ROM 2
/
ctrom_ii_b.zip
/
ctrom_ii_b
/
PROGRAM
/
PASCAL
/
MC00
/
S01.SCM
< prev
next >
Wrap
Text File
|
1993-05-02
|
1KB
|
26 lines
{ C:\BP\CODE\S01.SCM MenuCase 0.0 13:43:14, 5/2/93 }
GetExtent(r);
R.B.Y := R.A.Y + 1;
MenuBar := new(PmenuBar,init(r,
NewMenu(
NewSubMenu('~M~aintenance', hcnocontext,
NewMenu(
NewSubMenu('~C~lients', hcNoContext,
NewMenu(
NewItem('~A~dd client', 'F2',kbF2 ,CmAddClient, HcClientHint,
NewItem('~E~dit client', ' ',kbnokey,CmEditClient, HcClientHint,
NewLine(
NewItem('~D~elete client', ' ',kbnokey,CmDeleteClient, HcClientHint,
NIL))))),
NewItem('e~X~it', ' ',kbAltX,cmquit, hcnocontext,
NIL))),
NewSubMenu('~R~eports', hcNoContext,
NewMenu(
NewItem('~E~mployee reports', ' ',kbnokey,CmEmployeeReports, HcEmployeeHint,
NewSubMenu('~C~lient reports', hcNoContext,
NewMenu(
NewItem('~A~ll clients', ' ',kbnokey,CmReportAllClients, HcClientReportHint,
NewItem('~S~elect client', ' ',kbnokey,CmSelectClient, HcClientReportHint,
NIL))),
NIL))),nil)))));