# simple pushButton test
xtAppInitialize -class Program

xmPushButton .fred managed

. realizeWidget

while 1 {
  set p [. pending]
  puts stdout "Pending: $p"
  . processEvent
}
