OpenVINOTM,给你看得见的未来!>>
电子产品世界 » 论坛首页 » 嵌入式开发 » MCU » [原创]用TCL为Tornado增加Dos Shell按钮

共7条 1/1 1 跳转至

[原创]用TCL为Tornado增加Dos Shell按钮

菜鸟
2003-11-15 02:45:00    评分
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     按钮    

菜鸟
2003-11-15 03:59:00    评分
2楼
强!顶!

菜鸟
2003-11-15 04:18:00    评分
3楼
好,顶一下。

菜鸟
2003-11-17 01:08:00    评分
4楼
TO:amine 我也试了,好象也不行啊?

菜鸟
2003-11-17 19:24:00    评分
5楼
你们是直接从网页中复制的TCL代码吧, 网页在每行结束处添加了额外的字符,TCL不能解析 用编辑器将行末的额外字符删除就行 实在不行,我将我用的TCL文件上载

菜鸟
2003-11-18 01:33:00    评分
6楼
谢谢,我已经搞定了,果然如斑竹所言。

菜鸟
2010-01-22 21:16:01    评分
7楼
rghdgf

共7条 1/1 1 跳转至

回复

匿名不能发帖!请先 [ 登陆 注册 ]