Version: 1.1
Date: Le 6 août 1997
Rédaction: Jocelyn Houle
Direction: Jean Vaucher
BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("CheckBox") DO BEGIN REF(Button) Quit; REF(CheckBox) Case; Case :- MakeCheckBox("Case a cocher"); Quit :- MakeButton("Ok").PlaceDownRight; SetSize(150, 70); Show; Quit.Wait; OutText( "La case" & (IF Case.Checked THEN " est cochee." ELSE " n'est pas cochee.") ); END; END;
La CheckBox a été créée grâce à la fonction MakeCheckBox qui a nécéssité qu'on lui spécifie directement le texte associé ("Case a cocher").
L'attribut Checked retourne TRUE si la case est cochée, est FALSE sinon.
Pour savoir l'état de la case, on a:
![]() |
|
Et il existe aussi 2 procédures qui permettent de définir ou modifier la valeur de la case:
![]() |
|
![]() |
|
Finalement, si jamais on a besoin de changer le texte accompagnateur, il existe la procédure suivante:
![]() |
|