1 ! Copyright (C) 2006, 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel literals memory namespaces sequences system
5 ui.backend ui.commands ui.gestures ui.tools.browser
6 ui.tools.common ui.tools.error-list ui.tools.listener
10 \ refresh-all H{ { +nullary+ t } { +listener+ t } } define-command
11 \ refresh-and-test-all H{ { +nullary+ t } { +listener+ t } } define-command
13 \ save H{ { +nullary+ t } } define-command
15 : com-exit ( -- ) 0 exit ;
17 \ com-exit H{ { +nullary+ t } } define-command
19 tool "tool-switching" f {
20 { T{ key-down f ${ os macosx? M+ A+ ? } "l" } show-listener }
21 { T{ key-down f ${ os macosx? M+ A+ ? } "L" } listener-window }
22 { T{ key-down f ${ os macosx? M+ A+ ? } "b" } show-browser }
23 { T{ key-down f ${ os macosx? M+ A+ ? } "B" } browser-window }
27 { T{ key-down f ${ os macosx? M+ A+ ? } "t" } com-show-active-buttons }
28 { T{ key-down f ${ os macosx? M+ C+ ? } "w" } close-window }
29 { T{ key-down f ${ os macosx? M+ C+ ? } "q" } com-exit }
30 { T{ key-down f f "F2" } refresh-all }
31 { T{ key-down f { S+ } "F2" } refresh-and-test-all }
32 { T{ key-down f f "F3" } show-error-list }
34 { T{ key-down f { C+ M+ } "f" } toggle-fullscreen }
36 { T{ key-down f { C+ } "F4" } close-window }
37 { T{ key-down f { A+ } "F4" } close-window }
38 { T{ key-down f f "F11" } toggle-fullscreen }
39 } ? prepend define-command-map
41 : ui-tools-main ( -- )
42 f ui-stop-after-last-window? set-global