curses-stream-readln ( -- )

Vocabulary

curses.listener

Inputs

None

Outputs

None

Definition

USING: combinators continuations curses kernel make ;

IN: curses.listener

: curses-stream-readln ( -- )
    getch dup 10 =
    [ addch ] [
        {
            { KEY_MOUSE [ handle-mouse-click ] }
            { 127 [ handle-backspace ] }
            { 4 [ return ] }
            [ [ , ] [ addch ] bi ]
        } case curses-stream-readln
    ] if ;