Simple windowed application: Difference between revisions

Content added Content deleted

Inline

@@ Line 678: / Line 678: @@
 =={{header|Elena}}==
+ELENA 3.1:
-<lang elena>#import system.
-#import forms.
+<lang elena>import forms.
-#import extensions.
+import extensions.
+class Window
-#class Window
 {
-    #field form.
+    object form.
-    #field lblClicks.
+    object lblClicks.
-    #field btmClickMe.
+    object btmClickMe.
-    #field clicksCount.
+    //Store how much clicks the user doed
+    object clicksCount.
-    #constructor new
+    constructor new
     [
         form := SDIDialog new.
@@ Line 697: / Line 700: @@
         clicksCount := 0.
-        form controls append:lblClicks.
+        form controls; append:lblClicks.
-        form controls append:btmClickMe.
+        form controls; append:btmClickMe.
-        form set &caption:"Rosseta Code".
+        form set caption:"Rosseta Code".
-        form set &x:100 &y:100.
+        form set x:100 y:100.
-        form set &width:160 &height:80.
+        form set width:160 height:80.
-        lblClicks set &x:10 &y:2.
+        lblClicks set x:10 y:2.
-        lblClicks set &width:160 &height:20.
+        lblClicks set width:160 height:20.
-        lblClicks set &caption:"Clicks: 0".
+        lblClicks set caption:"Clicks: 0".
-        btmClickMe set &x:7 &y:20.
+        btmClickMe set x:7 y:20.
-        btmClickMe set &width:140 &height:30.
+        btmClickMe set width:140 height:30.
-        btmClickMe set &caption:"Click me".
+        btmClickMe set caption:"Click me".
-        btmClickMe set &onClick:args
+        btmClickMe set onClick: (:args)
-            [ $self $onButtonClick. ].
+            [ $self $onButtonClick ]
     ]
-    #method $onButtonClick
+    $onButtonClick
     [
         clicksCount := clicksCount + 1.
-        lblClicks set &caption:("Clicks: " + clicksCount literal).
+        lblClicks set caption:("Clicks: " + clicksCount literal).
     ]
-    #method => form.
+    dispatch => form.
 }</lang>