Wire up floating action button

The new next action dialogue comes up immediately, hiding the animation.
That’ll need to change.

2 files changed, 4 insertions, 3 deletions

diff --git a/material/material.ur b/material/material.ur
index f63bec0..5a2f72d 100644
--- a/material/material.ur
+++ b/material/material.ur
@@ -130,14 +130,15 @@ structure FloatingActionButton = struct
   val width = 56
   val height = 56
 
-  fun make s =
+  fun make s clickHandler =
     inkCenter <- source None;
     return <xml>
       <div class={container}>
         <button
           class={element}
           onclick={fn click =>
-             set inkCenter (Some {X = click.ClientX, Y = click.ClientY})
+             set inkCenter (Some {X = click.ClientX, Y = click.ClientY});
+             clickHandler click
           }
         >
           {icon s}
diff --git a/material/material.urs b/material/material.urs
index 7cb7c89..d244ec0 100644
--- a/material/material.urs
+++ b/material/material.urs
@@ -22,7 +22,7 @@ structure Checkbox : sig
 end
 
 structure FloatingActionButton : sig
-  val make : string -> transaction xbody
+  val make : string -> (mouseEvent -> transaction unit) -> transaction xbody
 end
 
 structure List : sig