include start # test using the input queue wchar ACHAR "A" call OK unget_wch $ACHAR noinput call2 $KEY_CODE_YES $ACHAR get_wch wchar res ["a"] input "a\n" call2 OK $res get_wch # test keypad translations wchar esc "\e" input "\eOD" call2 OK $esc get_wch # character at cursor position is cleared call OK keypad STDSCR $TRUE wchar key $KEY_LEFT input "\eOD" call2 $KEY_CODE_YES $key get_wch call OK refresh