1include window
2include fill_window_numbers
3call OK wmove $win1 0 0
4call OK wtouchln $win1 0 6 $FALSE
5call OK wtouchln $win1 2 2 $TRUE
6call OK wtouchln $win1 0 3 $FALSE
7call OK wtouchln $win1 1 1 $TRUE
8call OK wtouchln $win1 1 0 $FALSE
9call OK wrefresh $win1
10compare wtouchln.chk
11