[链接]()` `按钮可以使用 Tk 的 button 命令建立。 ``` #!/bin/wish # tcl tk第一个程序 #编译当前工程 button .comp -text "编译" \ -command { puts "1" } button .wave -text "波形" \ -command { puts "2" } button .quit -text "退出" \ -command { exit } pack .comp -padx 60 -pady 5 pack .wave -padx 60 -pady 5 pack .quit -padx 60 -pady 5 ```