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 >
Text File  |  1993-05-02  |  348b  |  12 lines
  1. { C:\BP\CODE\S00.SCM  MenuCase 0.0 13:43:22, 5/2/93 }
  2. GetExtent(r);
  3. R.B.Y := R.A.Y + 1;
  4. MenuBar := new(PmenuBar,init(r,
  5. NewMenu(
  6.   NewSubMenu('~F~ile', hcnocontext,
  7.   NewMenu(
  8.         NewItem('~A~bout', ' ',kbnokey,CmAbout, hcnocontext, 
  9.         NewLine(
  10.         NewItem('e~X~it', 'Alt X',kbAltX,cmquit, hcNoContext, 
  11.   NIL)))),nil))));
  12.