apply-window-options ( window -- )

Vocabulary

curses.private

Inputs

window

an object

Outputs

None

Definition

USING: accessors combinators curses.ffi kernel ;

IN: curses.private

: apply-window-options ( window -- )
    {
        [
            [ ptr>> ] [ scrollok>> >BOOLEAN ] bi scrollok
            curses-error
        ]
        [
            [ ptr>> ] [ leaveok>> >BOOLEAN ] bi leaveok
            curses-error
        ]
        [
            [ ptr>> ] [ keypad>> >BOOLEAN ] bi keypad
            curses-error
        ]
        [
            [ ptr>> ] [ nodelay>> ] bi
            [ TRUE nodelay curses-error ] [ drop ] if
        ]
    } cleave ;