Initial data commit

Task/GUI-component-interaction/Ring/gui-component-interaction.ring

@@ -0,0 +1,31 @@
+Load "guilib.ring"
+
+MyApp = New qApp {
+        num = 0
+        win1 = new qWidget() {
+               setwindowtitle("Hello World")
+               setGeometry(100,100,370,250)
+
+               btn1 = new qpushbutton(win1) {
+                      setGeometry(200,200,100,30)
+                      settext("Random")
+                      setclickevent("Rand()")}
+
+               btn2 = new qpushbutton(win1) {
+                      setGeometry(50,200,100,30)
+                      settext("Increment")
+                      setclickevent("Increment()")}
+
+               lineedit1 = new qlineedit(win1) {
+                           setGeometry(10,100,350,30)}
+               show()}
+exec()}
+
+func Rand
+     num = string(random(10000))
+     lineedit1.settext(num)
+
+func Increment
+     lineedit1{ num = text()}
+     num = string(number(num)+1)
+     lineedit1.settext(num)