GtkSharp/Source/Templates/GtkSharp.Template.FSharp/content/GtkSharp.Dialog.FSharp/Gtk_Dialog.fs

namespace GtkNamespace

open Gtk

type Gtk_Dialog (builder : Builder) as this =
    inherit Dialog(builder.GetRawOwnedObject("Gtk_Dialog"))
    do
        this.DefaultResponse <- ResponseType.Cancel;
        this.Response.Add(fun _ ->
            this.Hide();
        )

    new() = new Gtk_Dialog(new Builder("Gtk_Dialog.glade"))
F# templates + minnor template fixes 2018-02-26 21:41:01 +00:00			`namespace GtkNamespace`

			`open Gtk`

			`type Gtk_Dialog (builder : Builder) as this =`
Ups, GetRawOwnedObject already returns an IntPtr 2021-03-19 18:31:57 +00:00			`inherit Dialog(builder.GetRawOwnedObject("Gtk_Dialog"))`
F# templates + minnor template fixes 2018-02-26 21:41:01 +00:00			`do`
			`this.DefaultResponse <- ResponseType.Cancel;`
			`this.Response.Add(fun _ ->`
			`this.Hide();`
			`)`

			`new() = new Gtk_Dialog(new Builder("Gtk_Dialog.glade"))`