【文件属性】:
文件名称:Tcl串口读程序
文件大小:30KB
文件格式:TCL
更新时间:2018-04-03 07:17:50
Tcl
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" -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]