mirror of
https://github.com/Ryujinx/GtkSharp.git
synced 2024-09-09 08:23:19 +02:00
14 lines
383 B
Forth
14 lines
383 B
Forth
|
namespace ${Namespace}
|
||
|
|
|
||
|
|
open Gtk
|
||
|
|
|
||
|
|
type ${EscapedIdentifier} (builder : Builder) as this =
|
||
|
|
inherit Dialog(builder.GetObject("${EscapedIdentifier}").Handle)
|
||
|
|
do
|
||
|
|
this.DefaultResponse <- ResponseType.Cancel;
|
||
|
|
this.Response.Add(fun _ ->
|
||
|
|
this.Hide();
|
||
|
|
)
|
||
|
|
|
||
|
|
new() = new ${EscapedIdentifier}(new Builder("${Namespace}.${EscapedIdentifier}.glade"))
|