% Nom du fichier: SimplePopup.sim % Description: Exemple simple de PopupMenu % On affiche le choix du menu a la fin % Auteur: JPH % Date: Le 16 juillet 1997 % Version: 0.91 (il faut enlever les JPH) BEGIN EXTERNAL CLASS windowtools; INSPECT NEW MainWindow("Popup") DO BEGIN REF(JPHPopupMenu) Popup; REF(Button) Quit; SetSize(200, 100); SetBackground("gray77"); Show; Popup :- JPHMakePopupMenu("/Avant/Pendant/Apres", "Pendant") .PlaceCentered; Quit :- MakeButton("Ok").PlaceDownRight; Quit.Wait; OutLine("Choice: " & Popup.CurrentChoice); END; END;