запуск кода при выходе из приложения в tcl

Question

Может кто-нибудь сказать мне, можно ли отправить какой-нибудь код при выходе из приложения tcl, т.е. когда вы нажимаете X в правом верхнем углу, пожалуйста?

Я хочу иметь возможность отключать любые реле, которые остаются до закрытия приложения.

Спасибо.

Answer 1

Используйте команду wm protocol, чтобы установить обратный вызов при удалении окна верхнего уровня:

package require Tk
label .msg -text "click the X"
pack .msg
proc shutdown {} {
    puts "goodbye cruel world"
    exit
}
wm protocol . WM_DELETE_WINDOW shutdown