#r "nuget: GirCore.Gtk-4.0,0.5.0" open System open Gtk let label () = let label = new Label() label.SetText "hello" label let button (label: Label) = let button = new Button() button.SetLabel "click me" let mutable counter = 0 let clickHnd (_: Button) (_: EventArgs) = label.SetText $"hello {counter}" counter <- counter + 1 button.add_OnClicked (new GObject.SignalHandler<Button>(clickHnd)) button let box () = let box = new Box() box.SetOrientation Orientation.Vertical box.SetHomogeneous true let l = label () box.Append l button l |> box.Append box let onActivateApp (sender: Gio.Application) (_: EventArgs) = let window = ApplicationWindow.New(sender :?> Application) window.Title <- "Gtk4 Window" window.SetDefaultSize(300, 300) window.SetChild(box ()) window.Show() let application = Application.New("org.gir.core", Gio.ApplicationFlags.FlagsNone) application.add_OnActivate (new GObject.SignalHandler<Gio.Application>(onActivateApp)) application.RunWithSynchronizationContext(null) The above code does the following:
- creates a 300px Ă 300px window with GTK4
- the window title is "Gtk4 Window"
- it has a button and a label controls
- when clicking the button the label text changes to show the value of a counter that increases with each click
Notice the code is an F# script, which means it doesn't need a main function and can run by putting the code in an .fsx file and then running it with dotnet fsi your_file.fsx
Top comments (2)
Is there any advantage of using GTK instead of something like Avalonia?
A simple window in GTK seems to be more resource efficient than one in Avalonia. On the other hand Avalonia has functional wrappers that might be more appealing to some people.