User input/Graphical: Difference between revisions

Content added Content deleted

Inline

@@ Line 90: / 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}}==