nomainwin

WindowWidth=500
WindowHeight=400
statictext #main.inst, "Enter your name here", 20, 20, 200, 20
textbox #main.getName,                    20, 50, 200, 25
textbox #main.message,                    20, 100, 200, 25
button #main.ok, "OK", [buttonClicked],  UL, 250, 50, 20, 20
open "Hello, username" for window as #main
#main, "trapclose [quit]"
#main.getName, "!setfocus"
wait
[buttonClicked]
#main.getName, "!contents? name$";
#main.message, "Hello, "+name$
wait

[quit]
close #main
end

 

global name$, message$ '(instead of parameters)

[StartMainProgram]
    nomainwin
    call Window.createWindow
    call Window.getInput
    call Window.Text.Combine
    call Window.printTo

[EndMainProgram]
    wait
    call Window.close handle$
    end


'No attempt is made to assign arguments that would be passed to subs or routines

sub Window.createWindow
    [Window.class.window]
        [window.alias]
        class$="window"
        [window.title]
        title$="Hello, userName"
        [window.size]
        wide=500
        high=400
        WindowWidth=wide
        WindowHeight=high
    [control.Text]
        [Text.static]
        statictext #main.instruct, "Enter your name here", 20, 20, 200, 20
        [Text.input]
        textbox #main.getName,                             20, 50, 200, 25
        textbox #main.message,                             20, 100, 200, 25
    [control.button]
        button #main.ok, "OK", [buttonOkClicked],       UL, 240, 50, 20, 20

    [Window.open]
    open title$ for window as #main
        [open.terminate]
        #main, "trapclose Window.close"
end sub

sub Window.getInput
    [control.focus]
    #main.getName, "!setfocus"
    wait
    [buttonOkClicked]
    [Text.readInput]
        #main.getName, "!contents? name$";
end sub

sub Window.Text.Combine
    message1$="Hello, "
    message$=message1$+name$
end sub

sub Window.printTo
    [control.Text]
        [Text.output]
        #main.message, message$
end sub

sub Window.close handle$
    close #handle$
end sub
    end