home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / xbase / library / clipper / keyboard / radiobut / radiobtn.ch < prev    next >
Encoding:
Text File  |  1992-02-05  |  1.6 KB  |  24 lines
  1. #command @ <row>, <col> [SAY <sayxpr>]                                  ;
  2.                         GET <var>                                       ;
  3.                         [COLOR <color>]                                 ;
  4.                         [WHEN <when>]                                   ;
  5.                         [SEND <msg>]                                    ;
  6.                         WITH RADIOBUTTONS <buttons>                     ;
  7.                         [<horiz: HORIZONTAL>]                           ;
  8.                         [<nobox: NOBOX>]                                ;
  9.                         [<double: DOUBLE>]                              ;
  10.                                                                         ;
  11.       => setpos( <row>, <col> )                                         ;
  12.        ; dispbegin()                                                    ;
  13.        ; aadd( GetList, _GET_( <var>, <(var)>,"9",, <{when}> ) )        ;
  14.       [; atail(GetList):colorDisp(<color>)]                             ;
  15.       [; atail(GetList):<msg>]                                          ;
  16.        ; dispout(" ")                                                   ;
  17.        ; RadioBtnNew( atail(getlist), <{when}>,                         ;
  18.                      <row>, <col>, <sayxpr>, <var>,                     ;
  19.                      <buttons>, <.nobox.>, <.double.>, <.horiz.> )      ;
  20.        ; atail(getlist):reader := { |get| RadioBtnReader( get,          ;
  21.                                           <.nobox.>, <.horiz.>,         ;
  22.                                           <sayxpr> ) }                  ;
  23.        ; dispend()
  24.