| GUI.GetEventWidgetID | Part of GUI module |
| Syntax | GUI.GetEventWidgetID : int
|
| Description | Returns the widget ID of the widget that was activated by the mouse button press or the keystroke. This function should only be called in an action procedure, as it will return 1 when there is no event that activated a widget being processed. This function is used when a several buttons use the same action procedure to determine which button was pressed.
|
| Example | The following program prints a message stating which button was selected.
import GUI in "%oot/lib/GUI"
View.Set ("graphics:150;210")
var buttonNames : array 1 .. 5 of string := init ("Red", "Green",
"Blue", "Yellow", "Purple")
var buttons : array 1 .. 5 of int
procedure ButtonPush
for i : 1 .. 5
if GUI.GetEventWidgetID = buttons (i) then
Text.Locate (1, 1)
put buttonNames (i), " selected"
end if
end for
end ButtonPush
for i : 1 .. 5
buttons (i) := GUI.CreateButton (10, 210 40 * i, 110,
buttonNames (i), ButtonPush)
end for
loop
exit when GUI.ProcessEvent
end loop
|
| Status | Exported qualified. This means that you can only call the function by calling GUI.GetEventWidgetID, not by calling GetEventWidgetID.
|
| See also | GUI.ProcessEvent.
|