2 USING: ui.commands ui.gestures tools.test help.markup io
3 io.streams.string system kernel ;
5 { "Press Button 2" } [ T{ button-down f f 2 } gesture>string ] unit-test
9 \ com-test-1 H{ } define-command
11 { [ 3 com-test-1 ] } [ 3 \ com-test-1 command-quot ] unit-test
15 \ com-test-2 H{ { +nullary+ t } } define-command
17 { [ com-test-2 ] } [ 3 \ com-test-2 command-quot ] unit-test
21 testing "testing" "hey" {
22 { T{ key-down f { C+ } "x" } com-test-1 }
26 { "⌘A" } [ T{ key-down f { M+ } "a" } gesture>string ] unit-test
27 { "B" } [ T{ key-down f f "b" } gesture>string ] unit-test
31 { $command testing "testing" com-test-1 } print-element
35 { "A+a" } [ T{ key-down f { A+ } "a" } gesture>string ] unit-test
36 { "b" } [ T{ key-down f f "b" } gesture>string ] unit-test
40 { $command testing "testing" com-test-1 } print-element
47 { "Foo" } [ \ com-foo. command-name ] unit-test