basis/ui/tools/tools.factor

   1 ! Copyright (C) 2006, 2009 Slava Pestov.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: memory system kernel tools.vocabs ui.tools.operations
   4 ui.tools.listener ui.tools.browser ui.tools.common
   5 ui.tools.walker ui.commands ui.gestures ui ui.private ;
   6 IN: ui.tools
   7
   8 : main ( -- )
   9     restore-windows? [ restore-windows ] [ listener-window ] if ;
  10
  11 MAIN: main
  12
  13 \ refresh-all H{ { +nullary+ t } { +listener+ t } } define-command
  14
  15 \ save H{ { +nullary+ t } } define-command
  16
  17 : com-exit ( -- ) 0 exit ;
  18
  19 \ com-exit H{ { +nullary+ t } } define-command
  20
  21 tool "tool-switching" f {
  22     { T{ key-down f { A+ } "l" } show-listener }
  23     { T{ key-down f { A+ } "L" } listener-window }
  24     { T{ key-down f { A+ } "b" } show-browser }
  25     { T{ key-down f { A+ } "B" } browser-window }
  26 } define-command-map
  27
  28 tool "common" f {
  29     { T{ key-down f { A+ } "s" } save }
  30     { T{ key-down f { A+ } "w" } close-window }
  31     { T{ key-down f { A+ } "q" } com-exit }
  32     { T{ key-down f f "F2" } refresh-all }
  33 } define-command-map