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]
2021-09-20 19:07:10
30KB
Tcl
1