Paste: Gestures

Author: Muzzleflash
Mode: factor
Date: Thu, 1 Apr 2010 13:42:05
Plain Text | 
: 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

New Annotation

Summary:
Author:
Mode:
Body: