Another update from ingydotnet^djgoku
This commit is contained in:
parent
91df62d461
commit
948b86eafa
7604 changed files with 108452 additions and 22726 deletions
31
Task/Hello-world-Graphical/Elena/hello-world-graphical.elena
Normal file
31
Task/Hello-world-Graphical/Elena/hello-world-graphical.elena
Normal file
|
|
@ -0,0 +1,31 @@
|
|||
#import forms.
|
||||
#import system.
|
||||
|
||||
#class Window :: SDIDialog
|
||||
{
|
||||
#field goodByeWorldLabel.
|
||||
#field closeButton.
|
||||
|
||||
#constructor new <= (new)
|
||||
[
|
||||
goodByeWorldLabel := Label new.
|
||||
closeButton := Button new.
|
||||
|
||||
theControls append:goodByeWorldLabel.
|
||||
theControls append:closeButton.
|
||||
|
||||
$self set &x:250 &y:200.
|
||||
$self set &width:200 &height:110.
|
||||
|
||||
goodByeWorldLabel set &x:40 &y:10.
|
||||
goodByeWorldLabel set &width:150 &height:30.
|
||||
goodByeWorldLabel 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. ].
|
||||
]
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue