ui: use "windows get-global".

diff --git a/basis/ui/backend/cocoa/cocoa.factor b/basis/ui/backend/cocoa/cocoa.factor
index 22fd11c82be05559a7b53f8109d59dc00e30e662..0c21d28453038c92dfd41804df98587c9785a740 100644 (file)
--- a/basis/ui/backend/cocoa/cocoa.factor
+++ b/basis/ui/backend/cocoa/cocoa.factor
@@ -85,8 +85,8 @@ M: pasteboard set-clipboard-contents
     #! after register-window.
     dup { 0 0 } = [
         drop
-        windows get length 1 <= [ -> center ] [
-            windows get last second window-loc>>
+        windows get-global length 1 <= [ -> center ] [
+            windows get-global last second window-loc>>
             dupd first2 <CGPoint> -> cascadeTopLeftFromPoint:
             -> setFrameTopLeftPoint:
         ] if

diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor
index 789ca71761efed875a31fba2e2821cebc33ff441..f30821fa96e265309bf76c90b3fc47bf3382f846 100644 (file)
--- a/basis/ui/ui.factor
+++ b/basis/ui/ui.factor
@@ -147,7 +147,7 @@ SYMBOL: ui-thread
 PRIVATE>
 
 : find-window ( quot: ( world -- ? ) -- world )
-    [ windows get values ] dip
+    [ windows get-global values ] dip
     '[ dup children>> [ ] [ nip first ] if-empty @ ]
     find-last nip ; inline
 
@@ -202,7 +202,7 @@ PRIVATE>
     find-world raise-window* ;
 
 : topmost-window ( -- world )
-    windows get last second ;
+    windows get-global last second ;
 
 HOOK: close-window ui-backend ( gadget -- )