home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Aktief 1995 #3 / CDA3.iso / clipper / fs35.zip / FAST.CH < prev    next >
Text File  |  1995-01-11  |  3KB  |  65 lines
  1.  
  2. // Fast header file
  3. // (C) 1992-95 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.  
  60. #define MAX_SB_VOLUME  15
  61. #define MIN_SB_VOLUME   0
  62.  
  63. #endif
  64.  
  65.