# testing % substitution
xtAppInitialize -class Program

xmPushButton .fred managed  -labelString "Push Me"
.fred armCallback {puts stdout "an unsubstituted % sign"}

. realizeWidget

. mainLoop
