basis/ui/tools/tools.factor

   1 ! Copyright (C) 2006, 2009 Slava Pestov.
   2 ! See https://factorcode.org/license.txt for BSD license.
   3 USING: io.pathnames kernel literals memory namespaces sequences
   4 system tools.test ui ui.backend ui.commands ui.gestures
   5 ui.tools.browser ui.tools.button-list ui.tools.common
   6 ui.tools.error-list ui.tools.listener vocabs.refresh ;
   7 IN: ui.tools
   8
   9 \ refresh-all H{ { +nullary+ t } { +listener+ t } } define-command
  10 \ refresh-and-test-all H{ { +nullary+ t } { +listener+ t } } define-command
  11
  12 \ save H{ { +nullary+ t } } define-command
  13
  14 : com-exit ( -- ) 0 exit ;
  15
  16 \ com-exit H{ { +nullary+ t } } define-command
  17
  18 tool "tool-switching" f {
  19     { T{ key-down f ${ os macosx? M+ A+ ? } "l" } show-listener }
  20     { T{ key-down f ${ os macosx? M+ A+ ? } "L" } listener-window }
  21     { T{ key-down f ${ os macosx? M+ A+ ? } "b" } show-browser }
  22     { T{ key-down f ${ os macosx? M+ A+ ? } "B" } browser-window }
  23 } define-command-map
  24
  25 tool "common" f {
  26     { T{ key-down f ${ os macosx? M+ A+ ? } "t" } show-active-buttons-popup }
  27     { T{ key-down f ${ os macosx? M+ C+ ? } "w" } close-window }
  28     { T{ key-down f ${ os macosx? M+ C+ ? } "q" } com-exit }
  29     { T{ key-down f f "F2" } refresh-all }
  30     { T{ key-down f { S+ } "F2" } refresh-and-test-all }
  31     { T{ key-down f f "F3" } show-error-list }
  32 } os macosx? {
  33     { T{ key-down f { C+ M+ } "f" } toggle-fullscreen }
  34 } {
  35     { T{ key-down f { C+ } "F4" } close-window }
  36     { T{ key-down f { A+ } "F4" } close-window }
  37     { T{ key-down f f "F11" } toggle-fullscreen }
  38 } ? prepend define-command-map
  39
  40 : ui-tools-main ( -- )
  41     f ui-stop-after-last-window? set-global
  42     "resource:" absolute-path current-directory set-global
  43     listener-window ;
  44
  45 MAIN: ui-tools-main