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/help.tcl | |
parent | e0ed1bf40a4fe024c5b835a3caccaddbb9492adb (diff) | |
download | tktreectrl-883cb6e1a392ba738f273a8e5867bdb7ba963b4c.zip tktreectrl-883cb6e1a392ba738f273a8e5867bdb7ba963b4c.tar.gz tktreectrl-883cb6e1a392ba738f273a8e5867bdb7ba963b4c.tar.bz2 |
Double-click button fix.
Diffstat (limited to 'demos/help.tcl')
-rw-r--r-- | demos/help.tcl | 14 |
1 files changed, 12 insertions, 2 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 |