tcl - 在 tcl 中从应用程序退出时运行代码

Question

谁能告诉我是否可以在退出 tcl 应用程序时发送一些代码，即当您按下右上角的 X 时？

我希望能够在应用程序关闭之前关闭任何保持开启的继电器。

谢谢。

标签： tclexittk

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