GUI.SetTextPart of GUI module

Syntax   GUI.SetText (widgetID : int, text : string)

Description   Sets the text of a text field specified by widgetID to text. The selection is set to 1, 1 (i.e. the cursor is at the beginning of the text).

Status   Exported qualified.

This means that you can only call the function by calling GUI.SetText, not by calling SetText.

Example   The following program converts all lower case input in the text field to upper case when the user presses ENTER.

        import GUI
        
        var textField, lbl : int
        
        procedure CheckInput (s : string)
            var newString : string := ""
            for i : 1 .. length (s)
                if 'a' <= s (i) and s (i) <= 'z' then
                    newString += chr (ord (s (i))  32)
                else
                    newString += s (i)
                end if
            end for
            GUI.SetText (textField, newString)
            GUI.SetSelection (textField, 1, 1)
        end CheckInput
        
        textField := GUI.CreateTextField (100, 100, 200, "", CheckInput)
        lbl := GUI.CreateLabelFull (100 + GUI.GetWidth (textField) div 2,
            100 + GUI.GetHeight (textField),  "Converts to Upper Case", 
            0, 0, GUI.CENTER + GUI.BOTTOM, 0)
        
        loop
            exit when GUI.ProcessEvent
        end loop
Status   Exported qualified.

This means that you can only call the function by calling GUI.SetText, not by calling SetText.

See also   GUI.CreateTextField.