15 lines
368 B
Text
15 lines
368 B
Text
|
use Gtk2;
|
||
|
|
|
||
|
|
bundle Default {
|
||
|
|
class GtkHello {
|
||
|
|
function : Main(args : String[]) ~ Nil {
|
||
|
|
window := GtkWindow->New();
|
||
|
|
delete_callback := Events->DeleteEvent(GtkWidget) ~ Nil;
|
||
|
|
window->SignalConnect(Signal->Destroy, window->As(GtkWidget), delete_callback);
|
||
|
|
window->SetTitle("Title");
|
||
|
|
window->Show();
|
||
|
|
Appliction->Main();
|
||
|
|
}
|
||
|
|
}
|
||
|
|
}
|