Paste: Getting gestures to work

Author: tubs
Mode: factor
Date: Tue, 3 Nov 2009 11:24:52
Plain Text | 
TUPLE: counter-gadget < gadget { count integer } ;

: counter-gadget-down ( gadget -- ) [ 1 + ] change-count drop ;

counter-gadget H{ { button-down [ counter-gadget-down ] } } set-gestures

counter-gadget new
'[ _ "test" open-window ] with-ui

New Annotation

Summary:
Author:
Mode:
Body: