2007-09-20 18:09:08 -04:00
|
|
|
! Copyright (C) 2006, 2007 Slava Pestov.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2008-06-05 23:10:42 -04:00
|
|
|
USING: kernel namespaces opengl opengl.gl ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: ui.backend
|
|
|
|
|
|
|
|
|
|
SYMBOL: ui-backend
|
|
|
|
|
|
2008-05-08 17:58:13 -04:00
|
|
|
HOOK: do-events ui-backend ( -- )
|
|
|
|
|
|
2007-09-20 18:09:08 -04:00
|
|
|
HOOK: set-title ui-backend ( string world -- )
|
|
|
|
|
|
2008-02-11 02:53:20 -05:00
|
|
|
HOOK: set-fullscreen* ui-backend ( ? world -- )
|
2008-02-09 03:17:24 -05:00
|
|
|
|
2008-02-11 02:53:20 -05:00
|
|
|
HOOK: fullscreen* ui-backend ( world -- ? )
|
2008-02-09 03:17:24 -05:00
|
|
|
|
2007-11-22 01:40:17 -05:00
|
|
|
HOOK: (open-window) ui-backend ( world -- )
|
|
|
|
|
|
|
|
|
|
HOOK: (close-window) ui-backend ( handle -- )
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-02-21 00:13:31 -05:00
|
|
|
HOOK: raise-window* ui-backend ( world -- )
|
2007-09-20 18:09:08 -04:00
|
|
|
|
|
|
|
|
HOOK: select-gl-context ui-backend ( handle -- )
|
|
|
|
|
|
|
|
|
|
HOOK: flush-gl-context ui-backend ( handle -- )
|
|
|
|
|
|
2008-06-05 23:06:38 -04:00
|
|
|
HOOK: beep ui-backend ( -- )
|
|
|
|
|
|
2007-09-20 18:09:08 -04:00
|
|
|
: with-gl-context ( handle quot -- )
|
|
|
|
|
swap [ select-gl-context call ] keep
|
|
|
|
|
glFlush flush-gl-context gl-error ; inline
|
