% Nom du fichier: Ex2.sim % Description: Exemple de MenuButton a 3 choix et d'un RadioPanel a 2 choix % 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, 200); Quit :- MakeButton( "Ok" ).PlaceDownRight; PM :- MakeMenuButton( "#L1:1 fois par semaine" & "#L2:2 fois par semaine" & "#L3:3 fois par semaine" & "#L4:>3 fois par semaine", "L2" ) .PlaceCentered; RB :- MakeRadioPanel .AddButton("Choix A") .AddSetButton("Choix B") .PlaceBelow(PM); Show; Quit.Wait; OutText("MenuButton: " & PM.CurrentChoice); OutImage; OutText("RadioPanel: " & RB.CurrentChoice); OutImage; END; END;