basis/ui/backend/backend.factor

   1 ! Copyright (C) 2006, 2009 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: command-line kernel namespaces ;
   4 IN: ui.backend
   5
   6 SYMBOL: ui-backend
   7
   8 SYMBOL: ui-stop-after-last-window?
   9 t ui-stop-after-last-window? set-global
  10
  11 HOOK: set-title ui-backend ( string world -- )
  12
  13 HOOK: (set-fullscreen) ui-backend ( world ? -- )
  14
  15 HOOK: (fullscreen?) ui-backend ( world -- ? )
  16
  17 HOOK: (open-window) ui-backend ( world -- )
  18
  19 HOOK: (close-window) ui-backend ( handle -- )
  20
  21 HOOK: raise-window* ui-backend ( world -- )
  22
  23 GENERIC: select-gl-context ( handle -- )
  24
  25 GENERIC: flush-gl-context ( handle -- )
  26
  27 HOOK: (with-ui) ui-backend ( quot -- )
  28
  29 HOOK: (grab-input) ui-backend ( handle -- )
  30
  31 HOOK: (ungrab-input) ui-backend ( handle -- )
  32
  33 HOOK: ui-backend-available? ui-backend ( -- ? )
  34
  35 M: object ui-backend-available?
  36     f ;
  37
  38 HOOK: stop-event-loop ui-backend ( -- )
  39
  40 M: object stop-event-loop
  41     ;
  42
  43 [ ui-backend-available? "ui.tools" "listener" ? ] main-vocab-hook set-global