From f1c62deb03ea55b3fcdd62e935c9cb23ded30510 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Fri, 21 Sep 2012 15:39:49 -0700 Subject: [PATCH] ui: use "windows get-global". --- basis/ui/backend/cocoa/cocoa.factor | 4 ++-- basis/ui/ui.factor | 4 ++-- 2 files changed, 4 insertions(+), 4 deletions(-) diff --git a/basis/ui/backend/cocoa/cocoa.factor b/basis/ui/backend/cocoa/cocoa.factor index 22fd11c82b..0c21d28453 100644 --- 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 -> cascadeTopLeftFromPoint: -> setFrameTopLeftPoint: ] if diff --git a/basis/ui/ui.factor b/basis/ui/ui.factor index 789ca71761..f30821fa96 100644 --- 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 -- )