ui: use "windows get-global".

db4
John Benediktsson 2012-09-21 15:39:49 -07:00
parent 51f708cda4
commit f1c62deb03
2 changed files with 4 additions and 4 deletions

View File

@ -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

View File

@ -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 -- )