28 lines
716 B
VB.net
28 lines
716 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.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
|