% Nom du fichier: RadioPanel.sim % Description: Exemple simple de RadioPanel ou l'on choisit une langue % dont le francais est le choix par defaut % Auteur: JPH % Date: Le 21 mai 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WINDOWTOOLS; INSPECT NEW MainWindow("RadioPanel") DO BEGIN REF (Button) Quit; REF (RadioPanel) RB; SetSize(200, 100); RB :- MakeRadioPanel .AddButton ("English") .AddSetButton("Francais") .AddButton ("Norsk"); Quit :- MakeButton("Ok").PlaceDownRight; Show; Quit.Wait; OutText(RB.CurrentChoice); END; END;