GUI component interaction: Difference between revisions

Content added Content deleted

Inline

@@ Line 668: / Line 668: @@
     #field btmRandom.
     #field txtNumber.
-    #field number.
     #constructor new
@@ Line 677: / Line 675: @@
         btmRandom    := Button new.
         txtNumber    := Edit new.
-        number := 0.
         form controls
@@ Line 691: / Line 687: @@
         txtNumber set &x:7 &y:7.
         txtNumber set &width:140 &height:25.
-        txtNumber set &caption:(number literal).
+        txtNumber set &caption:"0".
         btmIncrement set &x:7 &y:35.
@@ Line 710: / Line 706: @@
     #method $onButtonIncrementClick
     [
+        #var number := txtNumber value toInt.
         number := number + 1.
-        $self $changeTextBoxValue.
+        $self $changeTextBoxValue:number.
     ]
@@ Line 718: / Line 716: @@
         (messageDialog open &caption:"Inf" &question:"Really reset to random value?")?
         [
-            number := randomGenerator eval:99999999.
+            $self $changeTextBoxValue:(randomGenerator eval:99999999).
-            $self $changeTextBoxValue.
         ].
     ]
-    #method $changeTextBoxValue
+    #method $changeTextBoxValue : number
     [
         txtNumber set &caption:(number literal).