16 lines
578 B
Plaintext
16 lines
578 B
Plaintext
/***
|
|
* Checks.ch
|
|
*
|
|
* Definition of @ ... GET Check box command.
|
|
*/
|
|
|
|
#define CHECK_BOX "X"
|
|
|
|
#command @ <row>, <col> GET <var> CHECKBOX <cStr> [when <when>] ;
|
|
;
|
|
=> ;
|
|
SetPos(<row>, <col>) ;
|
|
; Aadd(GetList, ;
|
|
CheckGetNew({|x| iif(x == NIL, <var>, <var> := x) }, ;
|
|
<(var)>, <cStr>,<{when}>))
|