Program.fs

module MathMan.Main

open System
open System.Windows.Forms
open MathManDesign
open TrivialBehind

type MathManBehind(ui: MathManUi) = 
    let mutable counter = 0;
    do
        ui.button1.Click.Add <| fun _ ->
            counter <- counter + 1
            ui.label1.Text <- sprintf "Lorem ipsum %d" counter

let registerBehinds() =
    TrivialBehinds.RegisterBehind<MathManUi, MathManBehind>()
    

[<EntryPoint; STAThread>]
let main argv =
    Application.EnableVisualStyles()
    Application.SetCompatibleTextRenderingDefault(false)
    registerBehinds()
    use form = new MathManForm()
    Application.Run(form)    
    0 // return an integer exit code