September 2017 Update

Task/User-input-Graphical/Gambas/user-input-graphical.gambas

@@ -0,0 +1,36 @@
+hTextBox As TextBox
+hValueBox As ValueBox
+hLabel As Label
+
+Public Sub Form_Open()
+
+With Me
+  .Height = 100
+  .Width = 300
+  .padding = 5
+  .Arrangement = Arrange.Vertical
+  .Title = "User input/Graphical"
+End With
+
+hTextBox = New TextBox(Me) As "TextBox1"
+hTextBox.Expand = True
+
+hValueBox = New ValueBox(Me) As "ValueBox1"
+hValueBox.Expand = True
+
+hLabel = New Label(Me)
+hLabel.expand = True
+
+End
+
+Public Sub TextBox1_Change()
+
+hLabel.text = hTextBox.Text & " - " & Str(hValueBox.value)
+
+End
+
+Public Sub valueBox1_Change()
+
+TextBox1_Change
+
+End

Task/User-input-Graphical/Kotlin/user-input-graphical.kotlin

@@ -0,0 +1,9 @@
+// version 1.1
+
+import javax.swing.JOptionPane
+
+fun main(args: Array<String>) {
+    do {
+        val number = JOptionPane.showInputDialog("Enter 75000").toInt()
+    } while (number != 75000)
+}

Task/User-input-Graphical/Phix/user-input-graphical.phix

@@ -1,3 +1,6 @@
+--
+-- demo\rosetta\User_Input_Graphical.exw
+--
 include pGUI.e
 
 Ihandle dlg, label1, input1, label2, input2, OK, Cancel
@@ -17,7 +20,7 @@ function esc_close(Ihandle /*ih*/, atom c)
     return iff(c=K_ESC?IUP_CLOSE:IUP_CONTINUE)
 end function
 
-IupOpen("demo/pGUI/")
+IupOpen()
 label1 = IupLabel("Please enter a string")
 input1 = IupText("VALUE=\"a string\", EXPAND=HORIZONTAL")
 label2 = IupLabel("and the number 75000")