# callback test
xtAppInitialize -class Program

xmPushButton .fred managed -labelString "Push Me"
.fred armCallback {puts stdout "hi there"}

. realizeWidget

. mainLoop
