% Nom du fichier: SetCheckBoxText.sim % Description: Exemple qui montre comment changer l'etiquette % ainsi que la valeur d'une CheckBox ("toggle") % Auteur: JPH % Date: Le 29 juilet 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("CheckBox") DO BEGIN REF(Button) Quit; REF(CheckBox) Case; Case :- MakeCheckBox("Longue etiquette"); Quit :- MakeButton("Ok").PlaceDownRight; SetSize(200, 70); Show; Quit.Wait; OutText( IF Case.Checked THEN "Cochee" ELSE "Pas cochee"); OutImage; IF Case.Checked THEN Case.UnSetBox ELSE Case.SetBox; Case.SetText("Petite"); Quit.Wait; OutText( IF Case.Checked THEN "Cochee" ELSE "Pas cochee"); OutImage; END; END;