home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1993 #2 / Image.iso / clipper / fast220c.zip / FAST.CH < prev    next >
Text File  |  1993-08-29  |  3KB  |  56 lines
  1.  
  2. // Fast header file
  3. // (C) 1992-93 Manu Roibal
  4.  
  5.  
  6. #command DEFAULT <Var1> = <DefValue1> [, <Var2> = <DefValue2> ] => ;
  7.         <Var1> = if( <Var1> == NIL, <DefValue1>, <Var1> ) ;;
  8.         [<Var2> = if( <Var2> == NIL, <DefValue2>, <Var2> );]
  9.  
  10.  
  11. #define COM_NONE    0
  12. #define COM_EVEN    1
  13. #define COM_ODD     2
  14. #define COM_ZERO    3
  15. #define COM_ONE     4
  16.  
  17.  
  18. #command @ <row>, <col> [SAY <sayxpr>]                                     ;
  19.                         GET <var>                                          ;
  20.                         [COLOR <color>]                                    ;
  21.                         [WHEN <when>]                                      ;
  22.                         [VALID <valid>]                                    ;
  23.                         [SEND <msg>]                                       ;
  24.                         WITH RADIOBUTTONS <buttons>                        ;
  25.                         [<horiz: HORIZONTAL>]                              ;
  26.                         [<nobox: NOBOX>]                                   ;
  27.                         [<double: DOUBLE>]                                 ;
  28.                                                                            ;
  29.       => setpos( <row>, <col> )                                            ;
  30.        ; dispbegin()                                                       ;
  31.        ; aadd( GetList, _GET_( <var>, <(var)>,"9", <{valid}>, <{when}> ) ) ;
  32.       [; atail(GetList):colorDisp(<color>)]                                ;
  33.       [; atail(GetList):<msg>]                                             ;
  34.        ; dispout(" ")                                                      ;
  35.        ; RadioNew( atail(getlist), <{when}>,                               ;
  36.                   <row>, <col>, <sayxpr>, <var>,                           ;
  37.                   <buttons>, <.nobox.>, <.double.>, <.horiz.> )            ;
  38.        ; atail(getlist):reader := { |get| RadioReader( get,                ;
  39.                                           <.nobox.>, <.horiz.>,            ;
  40.                                           <sayxpr> ) }                     ;
  41.        ; dispend()
  42.  
  43. #command READ                                                           ;
  44.       => ReadModal(GetList)                                             ;
  45.        ; GetList := {}                                                  ;
  46.        ; KillButton()
  47.  
  48.  
  49. #command CLEAR GETS                                                     ;
  50.       => __KillRead()                                                   ;
  51.        ; GetList := {}                                                  ;
  52.        ; KillButton()
  53.  
  54.  
  55.  
  56.