: exit-fullscreen ( world -- )
handle>>
- [ view>> f -> exitFullScreenModeWithOptions: ]
+ [ view>> f -> exitFullScreenModeWithOptions: ]
[ [ window>> ] [ view>> ] bi -> makeFirstResponder: drop ] bi ;
M: cocoa-ui-backend (set-fullscreen) ( world ? -- )
M: cocoa-ui-backend ui-backend-available?
running.app? ;
-