1 ! Copyright (C) 2006, 2007 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel namespaces opengl opengl.gl ;
8 HOOK: set-title ui-backend ( string world -- )
10 HOOK: set-fullscreen? ui-backend ( ? world -- )
12 HOOK: fullscreen? ui-backend ( world -- ? )
14 HOOK: (open-window) ui-backend ( world -- )
16 HOOK: (close-window) ui-backend ( handle -- )
18 HOOK: raise-window ui-backend ( world -- )
20 HOOK: select-gl-context ui-backend ( handle -- )
22 HOOK: flush-gl-context ui-backend ( handle -- )
24 : with-gl-context ( handle quot -- )
25 swap [ select-gl-context call ] keep
26 glFlush flush-gl-context gl-error ; inline