# test on getValues 
xtAppInitialize -class Program

xmPushButton .fred managed
.fred getValues -labelString x
puts stdout $x

. realizeWidget

. mainLoop
