modifiers>string ( modifiers -- string )

Vocabulary

ui.gestures

Inputs

modifiers

an object

Outputs

string

an object

Definition

USING: system ;

IN: ui.gestures

HOOK: modifiers>string os ( modifiers -- string )

Methods

USING: combinators sequences system ui.gestures ;

M: macos modifiers>string
    [
        {
            { M+ [ "⌘" ] }
            { A+ [ "⌥" ] }
            { S+ [ "⇧" ] }
            { C+ [ "⌃" ] }
        } case
    ] map "" concat-as ;


USING: accessors kernel sequences ui.gestures ;

M: object modifiers>string [ name>> ] map "" concat-as ;