home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 8 / CDASC08.ISO / VRAC / OBJ20D.ZIP / MENUS.CH < prev    next >
Text File  |  1993-05-15  |  550b  |  21 lines
  1. #ifndef _MENUS_CH
  2. #define _MENUS_CH
  3.  
  4. #xcommand DEFINE MENU <oMenu> ;
  5.        => ;
  6.           <oMenu> := TMenu():New()
  7.  
  8. #xcommand DEFINE PAD [<oPad>] ;
  9.              [ OF <oMenu> ] ;
  10.              [ PROMPT <cPrompt> ] ;
  11.              [ AT <nRow>, <nCol> ] ;
  12.              [ ACTION <uAction> ] ;
  13.              [ MESSAGE <cMsg> ] ;
  14.        => ;
  15.           <oMenu>:AddItem( [ <oPad> := ] TMenuItem():New( <nRow>, <nCol>,;
  16.                            <cPrompt>, <cMsg>, <{uAction}> ) )
  17.  
  18. #xcommand ACTIVATE MENU <oMenu> => <oMenu>:Exec()
  19.  
  20. #endif
  21.