getmouse ( -- mouse-event/f )

Vocabulary

curses

Inputs

None

Outputs

mouse-event/f

an object

Definition

USING: classes.struct curses.ffi curses.private destructors
kernel libc ;

IN: curses

: getmouse ( -- mouse-event/f )
    [
        MEVENT malloc-struct &free dup getmouse ERR =
        [ drop f ] [ <mouse-event> ] if
    ] with-destructors ;