User input/Graphical: Difference between revisions
Content added Content deleted
m (→{{header|REXX}}: changed comments and whitespace, simplified the code.) |
Drkameleon (talk | contribs) No edit summary |
||
Line 90:
<lang applescript>set input to text returned of (display dialog "Enter text:" default answer "")</lang>
<lang applescript>set input to text returned of (display dialog "Enter a number:" default answer "") as integer</lang>
=={{header|Arturo}}==
<lang arturo>use ~gui
window @mainWindow #{
:title "User Input / Graphical"
:size #(400 300)
vbox #{
hbox #{
label "string" #{}
textfield @str "" #{}
}
hbox #{
label "number" #{}
textfield @num "" #{}
}
button "Enter data" #{
:onClick {
print "Got: " + $(str.get) + ", " + $(num.get)
}
}
}
}
app @main "UserInput.Graphical" mainWindow #{}
main.run</lang>
{{out}
[[File:Example.jpg]]
<pre>Got: hello, 75000</pre>
=={{header|AutoHotkey}}==
|