Ryujinx-GtkSharp/Source/Templates/GtkSharp.Template.VBNet/content/GtkSharp.Dialog.VBNet/Gtk_Dialog.vb

28 lines
717 B
VB.net

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.GetRawOwnedObject("Gtk_Dialog"))
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