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