gesture>string ( gesture -- string/f )
Factor handbook » UI framework » Implementing new gadgets » UI gestures

Prev:	handle-gesture ( gesture gadget -- ? )
Next:	Keyboard focus

Vocabulary
ui.gestures

Inputs

gesture

a gesture

Outputs

string/f

a string or f

Generic word contract
Creates a human-readable string from a gesture object, returning f if the gesture does not have a human-readable form.

Examples

USING: io ui.gestures ; T{ key-down f { C+ } "x" } gesture>string print
C+x

Definition

IN: ui.gestures

GENERIC: gesture>string ( gesture -- string/f )

Methods

USING: arrays assocs kernel ui.gestures ;

M: action gesture>string
    action-gestures value-at
    action-modifier 1array swap f <key-down> gesture>string ;


USING: accessors kernel make math.parser ui.gestures ;

M: button-down gesture>string
    [
        dup mods>> modifiers>string % "Press Button" % #>>
        [ " " % # ] when*
    ] "" make ;


USING: accessors kernel make math.parser ui.gestures ;

M: button-up gesture>string
    [
        dup mods>> modifiers>string % "Click Button" % #>>
        [ " " % # ] when*
    ] "" make ;


USING: kernel ui.gestures ;

M: down-action gesture>string drop "Swipe down" ;


USING: kernel ui.gestures ;

M: file-drop gesture>string drop "Drop files" ;


USING: accessors ascii combinators combinators.short-circuit
kernel sequences ui.gestures ;

M: key-down gesture>string
    [ mods>> ] [ sym>> ] bi {
        {
            [ dup { [ length 1 = ] [ first LETTER? ] } 1&& ]
            [ [ S+ prefix ] dip ]
        }
        { [ dup " " = ] [ drop "SPACE" ] }
        [ ]
    } cond [ modifiers>string ] [ keysym>string ] bi* append ;


USING: kernel ui.gestures ;

M: left-action gesture>string drop "Swipe left" ;


USING: kernel ui.gestures ;

M: object gesture>string drop f ;


USING: kernel ui.gestures ;

M: right-action gesture>string drop "Swipe right" ;


USING: kernel ui.gestures ;

M: up-action gesture>string drop "Swipe up" ;


USING: kernel ui.gestures ;

M: zoom-in-action gesture>string drop "Zoom in" ;


USING: kernel ui.gestures ;

M: zoom-out-action gesture>string drop "Zoom out (pinch)" ;