: test-command ( -- ) "Hello" print flush ; \ test-command H{ { +nullary+ t } { +listener+ t } } define-command listener-gadget "Test" f { { T{ key-down f { A+ } "j" } test-command } } define-command-map