共7条 1/1
1
跳转至
页
[原创]用TCL为Tornado增加Dos Shell按钮
10.3.1.1 用TCL为Tornado增加Dos Shell按钮 by amine@263.net 有的用户经常需要使用命令行窗口,先运行Torvars.bat建立环境,再切换到工作目录,如果所有一切通过Tornado工具按钮来完成将非常方便。下面例子来自WindRiver网站的Techtip文章,讲述如何利用TCL完成这一简单的Tornado定制工作。 定制工作需要制作两个文件,一个为TCL脚本描述文件,另一个为按钮图标文件。两文件需要放到WIND_BASE下指定目录,如: $WIND_BASE/host/resource/tcl/app-config/Tornado/03MsDos.win32.tcl $WIND_BASE/host/resource/bitmaps/Launch/controls/msdos.bmp 重启Tornado后,会看到Dos Shell按钮和菜单项。激活按钮,会启动DOS窗口,Torvars.bat已经运行,并切换到相应的工程目录,可立即继续用户的操作。如下图: [upload=jpg]UploadFile/2003111418445156642.jpg[/upload] 03MsDos.win32.tcl的内容如下: proc dosShellInitUI {} { controlCreate launch [list toolbarbutton \ -callback "LaunchDosShell" \ -name dosshell \ -tooltip "Launch DOS shell" \ -bitmap "[wtxPath host resource bitmaps launch controls]msdos.bmp"] menuItemInsert \ -callback {LaunchDosShell} \ -after -bypath \ {&Tools &Debugger...} "&DOS Shell" } proc LaunchDosShell {} { global tcl_platform # get the directory for current project set projDir [::Workspace::projectDirGet] regsub -all {/} $projDir {\\} projDir # determine which OS we are running under and # store the appropriate command interpreter name if { $tcl_platform(os) == "Windows NT"} { # set to use NT command interpreter set cmd_interp cmd.exe } else { # set to use 95 command interpreter set cmd_interp1 "[wtxPath host x86-win32 bin]torvars.bat" regsub -all {/} $cmd_interp1 {\\} cmd_interp1 set cmd_interp "command.com /K $cmd_interp1" } # start the command interpreter toolLaunch "DosShell" "$cmd_interp" "$projDir" 0 0 0 0 0 0 } dosShellInitUI 图标文件msdos.bmp的制作简单,只不过注意大小,一般20X20就行。 [align=right][color=#000066][此贴子已经被作者于2003-11-14 18:46:38编辑过][/color][/align]
关键词: 原创 Tornado 增加 Shell 按钮
共7条 1/1
1
跳转至
页
回复
有奖活动 | |
---|---|
奖!发布技术笔记,技术评测贴换取您心仪的礼品 | |
【有奖活动】震撼来袭!这场直播将直击工程师的心灵! | |
“我想要一部加热台”活动,不花钱赢取开发好工具!活动开始了哦 | |
【有奖活动】伙伴们:您的“需求”解决了吗? | |
抽奖了,抽奖了,金升阳医疗电源 |
打赏帖 | |
---|---|
【换取手持数字示波器】HMI开发板首秀RTduino被打赏30分 | |
电解电容引发的问题被打赏50分 | |
【换取手持数字示波器】+AT-START-F405之串口通讯被打赏30分 | |
【换取手持数字示波器】BeetleESP32C6+OLED被打赏40分 | |
【换取手持数字示波器】+ESP32C6与PWM(脉冲宽度调制)被打赏30分 | |
【换取手持数字示波器】+BeetleESP32C6初步探入,点灯被打赏30分 | |
【换取手持数字示波器】+pico驱动点阵屏被打赏40分 | |
玩转“DFRobot盖革计数器模块”+【安信可BW16-Kit】MQTTBasic被打赏40分 | |
玩转“DFRobot盖革计数器模块”+remotecontrol分享被打赏30分 | |
【换取手持数字示波器】+pico驱动WS2812灯环被打赏40分 |