2006-08-24 18:23:48 -04:00
|
|
|
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
|
2006-09-23 15:54:37 -04:00
|
|
|
[ "Press Button 2" ] [ T{ button-down f f 2 } gesture>string ] unit-test
|
