diff --git a/TODO.FACTOR.txt b/TODO.FACTOR.txt index 3e20cd5074..5955497d23 100644 --- a/TODO.FACTOR.txt +++ b/TODO.FACTOR.txt @@ -15,7 +15,6 @@ - growable data heap - more compact relocation info - update module system docs -- cocoa: close item disabled + ui: diff --git a/library/ui/gestures.factor b/library/ui/gestures.factor index 0833a2fd8a..7290d25b23 100644 --- a/library/ui/gestures.factor +++ b/library/ui/gestures.factor @@ -166,8 +166,7 @@ SYMBOL: double-click-timeout ] if ] bind ; -: update-clicked ( button -- ) - hand-last-button set-global +: update-clicked ( -- ) hand-gadget get-global hand-clicked set-global hand-loc get-global hand-click-loc set-global millis hand-last-time set-global ; @@ -188,7 +187,8 @@ SYMBOL: double-click-timeout move-hand dup button-down-# dup update-click# - dup update-clicked + dup hand-last-button set-global + update-clicked hand-buttons get-global push button-gesture ;