print-scratchpad ( -- )

Vocabulary

curses.listener

Inputs

None

Outputs

None

Definition

USING: curses ;

IN: curses.listener

: print-scratchpad ( -- )
    COLOR_BLACK COLOR_RED ccolor "( scratchpad )" cwrite
    COLOR_WHITE COLOR_BLACK ccolor " " cwritef ;