Paste: button-up problem

Author: ben
Mode: factor
Date: Mon, 21 Nov 2011 19:45:38
Plain Text | 
USING: accessors colors.constants kernel pair-rocket ui
ui.gadgets ui.gadgets.labels ui.gestures ui.pens.solid ;
IN: drop-problem


TUPLE: test-label < label ;
: make-test-label ( -- label ) "A test label." test-label new-label ;
test-label {
    mouse-enter => [ COLOR: red <solid> >>boundary relayout-1 ] 
    mouse-leave => [ f >>boundary relayout-1 ] 
    T{ button-up } => [ drop beep ] 
} set-gestures

New Annotation

Summary:
Author:
Mode:
Body: