% Nom du fichier: EachType.sim % Description: Montrer la creation d'une liste d'ItemWindows % Notes: Enlever le positionnement entraine un leger decalage des % elements du a la largeur du label % Auteur: JPH % Date: Le 29 juillet 1997 % Version: 1.1 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow( "Main Window" ) DO BEGIN REF(BoolItemWindow) B_Item; REF(CharItemWindow) C_Item; REF(TextItemWindow) T_Item; REF(IntItemWindow) I_Item; REF(RealItemWindow) R_Item; REF(button) Quit; B_Item :- MakeBoolItem("Bool Label"); C_Item :- MakeCharItem("Char Label") .PlaceBelow(B_Item); T_Item :- MakeTextItem("Text Label", 10) .put("default") .PlaceBelow(C_Item); I_Item :- MakeIntItem ("Int Label", 4) .PlaceBelow(T_Item); R_Item :- MakeRealItem("Real Label", 7) .PlaceBelow(I_Item); Quit :- MakeButton("Ok").PlaceRightBelow(R_Item); SetSizeToSubwindowSize; Show; Quit.Wait; OutText("BoolItem: "); OutText(IF B_Item.get THEN "true" else "false"); OutImage; OutText("CharItem: "); OutChar(C_Item.get); OutImage; OutText("TextItem: " & T_Item.get); OutImage; OutText("IntItem: "); OutInt(I_Item.get, 10); OutImage; OutText("RealItem: "); OutFix(R_Item.get, 4, 10); OutImage; END; END;