1# 2# Validate the timeout works. 3# 4include window 5delay 2000 6input "a" 7call 97 wgetch $win1 8call OK wtimeout $win1 100 9input "b" 10# since delay is in effect and we set timeout the following getch should 11# return ERR not the character b. 12call -1 wgetch $win1 13# drain input ... 14call OK DRAIN $win1 15call OK wtimeout $win1 -1 16call OK keypad $win1 1 17delay 0 18input "\eOA" 19call $KEY_UP wgetch $win1 20call OK wrefresh $win1 21#compare timeout.chk 22