Hello world/Graphical: Difference between revisions

m
(Add SmileBASIC implementation)
Line 868:
 
=={{header|Elena}}==
ELENA 34.3x :
<lang elena>import forms.;
public class MainWindow: : SDIDialog
{
objectLabel goodByeWorldLabel.;
objectButton closeButton.;
constructor new ()
<= new;()
[{
goodByeWorldLabel := Label new. Label();
closeButton := Button new. Button();
theControls self
append:.appendControl(goodByeWorldLabel;)
append:closeButton.appendControl(closeButton);
 
$self.setRegion(250, 200, 200, 110);
 
set x:250 y:200;
goodByeWorldLabel.Caption := "Goodbye, World!";
set width:200 height:110.
goodByeWorldLabel.setRegion(40, 10, 150, 30);
 
goodByeWorldLabel
closeButton.Caption set x:40= y:10"Close";
closeButton.setRegion(20, 40, set width:150, height:30);
closeButton.onClick := (args){ forward program.stop() };
set caption:"Goodbye, World!".
]}
closeButton
set x:20 y:40;
set width:150 height:30;
set caption:"Close";
set onClick(:args)[ 'program stop ]
]
}</lang>
 
Anonymous user