9 lines
192 B
Forth
9 lines
192 B
Forth
|
namespace GtkNamespace
|
||
|
|
|
||
|
|
open Gtk
|
||
|
|
|
||
|
|
type Gtk_Window (builder : Builder) =
|
||
|
|
inherit Window(builder.GetObject("Gtk_Window").Handle)
|
||
|
|
|
||
|
|
new() = new Gtk_Window(new Builder("Gtk_Window.glade"))
|