

proc popIt event {
  .form.menu menuPosition $event
  .form.menu manageChild
}

proc Destroy {} {
  . getValues -children childre
  foreach w $childre {$w destroyWidget}
}

proc Newindow {} {
  xmForm .form managed
  xmPushButton .form.btn managed -labelString win2
}

proc Pop {} {
  xmPopupMenu .form.menu
  xmPushButton .form.menu.btn1 managed -labelString gotoWin1
  xmPushButton .form.menu.btn2 managed -labelString gotoWin2
  .form setValues -translations "<Btn3Down>: action(popIt %event)"

  .form.menu.btn1 activateCallback {}
  .form.menu.btn2 activateCallback {Destroy; Newindow; Pop}

  . getValues -children c
  puts "children of .: $c"
}

xtAppInitialize

xmForm .form managed
xmPushButton .form.btn managed -labelString win1  
Pop

. realizeWidget
. mainLoop
