27 lines
655 B
Text
27 lines
655 B
Text
import forms;
|
|
|
|
public class MainWindow : SDIDialog
|
|
{
|
|
Label goodByeWorldLabel;
|
|
Button closeButton;
|
|
|
|
constructor new()
|
|
<= new()
|
|
{
|
|
goodByeWorldLabel := new Label();
|
|
closeButton := new Button();
|
|
|
|
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() };
|
|
}
|
|
}
|