on-scroll ( gadget -- )

Vocabulary

game-of-life

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors combinators kernel math math.order namespaces
sequences ui.gadgets ui.gestures ;

IN: game-of-life

: on-scroll ( gadget -- )
    [
        scroll-direction get second
        { { [ dup 0 > ] [ -2 ] } { [ dup 0 < ] [ 2 ] } [ 0 ] }
        cond nip + 4 30 clamp
    ] change-size relayout-1 ;