steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/ui/backend/cocoa/cocoa.factor
View File

@ -85,8 +85,8 @@ M: pasteboard set-clipboard-contents
#! after register-window. #! after register-window.
dup { 0 0 } = [ dup { 0 0 } = [
drop drop
windows get length 1 <= [ -> center ] [ windows get-global length 1 <= [ -> center ] [
windows get last second window-loc>> windows get-global last second window-loc>>
dupd first2 <CGPoint> -> cascadeTopLeftFromPoint: dupd first2 <CGPoint> -> cascadeTopLeftFromPoint:
-> setFrameTopLeftPoint: -> setFrameTopLeftPoint:
] if ] if

4
basis/ui/ui.factor
View File

@ -147,7 +147,7 @@ SYMBOL: ui-thread
PRIVATE> PRIVATE>
: find-window ( quot: ( world -- ? ) -- world ) : find-window ( quot: ( world -- ? ) -- world )
[ windows get values ] dip [ windows get-global values ] dip
'[ dup children>> [ ] [ nip first ] if-empty @ ] '[ dup children>> [ ] [ nip first ] if-empty @ ]
find-last nip ; inline find-last nip ; inline
@ -202,7 +202,7 @@ PRIVATE>
find-world raise-window* ; find-world raise-window* ;
: topmost-window ( -- world ) : topmost-window ( -- world )
windows get last second ; windows get-global last second ;
HOOK: close-window ui-backend ( gadget -- ) HOOK: close-window ui-backend ( gadget -- )