# check setting size of a text widget
xtAppInitialize -class Program

xmText .text managed -editMode multi_line_edit -rows 10 -columns 40
.text getValues -rows r -columns c
puts stdout "Number of rows: $r, columns: $c"

. realizeWidget

. mainLoop
