diff options
| author | treectrl <treectrl> | 2005-05-10 22:51:31 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2005-05-10 22:51:31 (GMT) |
| commit | 4b76ef9bce841342e120d49c9b30d68e584932c0 (patch) | |
| tree | ea62247e91db41ede539bdfe3023e36909d7b2b9 /demos/help.tcl | |
| parent | f4e4e5ed04bc5b6a45a6a4ffa0d0f7a2a62023c1 (diff) | |
| download | tktreectrl-4b76ef9bce841342e120d49c9b30d68e584932c0.zip tktreectrl-4b76ef9bce841342e120d49c9b30d68e584932c0.tar.gz tktreectrl-4b76ef9bce841342e120d49c9b30d68e584932c0.tar.bz2 | |
Minor changes to keep in synch with library procs.
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 } |