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

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

我想能够关闭任何继电器，是留在应用程序关闭前

谢谢。

删除顶层窗口时，使用命令设置回调：

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

---

嘿@kenny，我注意到你的问题没有被接受的答案。请阅读并支持帮助你的人。嘿，格伦，对不起，伙计，我没有意识到。我会把我所有的问题都做完。谢谢你告诉我。