1include window
2call OK mvwaddch $win1 2 3 `\001a`
3call OK wrefresh $win1
4assign FILE "/tmp/getwin.win"
5call OK putwin $win1 $FILE
6call win2 getwin $FILE
7check win2 NON_NULL
8call OK wrefresh $win2
9call `\001a` mvwinch $win2 2 3
10