ui: use "windows get-global".
parent
51f708cda4
commit
f1c62deb03
|
@ -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
|
||||
|
|
|
@ -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 -- )
|
||||
|
||||
|
|
Loading…
Reference in New Issue