# test extracting value from Text
xtAppInitialize -class Program

xmText .text managed -value "hi there"
.text getValues -value x
puts stdout "string: $x"

. realizeWidget

. mainLoop
