Imports System
Imports Gtk
Imports UI = Gtk.Builder.ObjectAttribute

Namespace GtkNamespace
    Public Class Gtk_Dialog
        Inherits Dialog

        Public Sub New (builder as Builder)
            MyBase.New (builder.GetObject("Gtk_Dialog").Handle)

            builder.Autoconnect (Me)
            DefaultResponse = ResponseType.Cancel
            
            AddHandler MyBase.Response, AddressOf Dialog_OnResponse
        End Sub
        
        Public Sub New ()
            Me.New (new Builder ("Gtk_Dialog.glade"))
        End Sub
        
        Private Sub Dialog_OnResponse (ByVal sender As Object, ByVal args As ResponseArgs)
            Hide ()
        End Sub
        
    End Class
End Namespace