# .require. mono
# .compile-only.
# .args. -c -pkg:gtk-sharp-2.0
"""
cobra-svn -pkg:gtk-sharp-2.0 gtk-window.cobra
"""

use Gtk


class MainWindow
    inherits Gtk.Window  # qualified class ref

    cue init
        base.init(WindowType.Toplevel)
        .title = 'Main Window'
        listen .deleteEvent, ref .onDeleteEvent

    def onDeleteEvent(sender as System.Object, args as DeleteEventArgs)
        Gtk.Application.quit
        args.retVal = true


class Program

    def main is shared
        Gtk.Application.init
        window = MainWindow()
        window.show
        Application.run