diff options
-rw-r--r-- | demos/help.tcl | 14 | ||||
-rw-r--r-- | demos/random.tcl | 3 |
2 files changed, 14 insertions, 3 deletions
diff --git a/demos/help.tcl b/demos/help.tcl index fc67589..df8a10d 100644 --- a/demos/help.tcl +++ b/demos/help.tcl @@ -69,7 +69,12 @@ proc DemoHelpContents {} { } bind TreeCtrlHelp <Double-ButtonPress-1> { - TreeCtrl::DoubleButton1 %W %x %y + if {[lindex [%W identify %x %y] 0] eq "header"} { + TreeCtrl::DoubleButton1 %W %x %y + } else { + TreeCtrl::HelpButton1 %W %x %y + } + break } bind TreeCtrlHelp <ButtonPress-1> { TreeCtrl::HelpButton1 %W %x %y @@ -188,7 +193,12 @@ proc DemoHelpContents2 {} { } bind TreeCtrlHelp <Double-ButtonPress-1> { - TreeCtrl::DoubleButton1 %W %x %y + if {[lindex [%W identify %x %y] 0] eq "header"} { + TreeCtrl::DoubleButton1 %W %x %y + } else { + TreeCtrl::HelpButton1 %W %x %y + } + break } bind TreeCtrlHelp <ButtonPress-1> { TreeCtrl::HelpButton1 %W %x %y diff --git a/demos/random.tcl b/demos/random.tcl index be9e9ba..3550fa9 100644 --- a/demos/random.tcl +++ b/demos/random.tcl @@ -92,6 +92,7 @@ proc DemoRandom {} { bind TreeCtrlRandom <Double-ButtonPress-1> { TreeCtrl::DoubleButton1 %W %x %y + break } bind TreeCtrlRandom <Control-ButtonPress-1> { set TreeCtrl::Priv(selectMode) toggle @@ -445,7 +446,7 @@ proc TreeCtrl::RandomAutoScanCheck {T x y} { return } -proc ::TreeCtrl::RandomAutoScanCheckAux {T} { +proc TreeCtrl::RandomAutoScanCheckAux {T} { variable Priv unset Priv(autoscan,afterId,$T) set x [winfo pointerx $T] |