key-handler

Vocabulary

key-handlers

Definition

USING: ui.gadgets.borders ;

IN: key-handlers

TUPLE: key-handler < border handlers ;

Methods

USING: accessors assocs combinators kernel key-handlers
ui.gestures ;

M: key-handler handle-gesture
    [ handlers>> at ] keep swap
    [ ( gadget -- ) call-effect f ] [ drop t ] if* ;