scroll-direction ( event -- pair )

Vocabulary

ui.backend.gtk2

Inputs

event

an object

Outputs

pair

an object

Definition

USING: accessors assocs ;

IN: ui.backend.gtk2

: scroll-direction ( event -- pair )
    direction>> {
        { 0 { 0 -1 } }
        { 1 { 0 1 } }
        { 2 { -1 0 } }
        { 3 { 1 0 } }
    } at ;