运行 在 tcl 中退出应用程序的代码
running code on exit from application in tcl
谁能告诉我是否可以在退出 tcl 应用程序时发送一些代码，即当您按下右上角的 X 时？
我希望能够在应用程序关闭之前关闭所有保持打开状态的继电器。
谢谢。
使用wm protocol命令设置顶层window删除时的回调：
package require Tk
label .msg -text "click the X"
pack .msg
proc shutdown {} {
puts "goodbye cruel world"
exit
}
wm protocol . WM_DELETE_WINDOW shutdown
谁能告诉我是否可以在退出 tcl 应用程序时发送一些代码，即当您按下右上角的 X 时？
我希望能够在应用程序关闭之前关闭所有保持打开状态的继电器。
谢谢。
使用wm protocol命令设置顶层window删除时的回调：
package require Tk
label .msg -text "click the X"
pack .msg
proc shutdown {} {
puts "goodbye cruel world"
exit
}
wm protocol . WM_DELETE_WINDOW shutdown