www.pudn.com > Tornado_Train_Workshop_demo_program.rar > crosswind.tcl

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