mirror of
https://github.com/Ryujinx/GtkSharp.git
synced 2024-09-17 03:44:53 +02:00
25 lines
712 B
Forth
25 lines
712 B
Forth
namespace GtkNamespace
|
|
|
|
open Gtk
|
|
|
|
type MainWindow (builder : Builder) as this =
|
|
inherit Window(builder.GetObject("MainWindow").Handle)
|
|
|
|
let mutable _label1 : Label = null
|
|
let mutable _button1 : Button = null
|
|
let mutable _counter = 0;
|
|
|
|
do
|
|
_label1 <- builder.GetObject("_label1") :?> Label
|
|
_button1 <- builder.GetObject("_button1") :?> Button
|
|
|
|
this.DeleteEvent.Add(fun _ ->
|
|
Application.Quit()
|
|
)
|
|
_button1.Clicked.Add(fun _ ->
|
|
_counter <- _counter + 1
|
|
_label1.Text <- "Hello World! This button has been clicked " + _counter.ToString() + " time(s)."
|
|
)
|
|
|
|
new() = new MainWindow(new Builder("MainWindow.glade"))
|