用tcl编写一个GUI程序

作为AI语言模型，我无法执行GUI程序，但是我可以向您介绍如何使用Tcl编写GUI程序。

Tcl是一种脚本语言，它可以处理文本和运行命令。Tcl/Tk是一个Tcl扩展，它包含了一个GUI工具包，可以帮助开发者创建图形用户界面。

下面是一个使用Tcl/Tk编写GUI程序的简单示例：

# 创建一个窗口
set win [tk::toplevel .]
wm title $win "My GUI"

# 创建一个标签
label $win.label -text "Hello, World!"
pack $win.label

# 创建一个按钮
button $win.button -text "Exit" -command {exit}
pack $win.button

# 进入主事件循环
tk::pack $win
tk::focus $win.button
tk::bind $win <Return> {exit}
tk::bind $win <Escape> {exit}
tk::bind $win <Control-q> {exit}

tk::wm resizable $win 0 0
tk::wm geometry $win "+200+200"
tk::wm protocol $win WM_DELETE_WINDOW {exit}

tk::tkwait window $win

这个程序创建了一个简单的窗口，包含一个标签和一个按钮。当用户点击按钮时，程序退出。最后，程序进入了Tk的主事件循环，等待用户输入。

当然，这只是一个简单示例。Tcl/Tk提供了许多其他的GUI控件和功能，可以根据需要进行扩展。

希望这个简单的示例对您有所帮助！