Ups, GetRawOwnedObject already returns an IntPtr
This commit is contained in:
parent
24f3d17d5c
commit
354c8e8cf7
12 changed files with 12 additions and 12 deletions
|
@ -13,7 +13,7 @@ namespace GtkNamespace
|
||||||
|
|
||||||
public MainWindow() : this(new Builder("MainWindow.glade")) { }
|
public MainWindow() : this(new Builder("MainWindow.glade")) { }
|
||||||
|
|
||||||
private MainWindow(Builder builder) : base(builder.GetRawOwnedObject("MainWindow").Handle)
|
private MainWindow(Builder builder) : base(builder.GetRawOwnedObject("MainWindow"))
|
||||||
{
|
{
|
||||||
builder.Autoconnect(this);
|
builder.Autoconnect(this);
|
||||||
|
|
||||||
|
|
|
@ -8,7 +8,7 @@ namespace GtkNamespace
|
||||||
{
|
{
|
||||||
public Gtk_Dialog() : this(new Builder("Gtk_Dialog.glade")) { }
|
public Gtk_Dialog() : this(new Builder("Gtk_Dialog.glade")) { }
|
||||||
|
|
||||||
private Gtk_Dialog(Builder builder) : base(builder.GetRawOwnedObject("Gtk_Dialog").Handle)
|
private Gtk_Dialog(Builder builder) : base(builder.GetRawOwnedObject("Gtk_Dialog"))
|
||||||
{
|
{
|
||||||
builder.Autoconnect(this);
|
builder.Autoconnect(this);
|
||||||
DefaultResponse = ResponseType.Cancel;
|
DefaultResponse = ResponseType.Cancel;
|
||||||
|
|
|
@ -8,7 +8,7 @@ namespace GtkNamespace
|
||||||
{
|
{
|
||||||
public Gtk_Widget() : this(new Builder("Gtk_Widget.glade")) { }
|
public Gtk_Widget() : this(new Builder("Gtk_Widget.glade")) { }
|
||||||
|
|
||||||
private Gtk_Widget(Builder builder) : base(builder.GetRawOwnedObject("Gtk_Widget").Handle)
|
private Gtk_Widget(Builder builder) : base(builder.GetRawOwnedObject("Gtk_Widget"))
|
||||||
{
|
{
|
||||||
builder.Autoconnect(this);
|
builder.Autoconnect(this);
|
||||||
}
|
}
|
||||||
|
|
|
@ -8,7 +8,7 @@ namespace GtkNamespace
|
||||||
{
|
{
|
||||||
public Gtk_Window() : this(new Builder("Gtk_Window.glade")) { }
|
public Gtk_Window() : this(new Builder("Gtk_Window.glade")) { }
|
||||||
|
|
||||||
private Gtk_Window(Builder builder) : base(builder.GetRawOwnedObject("Gtk_Window").Handle)
|
private Gtk_Window(Builder builder) : base(builder.GetRawOwnedObject("Gtk_Window"))
|
||||||
{
|
{
|
||||||
builder.Autoconnect(this);
|
builder.Autoconnect(this);
|
||||||
}
|
}
|
||||||
|
|
|
@ -3,7 +3,7 @@ namespace GtkNamespace
|
||||||
open Gtk
|
open Gtk
|
||||||
|
|
||||||
type MainWindow (builder : Builder) as this =
|
type MainWindow (builder : Builder) as this =
|
||||||
inherit Window(builder.GetRawOwnedObject("MainWindow").Handle)
|
inherit Window(builder.GetRawOwnedObject("MainWindow"))
|
||||||
|
|
||||||
let mutable _label1 : Label = null
|
let mutable _label1 : Label = null
|
||||||
let mutable _button1 : Button = null
|
let mutable _button1 : Button = null
|
||||||
|
|
|
@ -3,7 +3,7 @@ namespace GtkNamespace
|
||||||
open Gtk
|
open Gtk
|
||||||
|
|
||||||
type Gtk_Dialog (builder : Builder) as this =
|
type Gtk_Dialog (builder : Builder) as this =
|
||||||
inherit Dialog(builder.GetRawOwnedObject("Gtk_Dialog").Handle)
|
inherit Dialog(builder.GetRawOwnedObject("Gtk_Dialog"))
|
||||||
do
|
do
|
||||||
this.DefaultResponse <- ResponseType.Cancel;
|
this.DefaultResponse <- ResponseType.Cancel;
|
||||||
this.Response.Add(fun _ ->
|
this.Response.Add(fun _ ->
|
||||||
|
|
|
@ -3,6 +3,6 @@ namespace GtkNamespace
|
||||||
open Gtk
|
open Gtk
|
||||||
|
|
||||||
type Gtk_Widget (builder : Builder) =
|
type Gtk_Widget (builder : Builder) =
|
||||||
inherit Box(builder.GetRawOwnedObject("Gtk_Widget").Handle)
|
inherit Box(builder.GetRawOwnedObject("Gtk_Widget"))
|
||||||
|
|
||||||
new() = new Gtk_Widget(new Builder("Gtk_Widget.glade"))
|
new() = new Gtk_Widget(new Builder("Gtk_Widget.glade"))
|
||||||
|
|
|
@ -3,6 +3,6 @@ namespace GtkNamespace
|
||||||
open Gtk
|
open Gtk
|
||||||
|
|
||||||
type Gtk_Window (builder : Builder) =
|
type Gtk_Window (builder : Builder) =
|
||||||
inherit Window(builder.GetRawOwnedObject("Gtk_Window").Handle)
|
inherit Window(builder.GetRawOwnedObject("Gtk_Window"))
|
||||||
|
|
||||||
new() = new Gtk_Window(new Builder("Gtk_Window.glade"))
|
new() = new Gtk_Window(new Builder("Gtk_Window.glade"))
|
||||||
|
|
|
@ -11,7 +11,7 @@ Namespace GtkNamespace
|
||||||
<UI>Private _button1 As Button
|
<UI>Private _button1 As Button
|
||||||
|
|
||||||
Public Sub New (builder as Builder)
|
Public Sub New (builder as Builder)
|
||||||
MyBase.New(builder.GetRawOwnedObject("MainWindow").Handle)
|
MyBase.New(builder.GetRawOwnedObject("MainWindow"))
|
||||||
|
|
||||||
builder.Autoconnect (Me)
|
builder.Autoconnect (Me)
|
||||||
|
|
||||||
|
|
|
@ -7,7 +7,7 @@ Namespace GtkNamespace
|
||||||
Inherits Dialog
|
Inherits Dialog
|
||||||
|
|
||||||
Public Sub New (builder as Builder)
|
Public Sub New (builder as Builder)
|
||||||
MyBase.New (builder.GetRawOwnedObject("Gtk_Dialog").Handle)
|
MyBase.New (builder.GetRawOwnedObject("Gtk_Dialog"))
|
||||||
|
|
||||||
builder.Autoconnect (Me)
|
builder.Autoconnect (Me)
|
||||||
DefaultResponse = ResponseType.Cancel
|
DefaultResponse = ResponseType.Cancel
|
||||||
|
|
|
@ -7,7 +7,7 @@ Namespace GtkNamespace
|
||||||
Inherits Box
|
Inherits Box
|
||||||
|
|
||||||
Public Sub New (builder as Builder)
|
Public Sub New (builder as Builder)
|
||||||
MyBase.New (builder.GetRawOwnedObject("Gtk_Widget").Handle)
|
MyBase.New (builder.GetRawOwnedObject("Gtk_Widget"))
|
||||||
|
|
||||||
builder.Autoconnect (Me)
|
builder.Autoconnect (Me)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
|
@ -7,7 +7,7 @@ Namespace GtkNamespace
|
||||||
Inherits Window
|
Inherits Window
|
||||||
|
|
||||||
Public Sub New (builder as Builder)
|
Public Sub New (builder as Builder)
|
||||||
MyBase.New (builder.GetRawOwnedObject("Gtk_Window").Handle)
|
MyBase.New (builder.GetRawOwnedObject("Gtk_Window"))
|
||||||
|
|
||||||
builder.Autoconnect (Me)
|
builder.Autoconnect (Me)
|
||||||
End Sub
|
End Sub
|
||||||
|
|
Loading…
Reference in a new issue