From 883cb6e1a392ba738f273a8e5867bdb7ba963b4c Mon Sep 17 00:00:00 2001
From: treectrl <treectrl>
Date: Sat, 21 Dec 2002 21:53:26 +0000
Subject: Double-click button fix.

---
 demos/help.tcl   | 14 ++++++++++++--
 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]
-- 
cgit v0.12