% Nom du fichier: PopupMenu.sim % Description: Exemple simple de PopupMenu a trois choix: A, B et C % Le choix est affiche quand l'usager decide de quitter % (a l'aide du bouton "Ok") % Auteur: JPH % Date: Le 16 juillet 1997 % Version: 1.01a BEGIN EXTERNAL CLASS WindowTools; INSPECT NEW MainWindow("PopupMenu") DO BEGIN REF(Button) Quit; REF(JPHPopupMenu) PM; SetSize(200, 100); PM :- JPHMakePopupMenu("#Choix A#Choix B#Choix C", "Choix B") .PlaceWithCenterIn(50, 50); Show; Quit :- MakeButton("Ok").PlaceDownRight; Quit.Wait; OutText(PM.CurrentChoice); END; END;