% Nom du fichier: Ask_For_Ex.sim % Description: Exemple montrant l'utilisation des 5 Ask_For % Notes: 1- La valeur de retour a un type (integer, real, etc.) % 2- On ne peut pas positionner le Ask_For ou l'on veut % 3- La taille de la fenetre parente change si le Ask_For % n'entre pas % Auteur: JPH % Date: Le 29 juillet 1997 % Version: 1.1 BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("Ask_For") DO BEGIN SetSize(200, 150); Show; OutText(Ask_For_Text("Nom")); OutImage; OutInt(Ask_For_Int("Age"), 0); OutImage; OutFix(Ask_For_Real("Taille"), 2, 0); OutImage; OutChar(Ask_For_Char("Une lettre, S.V.P.")); OutImage; IF Ask_For_Bool("Etait-ce instructif?") THEN OutText("Oui") ELSE OutText("Non"); END; END;