Чтобы получить контроль над запросами на удаление окна, настройте подходящий обработчик протокола:
wm protocol . WM_DELETE_WINDOW {
if {[tk_messageBox -message "Quit?" -type yesno] eq "yes"} {
exit
}
}
Поведение по умолчанию (т. Е. Если обработчиком протокола является пустая строка) - это просто destroy
верхний уровень, к которому был сделан запрос.