| GUI.SelectRadio | Part of GUI module |
| Syntax | GUI.SelectRadio (widgetID : int)
|
| Description | Selects a radio button specified by widgetID. The previously-selected radio button is "de-selected". The action procedure of the radio button is called.
|
| Example | The following program creates siz radio buttons. Selecting one of the buttons cause the bottom two radio buttons to become selected.
import GUI in "%oot/lib/GUI"
View.Set ("graphics:350;110")
var radio : array 1 .. 6 of int % The radio button IDs.
procedure RadioPressed
Text.Locate (1, 1)
for i : 1 .. 6
if radio (i) = GUI.GetEventWidgetID then
put "Radio Button " , i, " Selected"
end if
end for
end RadioPressed
procedure Select
GUI.SelectRadio (radio (3))
GUI.SelectRadio (radio (6))
end Select
radio (1) := GUI.CreateRadioButton (15, maxy 35,
"Radio Button 1", 0, RadioPressed)
radio (2) := GUI.CreateRadioButton ( 1, 1, "Radio Button 2",
radio (1), RadioPressed)
radio (3) := GUI.CreateRadioButton ( 1, 1, "Radio Button 3",
radio (2), RadioPressed)
radio (4) := GUI.CreateRadioButtonFull (maxx 15, maxy 35,
"Radio Button 4", 0, RadioPressed, GUI.RIGHT, GUI.NONE)
radio (5) := GUI.CreateRadioButtonFull ( 1, 1, "Radio Button 5",
radio (4), RadioPressed, GUI.RIGHT, GUI.NONE)
radio (6) := GUI.CreateRadioButtonFull ( 1, 1, "Radio Button 6",
radio (5), RadioPressed, GUI.RIGHT, GUI.NONE)
var selectButton : int := GUI.CreateButton (15, 10, 100,
"Select Bottom Buttons", Select)
var quitButton : int := GUI.CreateButton (maxx 15 100, 10, 100,
"Quit", GUI.Quit)loop
exit when GUI.ProcessEvent
end loop
|
| Status | Exported qualified. This means that you can only call the procedures by calling GUI.SelectRadio, not by calling SelectRadio.
|
| See also | GUI.CreateRadioButton and GUI.CreatePictureRadioButton.
|