September Morn Update
This commit is contained in:
parent
4e2d22a71d
commit
aac6731f2c
6856 changed files with 141342 additions and 21127 deletions
|
|
@ -1,33 +1,27 @@
|
|||
import forms.
|
||||
import forms;
|
||||
|
||||
class MainWindow:: SDIDialog
|
||||
public class MainWindow : SDIDialog
|
||||
{
|
||||
object goodByeWorldLabel.
|
||||
object closeButton.
|
||||
Label goodByeWorldLabel;
|
||||
Button closeButton;
|
||||
|
||||
constructor new
|
||||
<= new;
|
||||
[
|
||||
goodByeWorldLabel := Label new.
|
||||
closeButton := Button new.
|
||||
constructor new()
|
||||
<= new()
|
||||
{
|
||||
goodByeWorldLabel := new Label();
|
||||
closeButton := new Button();
|
||||
|
||||
theControls
|
||||
append:goodByeWorldLabel;
|
||||
append:closeButton.
|
||||
self
|
||||
.appendControl(goodByeWorldLabel)
|
||||
.appendControl(closeButton);
|
||||
|
||||
$self
|
||||
set x:250 y:200;
|
||||
set width:200 height:110.
|
||||
self.setRegion(250, 200, 200, 110);
|
||||
|
||||
goodByeWorldLabel
|
||||
set x:40 y:10;
|
||||
set width:150 height:30;
|
||||
set caption:"Goodbye, World!".
|
||||
goodByeWorldLabel.Caption := "Goodbye, World!";
|
||||
goodByeWorldLabel.setRegion(40, 10, 150, 30);
|
||||
|
||||
closeButton
|
||||
set x:20 y:40;
|
||||
set width:150 height:30;
|
||||
set caption:"Close";
|
||||
set onClick(:args)[ 'program stop ]
|
||||
]
|
||||
closeButton.Caption := "Close";
|
||||
closeButton.setRegion(20, 40, 150, 30);
|
||||
closeButton.onClick := (args){ forward program.stop() };
|
||||
}
|
||||
}
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue