home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / obtn52.zip / BUTTON.CH < prev    next >
Text File  |  1993-05-21  |  453b  |  15 lines
  1. #ifndef _BUTTON_CH
  2. #define _BUTTON_CH
  3.  
  4. #xcommand @ <nRow>, <nCol> BUTTON <cPrompt> ;
  5.              [ <action:ACTION,EXECUTE,EXEC> <uAction> ] ;
  6.              [ WHEN <uWhen> ] ;
  7.              [ VALID <uValid> ] ;
  8.              [ COLOR <cColors> ] ;
  9.         => ;
  10.           AAdd( GetList, TButton():New( <nRow>, <nCol>, <cPrompt>,;
  11.                 <{uAction}>, <{uWhen}>, <{uValid}>, <cColors> ) ) ;;
  12.           ATail( GetList ):Display()
  13.  
  14. #endif
  15.