# testing concat the callback args
xtAppInitialize -class Program

xmPushButton .fred managed  -labelString "Push Me"
.fred armCallback puts stdout "an unsubstituted % sign"
.fred disarmCallback puts stdout {a substituted %w one}

. realizeWidget

. mainLoop
