source tcllib/Dialogs.tcl
mergeResources topLevel \
  *TransientShell.ancestorSensitive True

Box b topLevel
Command InformationDialog b callback "popup i none"
Command MessageDialog b callback "popup m none"
Command QuestionDialog b callback "popup q none"
Command WarningDialog b callback "popup w none"
realize

InformationDialog i InformationDialog message "The computation took 5 seconds."
MessageDialog m MessageDialog message "Hello world"
QuestionDialog q QuestionDialog message "Do you want to exit?" okCallback quit
WarningDialog w WarningDialog message "You will overwrite your Files!" \
      okCallback {puts "I have warned you!"; popdown w}
