{Ripple.inkAnimation width height inkCenter}
set inkCenter (Some {X = click.ClientX, Y = click.ClientY});
c <- get s;
let
val c' = not c
in
set s c';
onChange c'
end
}
>
)
end
structure FloatingActionButton = struct
style container
style element
(* Pixel dimensions of the button. If you update these, you must also
update the CSS file. *)
val width = 56
val height = 56
fun make s =
inkCenter <- source None;
return