diff options
| author | treectrl <treectrl> | 2002-12-21 21:53:26 (GMT) |
|---|---|---|
| committer | treectrl <treectrl> | 2002-12-21 21:53:26 (GMT) |
| commit | 883cb6e1a392ba738f273a8e5867bdb7ba963b4c (patch) | |
| tree | 80110dcf2d504fc027adc27168210b3f6c8ed5b2 /demos | |
| parent | e0ed1bf40a4fe024c5b835a3caccaddbb9492adb (diff) | |
| download | tktreectrl-883cb6e1a392ba738f273a8e5867bdb7ba963b4c.zip tktreectrl-883cb6e1a392ba738f273a8e5867bdb7ba963b4c.tar.gz tktreectrl-883cb6e1a392ba738f273a8e5867bdb7ba963b4c.tar.bz2 | |
Double-click button fix.
Diffstat (limited to 'demos')
| -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] |