Another update from ingydotnet^djgoku

2015-11-18 06:14:39 +00:00 · 2015-11-18 06:14:39 +00:00 · 948b86eafa
commit 948b86eafa
parent 91df62d461
7604 changed files with 108452 additions and 22726 deletions
--- a/Task/Simple-windowed-application/Elena/simple-windowed-application.elena
+++ b/Task/Simple-windowed-application/Elena/simple-windowed-application.elena
@ -0,0 +1,46 @@
+#import system.
+#import forms.
+#import extensions.
+
+#class Window
+{
+    #field form.
+    #field lblClicks.
+    #field btmClickMe.
+    #field clicksCount.
+
+    #constructor new
+    [
+        form := SDIDialog new.
+        lblClicks := Label new.
+        btmClickMe := Button new.
+
+        clicksCount := 0.
+
+        form controls append:lblClicks.
+        form controls append:btmClickMe.
+
+        form set &caption:"Rosseta Code".
+        form set &x:100 &y:100.
+        form set &width:160 &height:80.
+
+        lblClicks set &x:10 &y:2.
+        lblClicks set &width:160 &height:20.
+        lblClicks set &caption:"Clicks: 0".
+
+        btmClickMe set &x:7 &y:20.
+        btmClickMe set &width:140 &height:30.
+        btmClickMe set &caption:"Click me".
+        btmClickMe set &onClick:args
+
+            [ $self $onButtonClick. ].
+    ]
+
+    #method $onButtonClick
+    [
+        clicksCount := clicksCount + 1.
+        lblClicks set &caption:("Clicks: " + clicksCount literal).
+    ]
+
+    #method => form.
+}