toplevel .panel
button .panel.ok -text ok -command {
  set label OK
  destroy .panel
}
button .panel.cancel -text cancel -command {
  set label Cancel
  destroy .panel
}
pack .panel.ok -side left
pack .panel.cancel -side left
grab set .panel
tkwait window .panel
puts "label = $label"