<mouse-event> ( MEVENT -- mouse-event )

Vocabulary

curses.private

Inputs

MEVENT

an object

Outputs

mouse-event

an object

Definition

USING: accessors combinators curses kernel ;

IN: curses.private

: <mouse-event> ( MEVENT -- mouse-event )
    [ mouse-event new ] dip {
        [ id>> >>id drop ]
        [ y>> >>y drop ]
        [ x>> >>x drop ]
        [ bstate>> fill-in-bstate ]
        [ drop ]
    } 2cleave ;