A-M baby

Task/Mouse-position/Factor/mouse-position.factor

@@ -0,0 +1,13 @@
+: replace-text ( button text -- )
+    [ drop children>> pop drop ] [ >label add-gadget drop ] 2bi;
+: present-locations ( loc1 loc2 -- string )
+    [
+      first2 [ number>string ] bi@ "," glue
+    ] bi@ ";" glue ;
+: example ( -- ) "click me"
+[
+  dup hand-rel ! location relative to the button
+  hand-loc get ! location relative to the window
+  present-locations replace-text
+]
+<border-button> gadget. ;