# testing timer

proc quit {} {
    puts stdout "exiting..."
    exit
}

xtAppInitialize -class Program

xmPushButton .fred managed

. addTimer 10000 quit

. realizeWidget

. mainLoop
