# crosswind.tcl - user extensions to CrossWind# Create toolbar button for setting global task breakpoint. No drop binding.toolBarItemCreate gbreak button {actOnSelection gbreak} \	"dragReturnString gbreak" ################################################################################ sourceGBkptSet - set a global task breakpoint## This routine sets a global task  breakpoint at location where the "gbreak"# symbol has been put.## SYNOPSIS:#   sourceGBkptSet args## PARAMETERS:#   args:## RETURNS: N/A## ERRORS: N/A#proc sourceGBkptSet {args} {    cwDownTcl -noresult gdb gbreak [formGdbAddress $args]}############################################################################### Replacement version of sourceDrop with support for gbreak button################################################################################ sourceDrop - control of Source Widget.## This routine controls the Source Widget drop behavior## SYNOPSIS:#   sourceDrop args## PARAMETERS:#   args: one of "break", "tbreak", "cont", "here", "editor" or "#event".## RETURNS: N/A## ERRORS: N/A#proc sourceDrop {args} {    set aspec [lrange $args 1 end]    case [lindex $args 0] { 	"break"		{sourceBkptSet $aspec}	"tbreak"	{sourceTBkptSet $aspec}	"gbreak"	{sourceGBkptSet $aspec}	"cont"		{sourceUntilSet $aspec}	"here"		{sourceUntilSet $aspec}	"editor"	{sourceEdit $aspec}	"#event"	{sourceWvEvent $aspec}    }}