% Nom du fichier: Auction.sim % Description: Exemple montrant le fonctionnement d'un bouton % Auteur: JPH % Date: Le 13 aout 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("Encheres") DO BEGIN REF(Button) TheButton; SetSize(150, 75); TheButton :- MakeButton("Click").PlaceCentered; Show; TheButton.Wait; OutText("Une fois..."); OutImage; TheButton.Wait; OutText("Deux fois..."); OutImage; TheButton.Wait; OutText("Trois fois..."); OutImage; OutText("Vendu!!!"); END; END;