Initial data commit
This commit is contained in:
parent
72d218235f
commit
f23f22d71c
199087 changed files with 3378941 additions and 0 deletions
|
|
@ -0,0 +1,29 @@
|
|||
import forms;
|
||||
|
||||
public class MainWindow : SDIDialog
|
||||
{
|
||||
Label goodByeWorldLabel;
|
||||
Button closeButton;
|
||||
|
||||
constructor new()
|
||||
<= new()
|
||||
{
|
||||
self.Caption := "ELENA";
|
||||
|
||||
goodByeWorldLabel := Label.new();
|
||||
closeButton := Button.new();
|
||||
|
||||
self
|
||||
.appendControl(goodByeWorldLabel)
|
||||
.appendControl(closeButton);
|
||||
|
||||
self.setRegion(250, 200, 200, 110);
|
||||
|
||||
goodByeWorldLabel.Caption := "Goodbye, World!";
|
||||
goodByeWorldLabel.setRegion(40, 10, 150, 30);
|
||||
|
||||
closeButton.Caption := "Close";
|
||||
closeButton.setRegion(20, 40, 150, 30);
|
||||
closeButton.onClick := (args){ forward program.stop() };
|
||||
}
|
||||
}
|
||||
|
|
@ -0,0 +1,27 @@
|
|||
import xforms;
|
||||
|
||||
const layout = "
|
||||
<Form X=""250"" Y=""200"" Height=""110"" Width=""200"" Caption=""ELENA"">
|
||||
<Label X=""40"" Y=""10"" Width=""150"" Height=""30"" Caption=""Goodbye, World!"">
|
||||
</Label>
|
||||
<Button X=""20"" Y=""40"" Width=""150"" Height=""30"" Caption=""Close"" onClick=""onExit"">
|
||||
</Button>
|
||||
</Form>";
|
||||
|
||||
public class MainWindow
|
||||
{
|
||||
Form;
|
||||
|
||||
constructor new()
|
||||
{
|
||||
Form := xforms.execute(layout, self);
|
||||
}
|
||||
|
||||
onExit(arg)
|
||||
{
|
||||
forward program.stop()
|
||||
}
|
||||
|
||||
dispatch() => Form;
|
||||
|
||||
}
|
||||
Loading…
Add table
Add a link
Reference in a new issue