Tcl脚本写的串口读程序 wm title . "串口调试工具（读）" ;# Add title to the application . config -bg #348811;##配置主窗口的背景颜色 ;#// 初始化脚本部分： wm geometry . 600x500+500+300 ;#// 定义根窗口的大小,width x height ;#wm protocol . WM_SAVE_YOURSELF {} ;#####################Menu设计菜单###################################################3 ;#Declare that there is a menu menu .mbar . config -menu .mbar ;#The Main Buttons .mbar add cascade -label "File" -underline 0 \ -menu [menu .mbar.file -tearoff 1] .mbar add cascade -label "参数设置P&q uot; -underline 4 \ -menu [menu .mbar.parset -tearoff 1] .mbar add cascade -label "Others" \ -underline 0 -menu [menu .mbar.oth -tearoff 1] .mbar add cascade -label "Help" -underline 0 \ -menu [menu .mbar.help -tearoff 0] uot; -underline 4 \ -menu [menu .mbar.parset -tearoff 1] .mbar add cascade -label "Others" \ -underline 0 -menu [menu .mbar.oth -tearoff 1] .mbar add cascade -label "Help" -underline 0 \ -menu [menu .mbar.help -tearoff 0]