menu-button

Vocabulary

ui.gadgets.menus

Definition

USING: ui.gadgets.buttons ;

IN: ui.gadgets.menus

TUPLE: menu-button < button ;

Methods

USING: combinators generic kernel ui.gadgets.menus
ui.gadgets.menus.private ui.gestures ;

M: menu-button handle-gesture
    [
        {
            { [ over mouse-enter? ] [ nip activate-item ] }
            { [ over mouse-leave? ] [ nip inactivate-item ] }
            [ 2drop ]
        } cond
    ] 2keep M\ menu-button handle-gesture (call-next-method) ;


USING: accessors kernel models ui.gadgets ui.gadgets.menus ;

M: menu-button model-changed
    swap value>> over = >>selected? relayout-1 ;