% Nom du fichier: HorizontalLetter.sim % Description: RadioPanel place a l'horizontal % Auteur: JPH % Date: Le 21 mai 1997 % Version: 1.0 BEGIN EXTERNAL CLASS WINDOWTOOLS; INSPECT NEW MainWindow("Choose a letter") DO BEGIN REF (Button) Quit; REF (RadioPanel) RB; SetSize(195, 100); RB :- MakeRadioPanel .SetHorizontal .AddButton("A") .AddButton("B") .AddButton("C") .AddButton("D") .AddButton("E") .AddButton("F") .SetButton("F"); Quit :- MakeButton("Ok").PlaceDownRight; Show; Quit.Wait; OutText("Letter chosen: " & RB.CurrentChoice); END; END;