Mass Deface
[list tixBalloon:ClientDestroy $w %W]
}
proc tixBalloon:Destructor {w} {
global tixBalloon
set bals ""
foreach b $tixBalloon(bals) {
if {$w != $b} {
lappend bals $b
}
}
set tixBalloon(bals) $bals
tixChainMethod $w Destructor
}
#----------------------------------------------------------------------
# Config:
#----------------------------------------------------------------------
proc tixBalloon:config-state {w value} {
upvar #0 $w data
set re {^(none|balloon|status|both)$}
if {![regexp -- $re $value]} {
error "invalid value $value, must be none, balloon, status, or both"
}
}
#----------------------------------------------------------------------
# "RAW" event bindings:
#----------------------------------------------------------------------
bind all "+tixBalloon_XXMotion %X %Y 1"
bind all "+tixBalloon_XXMotion %X %Y 2"
bind all "+tixBalloon_XXMotion %X %Y 3"
bind all "+tixBalloon_XXMotion %X %Y 4"
bind all "+tixBalloon_XXMotion %X %Y 5"
bind all "+tixBalloon_XXMotion %X %Y 0"
# Should %b be 0? %b is illegal
bind all "+tixBalloon_XXMotion %X %Y 0"
bind all