121 lines
3.2 KiB
Factor
Executable File
121 lines
3.2 KiB
Factor
Executable File
! Copyright (C) 2006, 2008 Slava Pestov.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: math arrays cocoa cocoa.application command-line
|
|
kernel memory namespaces cocoa.messages cocoa.runtime
|
|
cocoa.subclassing cocoa.pasteboard cocoa.types cocoa.windows
|
|
cocoa.classes cocoa.application sequences system ui ui.backend
|
|
ui.clipboards ui.gadgets ui.gadgets.worlds ui.cocoa.views
|
|
core-foundation threads ;
|
|
IN: ui.cocoa
|
|
|
|
TUPLE: handle view window ;
|
|
|
|
C: <handle> handle
|
|
|
|
SINGLETON: cocoa-ui-backend
|
|
|
|
M: cocoa-ui-backend do-events ( -- )
|
|
[
|
|
[
|
|
NSApp [ dup do-event ] [ ] [ ] while drop
|
|
ui-wait
|
|
] ui-try
|
|
] with-autorelease-pool ;
|
|
|
|
TUPLE: pasteboard handle ;
|
|
|
|
C: <pasteboard> pasteboard
|
|
|
|
M: pasteboard clipboard-contents
|
|
pasteboard-handle pasteboard-string ;
|
|
|
|
M: pasteboard set-clipboard-contents
|
|
pasteboard-handle set-pasteboard-string ;
|
|
|
|
: init-clipboard ( -- )
|
|
NSPasteboard -> generalPasteboard <pasteboard>
|
|
clipboard set-global
|
|
<clipboard> selection set-global ;
|
|
|
|
: world>NSRect ( world -- NSRect )
|
|
dup world-loc first2 rot rect-dim first2 <NSRect> ;
|
|
|
|
: gadget-window ( world -- )
|
|
[
|
|
dup <FactorView>
|
|
dup rot world>NSRect <ViewWindow>
|
|
dup install-window-delegate
|
|
over -> release
|
|
<handle>
|
|
] keep set-world-handle ;
|
|
|
|
M: cocoa-ui-backend set-title ( string world -- )
|
|
world-handle handle-window swap <NSString> -> setTitle: ;
|
|
|
|
: enter-fullscreen ( world -- )
|
|
world-handle handle-view
|
|
NSScreen -> mainScreen
|
|
f -> enterFullScreenMode:withOptions:
|
|
drop ;
|
|
|
|
: exit-fullscreen ( world -- )
|
|
world-handle handle-view f -> exitFullScreenModeWithOptions: ;
|
|
|
|
M: cocoa-ui-backend set-fullscreen* ( ? world -- )
|
|
swap [ enter-fullscreen ] [ exit-fullscreen ] if ;
|
|
|
|
M: cocoa-ui-backend fullscreen* ( world -- ? )
|
|
world-handle handle-view -> isInFullScreenMode zero? not ;
|
|
|
|
: auto-position ( world -- )
|
|
dup world-loc { 0 0 } = [
|
|
world-handle handle-window -> center
|
|
] [
|
|
drop
|
|
] if ;
|
|
|
|
M: cocoa-ui-backend (open-window) ( world -- )
|
|
dup gadget-window
|
|
dup auto-position
|
|
world-handle handle-window f -> makeKeyAndOrderFront: ;
|
|
|
|
M: cocoa-ui-backend (close-window) ( handle -- )
|
|
handle-window -> release ;
|
|
|
|
M: cocoa-ui-backend close-window ( gadget -- )
|
|
find-world [
|
|
world-handle [
|
|
handle-window f -> performClose:
|
|
] when*
|
|
] when* ;
|
|
|
|
M: cocoa-ui-backend raise-window* ( world -- )
|
|
world-handle [
|
|
handle-window dup f -> orderFront: -> makeKeyWindow
|
|
NSApp 1 -> activateIgnoringOtherApps:
|
|
] when* ;
|
|
|
|
M: cocoa-ui-backend select-gl-context ( handle -- )
|
|
handle-view -> openGLContext -> makeCurrentContext ;
|
|
|
|
M: cocoa-ui-backend flush-gl-context ( handle -- )
|
|
handle-view -> openGLContext -> flushBuffer ;
|
|
|
|
SYMBOL: cocoa-init-hook
|
|
|
|
M: cocoa-ui-backend ui
|
|
"UI" assert.app [
|
|
[
|
|
init-clipboard
|
|
stop-after-last-window? off
|
|
cocoa-init-hook get [ call ] when*
|
|
start-ui
|
|
finish-launching
|
|
event-loop
|
|
] ui-running
|
|
] with-cocoa ;
|
|
|
|
cocoa-ui-backend ui-backend set-global
|
|
|
|
[ running.app? "ui" "listener" ? ] main-vocab-hook set-global
|