include window
include fill_window_numbers
call OK wmove $win1 0 0
call OK wtouchln $win1 0 6 $FALSE
call OK wtouchln $win1 2 2 $TRUE
call OK wtouchln $win1 0 3 $FALSE
call OK wtouchln $win1 1 1 $TRUE
call OK wtouchln $win1 1 0 $FALSE
call OK wrefresh $win1
compare wtouchln.chk