crosswind.tcl

tarnado 程序demo

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