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