2009-01-06 14:56:14 -05:00
|
|
|
! Copyright (C) 2006, 2009 Slava Pestov.
|
2007-09-20 18:09:08 -04:00
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
2009-05-04 07:44:17 -04:00
|
|
|
USING: memory system kernel vocabs.refresh ui.tools.operations
|
2009-04-11 15:24:17 -04:00
|
|
|
ui.tools.listener ui.tools.browser ui.tools.common ui.tools.error-list
|
2009-02-19 17:54:27 -05:00
|
|
|
ui.tools.walker ui.commands ui.gestures ui ui.private ;
|
2007-09-20 18:09:08 -04:00
|
|
|
IN: ui.tools
|
|
|
|
|
|
2010-05-24 16:50:09 -04:00
|
|
|
MAIN: listener-window
|
2009-01-08 19:56:39 -05:00
|
|
|
|
|
|
|
|
\ refresh-all H{ { +nullary+ t } { +listener+ t } } define-command
|
|
|
|
|
|
2009-01-08 20:30:58 -05:00
|
|
|
\ save H{ { +nullary+ t } } define-command
|
|
|
|
|
|
|
|
|
|
: com-exit ( -- ) 0 exit ;
|
|
|
|
|
|
|
|
|
|
\ com-exit H{ { +nullary+ t } } define-command
|
|
|
|
|
|
|
|
|
|
tool "tool-switching" f {
|
2009-01-08 19:56:39 -05:00
|
|
|
{ T{ key-down f { A+ } "l" } show-listener }
|
|
|
|
|
{ T{ key-down f { A+ } "L" } listener-window }
|
|
|
|
|
{ T{ key-down f { A+ } "b" } show-browser }
|
|
|
|
|
{ T{ key-down f { A+ } "B" } browser-window }
|
2009-01-08 20:30:58 -05:00
|
|
|
} define-command-map
|
|
|
|
|
|
|
|
|
|
tool "common" f {
|
|
|
|
|
{ T{ key-down f { A+ } "w" } close-window }
|
2011-03-07 18:08:26 -05:00
|
|
|
{ T{ key-down f { A+ } "F" } toggle-fullscreen }
|
2009-01-08 20:30:58 -05:00
|
|
|
{ T{ key-down f { A+ } "q" } com-exit }
|
2009-01-08 19:56:39 -05:00
|
|
|
{ T{ key-down f f "F2" } refresh-all }
|
2009-04-12 17:08:46 -04:00
|
|
|
{ T{ key-down f f "F3" } show-error-list }
|
2011-03-07 18:08:26 -05:00
|
|
|
} define-command-map
|
