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