1 2 3 4 5 6
include window input "input\n" call2 OK "input" wgetstr $win1 compare wgetstr.chk call OK wrefresh $win1 compare wgetstr_refresh.chk