terrain-mouse ( -- mouse )

Vocabulary

terrain

Inputs

None

Outputs

mouse

an object

Definition

USING: accessors game.input kernel namespaces sequences system
ui.backend.input-state ;

IN: terrain

: terrain-mouse ( -- mouse )
    os macos? [
        current-input-state get-global
        [ motion>> first2 ] [ scroll>> first2 ] [ buttons>> ]
        tri mouse-state boa
    ] [ read-mouse ] if ;