# simple pushButton test

proc pushCB {} {
    puts pushed
    set x [exec cat prog1]
    puts stdout "$x"
}

xtAppInitialize -class Program

xmPushButton .fred managed
.fred activateCallback pushCB

. realizeWidget

. mainLoop
