Ryujinx-GtkSharp/Source/Templates/GtkSharp.Template.FSharp/content/GtkSharp.Application.FSharp/Program.fs
2018-02-26 22:41:01 +01:00

19 lines
415 B
Forth

namespace GtkNamespace
module Program =
open Gtk
[<EntryPoint>]
let main argv =
Application.Init()
let app = new Application("org.GtkNamespace.GtkNamespace", GLib.ApplicationFlags.None)
app.Register(GLib.Cancellable.Current) |> ignore;
let win = new MainWindow()
app.AddWindow(win)
win.Show()
Application.Run()
0