Sitelet.Client.fs

module Client =
    open IntelliFactory.WebSharper.Html

    [<JavaScript>]
    let Button label =
        Button [Text label]
        |>! OnClick (fun button _ ->
            button.Text <- "CLICKED")

    type ButtonControl(label: string) =
        inherit Web.Control()

        new () = new ButtonControl("unlabelled")

        [<JavaScript>]
        override this.Body = Button label :> _