aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

55
Task/Simple-windowed-application/Elena/simple-windowed-application.elena
View file

@ -1,15 +1,16 @@
#import system.
#import forms.
#import extensions.
import forms.
import extensions.
#class Window
class Window
{
#field form.
#field lblClicks.
#field btmClickMe.
#field clicksCount.
object form.
object lblClicks.
object btmClickMe.
#constructor new
//Store how much clicks the user doed
object clicksCount.
constructor new
[
form := SDIDialog new.
lblClicks := Label new.
@ -17,30 +18,32 @@
clicksCount := 0.
form controls append:lblClicks.
form controls append:btmClickMe.
form controls;
append:lblClicks;
append:btmClickMe.
form set &caption:"Rosseta Code".
form set &x:100 &y:100.
form set &width:160 &height:80.
form
set caption:"Rosseta Code";
set x:100 y:100;
set width:160 height:80.
lblClicks set &x:10 &y:2.
lblClicks set &width:160 &height:20.
lblClicks set &caption:"Clicks: 0".
lblClicks
set x:10 y:2;
set width:160 height:20;
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. ].
btmClickMe
set x:7 y:20;
set width:140 height:30;
set caption:"Click me";
set onClick(:args)[ $self $onButtonClick ]
]
#method $onButtonClick
$onButtonClick
[
clicksCount := clicksCount + 1.
lblClicks set &caption:("Clicks: " + clicksCount literal).
lblClicks set caption("Clicks: " + clicksCount literal).
]
#method => form.
dispatch => form.
}