crosswind.tcl

来自「VxWorks Lab Source Code」· TCL 代码 · 共 10 行

# crosswind.tcl - user customization file for CrossWind

#messageBox "I'm being sourced!"

controlCreate crosswindTB \
        [list toolbarbutton -name cwToggleBrkPt -separator -tooltip "Toggle Global Breakpoint" \
            -cmduicallback "onCmdUIDebugItem toggleBrkpt" -callback "onToggleBreakpoint 1 gbreak" \
            -bitmap [format "%s/.wind/%s" $env(HOME) toggleGBreak.bmp]]