在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