include window
cchar verch 0x100 "A"
cchar horch 0x200 "B"
call OK box_set $win1 $verch $horch
call OK wrefresh $win1
compare box_set1.chk

# test in case of default values
call OK box_set $win1 NULL NULL
call OK wrefresh $win1
compare box_set2.chk