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

40
Task/Hello-world-Graphical/Elena/hello-world-graphical.elena
View file

@ -1,31 +1,33 @@
#import forms.
#import system.
import forms.
#class Window :: SDIDialog
class Window :: SDIDialog
{
#field goodByeWorldLabel.
#field closeButton.
object goodByeWorldLabel.
object closeButton.
#constructor new <= (new)
constructor new
<= new;
[
goodByeWorldLabel := Label new.
closeButton := Button new.
theControls append:goodByeWorldLabel.
theControls append:closeButton.
theControls
append:goodByeWorldLabel;
append:closeButton.
$self set &x:250 &y:200.
$self set &width:200 &height:110.
$self
set x:250 y:200;
set width:200 height:110.
goodByeWorldLabel set &x:40 &y:10.
goodByeWorldLabel set &width:150 &height:30.
goodByeWorldLabel set &caption:"Goodbye, World!".
goodByeWorldLabel
set x:40 y:10;
set width:150 height:30;
set caption:"Goodbye, World!".
closeButton set &x:20 &y:40.
closeButton set &width:150 &height:30.
closeButton set &caption:"Close".
closeButton set &onClick:args
[ 'program stop. ].
closeButton
set x:20 y:40;
set width:150 height:30;
set caption:"Close";
set onClick(:args)[ 'program stop ]
]
}