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