| GUI.SetLabel | Part of GUI module |
| Syntax | GUI.SetLabel (widgetID : int, text : string)
|
| Description | Changes the text of a widget specified by widgetID to text. This procedure can accept a button, check box, radio button, label, or a labelled frame widget as the widgetID parameter. In most cases, if the text will not fit in the widget's current size, the widget will be resized to fit the text. If the widget was made larger to fit the text and then the text is changed, the widget will be resized as appropriate for the original width specified and the new text.
|
| Example | The following program changes the text in the button whenever a keystroke occurs. When the text is changed back to "Quit", the button assumes a width of 100 again.
import GUI in "%oot/lib/GUI"
View.Set ("graphics:220;50")
var short : boolean := true
var button : int
procedure KeyHandler (ch : char)
if short then
GUI.SetLabel (button, "Press This Button to Quit")
else
GUI.SetLabel (button, "Quit")
end if
short := not short
end KeyHandler
GUI.SetKeyEventHandler (KeyHandler)
button := GUI.CreateButton (10, 5, 100, "Quit", GUI.Quit)
loop
exit when GUI.ProcessEvent
end loop
|
| Status | Exported qualified. This means that you can only call the function by calling GUI.SetLabel, not by calling SetLabel.
|
| See also | GUI.CreateButton, GUI.CreateCheckBox, GUI.CreateRadioButton, GUI.CreateLabel, and GUI.CreateLabelledFrame.
|