24 lines
643 B
Forth
24 lines
643 B
Forth
namespace web_api_cookbook
|
|
|
|
open WebSharper
|
|
open WebSharper.UI
|
|
open WebSharper.UI.Client
|
|
open WebSharper.UI.Html
|
|
open Units.Animation
|
|
open Units.Time
|
|
|
|
|
|
[<JavaScript>]
|
|
module Client =
|
|
[<SPAEntryPoint>]
|
|
let Main () =
|
|
let isClicked = Var.Create false
|
|
let opacityAnimated = Animate.valueWhen isClicked.View 1.0 0. 120.<frames/s> 1.<s>
|
|
let opacityStyle = View.MapCached (sprintf "opacity: %f") opacityAnimated
|
|
let onClick = on.click (fun _ _ -> Var.Set isClicked true)
|
|
|
|
div [] [
|
|
UI.Components.button [attr.styleDyn opacityStyle; onClick] "Hide Me"
|
|
]
|
|
|> Doc.RunById "main"
|