1 include window 2 input "test\n" 3 call2 OK "test" wgetstr $win1 4 # try a couple of backspaces, this should erase characters, we have 5 # embedded a cursor left sequence too but this should not be interpreted 6 input "abc\010\010de\eODf\n" 7 call2 OK "ade\eODf" wgetstr $win1 8 # turn on keypad so the embedded cursor key will affect the result 9 call OK keypad $win1 $TRUE 10 input "abc\010\010de\eODf\n" 11 call2 OK "adf" wgetstr $win1 12