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

set first responder on cocoa view back when returning from fullscreen mode. un-fullscreen the view if window is closed while view is fullscreen

db4
Joe Groff 2009-05-14 17:29:25 -05:00
parent 99c6c054c2
commit 7fdd018aec
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -99,7 +99,9 @@ M: cocoa-ui-backend set-title ( string world -- )
drop ;
: exit-fullscreen ( world -- )
handle>> view>> f -> exitFullScreenModeWithOptions: ;
handle>>
[ view>> f -> exitFullScreenModeWithOptions: ]
[ [ window>> ] [ view>> ] bi -> makeFirstResponder: drop ] bi ;
M: cocoa-ui-backend (set-fullscreen) ( world ? -- )
[ enter-fullscreen ] [ exit-fullscreen ] if ;
@ -120,7 +122,11 @@ M:: cocoa-ui-backend (open-window) ( world -- )
window f -> makeKeyAndOrderFront: ;
M: cocoa-ui-backend (close-window) ( handle -- )
window>> -> release ;
[
view>> dup -> isInFullScreenMode zero?
[ drop ]
[ f -> exitFullScreenModeWithOptions: ] if
] [ window>> -> release ] bi ;
M: cocoa-ui-backend (grab-input) ( handle -- )
0 CGAssociateMouseAndMouseCursorPosition drop