在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