update-command-map ( class group pairs -- )

Vocabulary

ui.commands

Inputs

class	a class word
group	a string
pairs	a sequence of gesture/word pairs

Outputs

None

Word description

Updates a command map on the specified gadget class. The gestures specified in pairs are added. If any of the gestures are already defined in that group, they are replaced.

Definition

USING: accessors assocs combinators kernel ;

IN: ui.commands

: update-command-map ( class group pairs -- )
    pick {
        [ commands ]
        [ of ]
        [ [ assoc-union ] curry change-commands drop ]
        [ update-gestures ]
    } spread ;