Avalonia.FuncUI with Elmish and Live.Avalonia

Program.fs

namespace MyGreatApp

open Elmish
open Avalonia
open Live.Avalonia
open Avalonia.Input
open Avalonia.FuncUI
open Avalonia.Controls
open Avalonia.FuncUI.Elmish
open Avalonia.FuncUI.Components.Hosts
open Avalonia.Controls.ApplicationLifetimes

type MainControl() as this =
    inherit HostControl()

    do
        Elmish.Program.mkSimple (fun () -> Counter.init) Counter.update Counter.view
        |> Program.withHost this
#if DEBUG
        |> Program.withConsoleTrace
#endif
        |> Program.run

type App() =
    inherit Application()

    interface ILiveView with
        member __.CreateView(window: Window) = MainControl() :> obj

    override this.Initialize() =
        this.Styles.Load "avares://Citrus.Avalonia/Citrus.xaml"

    override this.OnFrameworkInitializationCompleted() =
        match this.ApplicationLifetime with
        | :? IClassicDesktopStyleApplicationLifetime ->
            let mainWindow =
                new LiveViewHost(this, (fun msg -> msg |> ignore))

            mainWindow.Title <- "2048"

            let size = 500.0
            mainWindow.Width <- size
            mainWindow.MinWidth <- size
            mainWindow.MaxWidth <- size

            mainWindow.Height <- size
            mainWindow.MinHeight <- size
            mainWindow.MaxHeight <- size
#if DEBUG
            mainWindow.Renderer.DrawFps <- true
            mainWindow.Renderer.DrawDirtyRects <- true
            mainWindow.AttachDevTools(KeyGesture(Key.I))
            mainWindow.StartWatchingSourceFilesForHotReloading()
#endif
            mainWindow.Show()
        | _ -> ()

module Program =
    [<EntryPoint>]
    let main (args: string []) =
        AppBuilder
            .Configure<App>()
            .UsePlatformDetect()
            .UseSkia()
            .StartWithClassicDesktopLifetime(args)