# simple pushButton test

proc createDialog {} {
  xmQuestionDialog .qd managed
  [.qd parent] setValues -deleteResponse do_nothing
  [.qd parent] resources r
#  [.qd parent] getValues -deleteResponse d
#  puts stdout "del: $d"
}

xtAppInitialize -class Program

xmPushButton .fred managed

.fred activateCallback createDialog

topLevelShell .top -deleteResponse do_nothing
xmLabel .top.label managed
.top popup
# .top resources r

. realizeWidget

. mainLoop
