From be85b3bee3d391a0fc3c5ee15d43e518634d379e Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Fri, 21 Sep 2012 18:32:43 -0700
Subject: [PATCH] ui: hand-loc and hand-click-loc should be global.

---
 basis/ui/backend/windows/windows.factor |  2 +-
 basis/ui/gadgets/menus/menus.factor     |  4 ++--
 basis/ui/gadgets/panes/panes.factor     | 10 +++++-----
 basis/ui/gestures/gestures.factor       |  4 ++--
 4 files changed, 10 insertions(+), 10 deletions(-)

diff --git a/basis/ui/backend/windows/windows.factor b/basis/ui/backend/windows/windows.factor
index e39d421b0c..4ca35bb5ae 100755
--- a/basis/ui/backend/windows/windows.factor
+++ b/basis/ui/backend/windows/windows.factor
@@ -536,7 +536,7 @@ SYMBOL: nc-buttons
     >lo-hi swap window move-hand fire-motion ;
 
 :: handle-wm-mousewheel ( hWnd uMsg wParam lParam -- )
-    wParam mouse-scroll hand-loc get hWnd window send-scroll ;
+    wParam mouse-scroll hand-loc get-global hWnd window send-scroll ;
 
 : handle-wm-cancelmode ( hWnd uMsg wParam lParam -- )
     #! message sent if windows needs application to stop dragging
diff --git a/basis/ui/gadgets/menus/menus.factor b/basis/ui/gadgets/menus/menus.factor
index 70818262c5..70cc0bc971 100644
--- a/basis/ui/gadgets/menus/menus.factor
+++ b/basis/ui/gadgets/menus/menus.factor
@@ -9,7 +9,7 @@ math math.order sorting ;
 IN: ui.gadgets.menus
 
 : show-menu ( owner menu -- )
-    [ find-world ] dip hand-loc get { 0 0 } <rect> show-glass ;
+    [ find-world ] dip hand-loc get-global { 0 0 } <rect> show-glass ;
 
 GENERIC: <menu-item> ( target hook command -- button )
 
@@ -69,4 +69,4 @@ M: ---- <menu-item>
     { ---- } glue <commands-menu> ;
 
 : show-operations-menu ( gadget target hook -- )
-    <operations-menu> show-menu ;
\ No newline at end of file
+    <operations-menu> show-menu ;
diff --git a/basis/ui/gadgets/panes/panes.factor b/basis/ui/gadgets/panes/panes.factor
index b808eec1bf..35447d71c5 100644
--- a/basis/ui/gadgets/panes/panes.factor
+++ b/basis/ui/gadgets/panes/panes.factor
@@ -389,7 +389,7 @@ M: f sloppy-pick-up*
 
 : begin-selection ( pane -- )
     f >>selecting?
-    dup hand-loc get move-caret
+    dup hand-loc get-global move-caret
     f >>mark
     drop ;
 
@@ -397,12 +397,12 @@ M: f sloppy-pick-up*
     hand-moved? [
         [
             dup selecting?>> [
-                hand-loc get move-caret
+                hand-loc get-global move-caret
             ] [
-                dup hand-clicked get child? [
+                dup hand-clicked get-global child? [
                     t >>selecting?
                     [ hand-clicked set-global ]
-                    [ hand-click-loc get move-caret ]
+                    [ hand-click-loc get-global move-caret ]
                     [ caret>mark ]
                     tri
                 ] [ drop ] if
@@ -419,7 +419,7 @@ M: f sloppy-pick-up*
 
 : select-to-caret ( pane -- )
     t >>selecting?
-    [ dup mark>> [ dup caret>mark ] unless hand-loc get move-caret ]
+    [ dup mark>> [ dup caret>mark ] unless hand-loc get-global move-caret ]
     [ com-copy-selection ]
     [ request-focus ]
     tri ;
diff --git a/basis/ui/gestures/gestures.factor b/basis/ui/gestures/gestures.factor
index 27d502cc24..937debb263 100644
--- a/basis/ui/gestures/gestures.factor
+++ b/basis/ui/gestures/gestures.factor
@@ -170,7 +170,7 @@ SYMBOL: double-click-timeout
 300 milliseconds double-click-timeout set-global
 
 : hand-moved? ( -- ? )
-    hand-loc get hand-click-loc get = not ;
+    hand-loc get-global hand-click-loc get-global = not ;
 
 : button-gesture ( gesture -- )
     hand-clicked get-global propagate-gesture ;
@@ -257,7 +257,7 @@ SYMBOL: drag-timer
     dup hand-last-button get = ;
 
 : multi-click-position? ( -- ? )
-    hand-loc get hand-click-loc get distance 10 <= ;
+    hand-loc get-global hand-click-loc get-global distance 10 <= ;
 
 : multi-click? ( button -- ? )
     {