Fix some Cocoa UI issues

2008-03-12 01:34:37 -05:00 · 2008-03-12 01:34:37 -05:00 · fd5af90cb3
parent e0f11d29ea
commit fd5af90cb3
3 changed files with 4 additions and 3 deletions
--- a/extra/ui/cocoa/views/views.factor
+++ b/extra/ui/cocoa/views/views.factor
@ -297,7 +297,7 @@ CLASS: {
 { "updateFactorGadgetSize:" "void" { "id" "SEL" "id" }
    [
        [
-            2drop dup view-dim swap window set-gadget-dim
+            2drop dup view-dim swap window set-gadget-dim yield
        ] ui-try
    ]
 }
--- a/extra/ui/gestures/gestures.factor
+++ b/extra/ui/gestures/gestures.factor
@ -119,7 +119,8 @@ SYMBOL: drag-timer

 : stop-drag-timer ( -- )
    hand-buttons get-global empty? [
-        drag-timer get-global box> cancel-alarm
+        drag-timer get-global ?box
+        [ cancel-alarm ] [ drop ] if
    ] when ;

 : fire-motion ( -- )