% Nom du fichier: SimpleCheckBox.sim % Description: Exemple simple de CheckBox % On affiche l'etat de la case a la fin % Auteur: JPH % Date: Le 29 juillet 1997 % Version: 1.0 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;