crosswind.tcl

tarnado 程序demo

# 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]]