% Nom du fichier: Ex1.sim % Description: Exemple de MenuButton a 3 choix: choix A, B et C (defaut=B) % et d'un RadioPanel a 2 choix: A et B (defaut=B) % Avant de quitter, on affiche les choix % Auteur: JPH % Date: Le 21 mai 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WINDOWTOOLS; INSPECT NEW MainWindow("MenuButton") DO BEGIN REF (Button) Quit; REF (MenuButton) PM; REF (RadioPanel) RB; SetSize(300, 100); Quit :- MakeButton("Ok").PlaceDownRight; PM :- MakeMenuButton( "#L1:Choix A#L2:Choix B#L3:Choix C", "L2" ) .PlaceWithCenterIn( 50, 50 ); RB :- MakeRadioPanel .AddButton("Choix A") .AddSetButton("Choix B") .PlaceUpRight; Show; Quit.Wait; OutText("MenuButton: " & PM.CurrentChoice); OutImage; OutText("RadioPanel: " & RB.CurrentChoice); OutImage; END; END;