{ink.Placeholder}
ink.Trigger {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 clickHandler =
ink <- Ripple.make (width / 2);
return