% Nom du fichier: ClassChoice.sim % Description: Exemple d'utilisation de CheckBoxes dans une optique % de selection des cours d'IFT de 1re annee % Auteur: JPH % Date: Le 10 juin 1997 % Version: 1.0a BEGIN EXTERNAL CLASS WindowTools; PROCEDURE OT(t); TEXT t; BEGIN SysOut.OutText(t); SysOut.OutImage; END; INSPECT NEW MainWindow("Main") DO BEGIN REF(Button) Quit; REF(CheckBox) IFT1010, IFT1020, IFT1063, !les cours de 1re annee; IFT1213, IFT1225, IFT1571; IFT1010 :- MakeCheckBox("IFT 1010 - Programmation 1"); IFT1020 :- MakeCheckBox("IFT 1020 - Programmation 2"); IFT1063 :- MakeCheckBox("IFT 1063 - Structures discretes en informatique"); IFT1213 :- MakeCheckBox("IFT 1213 - Architecture 1"); IFT1225 :- MakeCheckBox("IFT 1225 - Architecture 2"); IFT1571 :- MakeCheckBox("IFT 1571 - Modeles de recherche operationnelle"); Quit :- MakeButton("Ok").PlaceRightBelow(IFT1571); SetSizeToSubwindowSize; Show; Quit.Wait; OT("Vous avez choisi:"); IF IFT1010.Checked THEN OT(" - " & IFT1010.Current_Label); IF IFT1020.Checked THEN OT(" - " & IFT1020.Current_Label); IF IFT1063.Checked THEN OT(" - " & IFT1063.Current_Label); IF IFT1213.Checked THEN OT(" - " & IFT1213.Current_Label); IF IFT1225.Checked THEN OT(" - " & IFT1225.Current_Label); IF IFT1571.Checked THEN OT(" - " & IFT1571.Current_Label); Quit.Wait; END; END;