36 lines
838 B
Factor
36 lines
838 B
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: raise-window* ui-backend ( world -- )
|
|
|
|
GENERIC: select-gl-context ( handle -- )
|
|
|
|
GENERIC: flush-gl-context ( handle -- )
|
|
|
|
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
|