% Nom du fichier: Pictures.sim % Description: Exemple qui montre l'utilisation de la classe Picture % et de son appel d'affichage (DrawPicture) % Auteur: JPH % Date: Le 22 juillet 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WindowTools; Text PictDir = "/JSP/D3/usagers/simula/public_html/wt/Picture/"; INSPECT NEW MainWindow("Pictures") DO BEGIN REF(Button) Ok; REF(Picture) Tiger, Signature; Tiger :- GetPicture(PictDir & "tiger.gif"); Signature :- GetPicture(PictDir & "JH.xbm"); SetSize(300, 300); Ok :- MakeButton("Ok").PlaceDownRight; Show; DrawPicture(Tiger, 0, 0); Ok.Wait; DrawPicture(Signature, 20, 200); Ok.Wait; END; END;