8 lines
192 B
Forth
8 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"))
|