factor/basis/ui/backend/backend.factor

! Copyright (C) 2006, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: kernel namespaces opengl opengl.gl fry ;
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 )

: with-gl-context ( handle quot -- )
    '[ select-gl-context @ ]
    [ flush-gl-context gl-error ] bi ; inline

HOOK: (with-ui) ui-backend ( quot -- )
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.`
opengl.textures: use GL_ARB_texture_non_power_of_two if available 2009-04-07 22:32:45 -04:00			`USING: kernel namespaces opengl opengl.gl fry ;`
Initial import 2007-09-20 18:09:08 -04:00			`IN: ui.backend`

			`SYMBOL: ui-backend`

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

Changed set-fullscreen? to take a gadget instead of a world, moved it into the ui vocab. Moved fullscreen docs into the ui vocab. 2008-02-11 02:53:20 -05: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
Changed set-fullscreen? to take a gadget instead of a world, moved it into the ui vocab. Moved fullscreen docs into the ui vocab. 2008-02-11 02:53:20 -05: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
Initial import 2007-09-20 18:09:08 -04:00			`: with-gl-context ( handle quot -- )`
opengl.textures: use GL_ARB_texture_non_power_of_two if available 2009-04-07 22:32:45 -04:00			`'[ select-gl-context @ ]`
			`[ flush-gl-context gl-error ] bi ; inline`
Working on documentation 2009-02-19 17:54:27 -05:00
			`HOOK: (with-ui) ui-backend ( quot -- )`