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:
|