factor/basis/ui/backend/backend.factor

! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: command-line kernel namespaces ;
IN: ui.backend

SYMBOL: ui-backend

HOOK: set-title ui-backend ( string world -- )

HOOK: (set-fullscreen) ui-backend ( world ? -- )

HOOK: (fullscreen?) ui-backend ( world -- ? )

HOOK: (open-window) ui-backend ( world -- )

HOOK: (close-window) ui-backend ( handle -- )

HOOK: (open-offscreen-buffer) ui-backend ( world -- )

HOOK: (close-offscreen-buffer) ui-backend ( handle -- )

HOOK: raise-window* ui-backend ( world -- )

GENERIC: select-gl-context ( handle -- )

GENERIC: flush-gl-context ( handle -- )

HOOK: offscreen-pixels ui-backend ( world -- alien w h )

HOOK: (with-ui) ui-backend ( quot -- )

HOOK: (grab-input) ui-backend ( handle -- )

HOOK: (ungrab-input) ui-backend ( handle -- )

HOOK: ui-backend-available? ui-backend ( -- ? )

M: object ui-backend-available?
    f ;

[ ui-backend-available? "ui.tools" "listener" ? ] main-vocab-hook set-global
opengl.textures: use GL_ARB_texture_non_power_of_two if available 2009-04-07 22:32:45 -04:00			`! Copyright (C) 2006, 2009 Slava Pestov.`
Initial import 2007-09-20 18:09:08 -04:00			`! See http://factorcode.org/license.txt for BSD license.`
io/ui: slim down the USE: list 2014-10-24 20:33:27 -04:00			`USING: command-line kernel namespaces ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: ui.backend`

			`SYMBOL: ui-backend`

			`HOOK: set-title ui-backend ( string world -- )`

fullscreen* -> (fullscreen?), set-fullscreen* -> (set-fullscreen), fix jamshred screen toggling 2009-05-13 23:28:33 -04:00			`HOOK: (set-fullscreen) ui-backend ( world ? -- )`
Added set-fullscreen? and fullscreen? hooks along with their cocoa implementations. 2008-02-09 03:17:24 -05:00
fullscreen* -> (fullscreen?), set-fullscreen* -> (set-fullscreen), fix jamshred screen toggling 2009-05-13 23:28:33 -04:00			`HOOK: (fullscreen?) ui-backend ( world -- ? )`
Added set-fullscreen? and fullscreen? hooks along with their cocoa implementations. 2008-02-09 03:17:24 -05:00
Fix saving UI state in image 2007-11-22 01:40:17 -05:00			`HOOK: (open-window) ui-backend ( world -- )`

			`HOOK: (close-window) ui-backend ( handle -- )`
Initial import 2007-09-20 18:09:08 -04:00
cocoa backend for offscreen world rendering 2008-12-08 22:30:10 -05:00			`HOOK: (open-offscreen-buffer) ui-backend ( world -- )`

			`HOOK: (close-offscreen-buffer) ui-backend ( handle -- )`

New walker 2008-02-21 00:13:31 -05:00			`HOOK: raise-window* ui-backend ( world -- )`
Initial import 2007-09-20 18:09:08 -04:00
cocoa backend for offscreen world rendering 2008-12-08 22:30:10 -05:00			`GENERIC: select-gl-context ( handle -- )`
Initial import 2007-09-20 18:09:08 -04:00
cocoa backend for offscreen world rendering 2008-12-08 22:30:10 -05:00			`GENERIC: flush-gl-context ( handle -- )`
Initial import 2007-09-20 18:09:08 -04:00
win32 offscreen refinements 2008-12-10 09:49:50 -05:00			`HOOK: offscreen-pixels ui-backend ( world -- alien w h )`
Move offscreen-world widget and support words into ui.offscreen vocab 2008-12-09 13:07:57 -05:00
input grabbing support 2009-05-08 16:07:15 -04:00			`HOOK: (with-ui) ui-backend ( quot -- )`

			`HOOK: (grab-input) ui-backend ( handle -- )`

			`HOOK: (ungrab-input) ui-backend ( handle -- )`
ui.backend: refactor the UI `main-vocab-hook` to use a backend-specific `ui-backend-available?` word, so that loading other backends doesn't change the `main-vocab-hook` out of sync with the backend; fixes #131 2011-09-15 14:27:16 -04:00
			`HOOK: ui-backend-available? ui-backend ( -- ? )`

			`M: object ui-backend-available?`
			`f ;`

			`[ ui-backend-available? "ui.tools" "listener" ? ] main-vocab-hook set-global`