diff options
Diffstat (limited to 'demos/help.tcl')
-rw-r--r-- | demos/help.tcl | 12 |
1 files changed, 5 insertions, 7 deletions
diff --git a/demos/help.tcl b/demos/help.tcl index 8d8638d..fc0fb59 100644 --- a/demos/help.tcl +++ b/demos/help.tcl @@ -313,8 +313,7 @@ proc TreeCtrl::HelpButton1 {w x y} { proc TreeCtrl::HelpMotion1 {w x y} { variable Priv switch $Priv(buttonMode) { - "resize" - - "header" { + default { Motion1 $w $x $y } } @@ -326,21 +325,20 @@ proc TreeCtrl::HelpLeave1 {w x y} { # and buttonMode is undefined. if {![info exists Priv(buttonMode)]} return switch $Priv(buttonMode) { - "header" { - $w column configure $Priv(column) -sunken no + default { + Leave1 $w $x $y } } return } proc TreeCtrl::HelpRelease1 {w x y} { variable Priv + if {![info exists Priv(buttonMode)]} return switch $Priv(buttonMode) { - "resize" - - "header" { + default { Release1 $w $x $y } } - set Priv(buttonMode) "" return } |