共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 跳转至页
回复
有奖活动 | |
---|---|
奖!发布技术笔记,技术评测贴换取您心仪的礼品 | |
【有奖活动】震撼来袭!这场直播将直击工程师的心灵! | |
“我想要一部加热台”活动,不花钱赢取开发好工具!活动开始了哦 | |
【有奖活动】伙伴们:您的“需求”解决了吗? | |
抽奖了,抽奖了,金升阳医疗电源 |
打赏帖 | |
---|---|
【换取手持数字示波器】+与同事对定时器输出相位可调PWM移相全桥控制分享被打赏50分 | |
【换取手持数字示波器】+LP-MSPM0L1306开发板试用体验+串口被打赏40分 | |
CC-RL编译器相关问题求助被打赏10分 | |
【换取手持数字示波器】+与同事对ESP-12开发调试经验分享被打赏50分 | |
【换取手持数字示波器】+同事tek示波器调试spi解析被打赏50分 | |
【换取手持数字示波器】+2.6寸墨水屏调试经验被打赏50分 | |
换取手持数字示波器+个人开关电源的设计经验被打赏50分 | |
【换取手持数字示波器】+【APT32F173测评】+URAT被打赏20分 | |
【换取手持数字示波器】CH32X035的定时器以及外部中断体验被打赏50分 | |
【换取手持数字示波器】CH32X035搭建开发环境(RISC-V)被打赏50分 |