check-native-wasd ( window -- )

Vocabulary

demos.smoke-test

Inputs

window

an object

Outputs

None

Definition

USING: accessors game.input gpu.util.wasd kernel namespaces
ui.backend.input-state ;

IN: demos.smoke-test

:: check-native-wasd ( window -- )
    clear-input-state window location>> clone :> before 13 t
    record-key window wasd-keyboard-input
    window location>> before = f assert= 13 f record-key
    window yaw>> :> yaw current-input-state get-global
    { 12 -5 } >>motion drop window wasd-mouse-input
    window yaw>> yaw = f assert= reset-mouse read-mouse
    [ dx>> 0 assert= ] [ dy>> 0 assert= ] bi clear-input-state ;