September Morn Update

Task/GUI-component-interaction/Elena/gui-component-interaction.elena

@@ -1,70 +1,57 @@
-import forms.
-import extensions.
+import forms;
+import extensions;
 
-class Window
+public class MainWindow : SDIDialog
 {
-    object form.
-    object btmIncrement.
-    object btmRandom.
-    object txtNumber.
+    Button btmIncrement;
+    Button btmRandom;
+    Edit   txtNumber;
 
-    constructor new
-    [
-        form := SDIDialog new.
-        btmIncrement := Button new.
-        btmRandom    := Button new.
-        txtNumber    := Edit new.
+    constructor new()
+        <= new()
+    {
+        btmIncrement := new Button();
+        btmRandom    := new Button();
+        txtNumber    := new Edit();
 
-        form controls;
-                append:btmIncrement;
-                append:btmRandom;
-                append:txtNumber.
+        self
+            .appendControl:btmIncrement
+            .appendControl:btmRandom
+            .appendControl:txtNumber;
 
-        form
-            set caption:"Rosseta Code";
-            set x:100 y:100;
-            set width:160 height:120.
+        self.Caption := "Rosseta Code";
+        self.setRegion(100, 100, 160, 120);
 
-        txtNumber
-            set x:7 y:7;
-            set width:140 height:25;
-            set caption:"0".
+        txtNumber.setRegion(7, 7, 140, 25);
+        txtNumber.Caption := "0";
 
-        btmIncrement
-            set x:7 y:35;
-            set width:140 height:25;
-            set caption:"Increment";
-            set onClick: (:args)
-                [ $self $onButtonIncrementClick ].
+        btmIncrement.setRegion(7, 35, 140, 25);
+        btmIncrement.Caption := "Increment";
+        btmIncrement.onClick := (args){ self.onButtonIncrementClick() };
 
-        btmRandom
-            set x:7 y:65;
-            set width:140 height:25;
-            set caption:"Random";
-            set onClick(:args)
-                [ $self $onButtonRandomClick ]
-    ]
+        btmRandom.setRegion(7, 65, 140, 25);
+        btmRandom.Caption := "Random";
+        btmRandom.onClick := (args){ self.onButtonRandomClick() };
+    }
 
-    $onButtonIncrementClick
-    [
-        var number := txtNumber value; toInt.
+    private onButtonIncrementClick()
+    {
+        var number := txtNumber.Value.toInt();
 
-        number := number + 1.
-        $self $changeTextBoxValue:number.
-    ]
+        number := number + 1;
+        self.changeTextBoxValue(number)
+    }
 
-    $onButtonRandomClick
-    [
-        if(messageDialog open caption:"Inf" question:"Really reset to random value?")
-        [
-            $self $changeTextBoxValue(randomGenerator eval:99999999)
-        ]
-    ]
+    private onButtonRandomClick()
+    {
+        if(messageDialog.showQuestion("Inf", "Really reset to random value?"))
+        {
+            self.changeTextBoxValue(randomGenerator.eval(99999999))
+        }
+    }
 
-    $changeTextBoxValue : number
-    [
-        txtNumber set caption(number literal).
-    ]
-
-    dispatch => form.
+    private changeTextBoxValue(number)
+    {
+        txtNumber.Caption := number.toString()
+    }
 }