7 lines
233 B
Factor
7 lines
233 B
Factor
|
IN: temporary
|
||
|
|
USING: gadgets test ;
|
||
|
|
|
||
|
|
[ "A+a" ] [ T{ key-down f { A+ } "a" } gesture>string ] unit-test
|
||
|
|
[ "b" ] [ T{ key-down f f "b" } gesture>string ] unit-test
|
||
|
|
[ "Mouse Down 2" ] [ T{ button-down f f 2 } gesture>string ] unit-test
|