From 24e6260f19024851f490e988fc6f845bd1efa65a Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Sun, 13 Nov 2005 14:06:17 +0000
Subject: [PATCH] Correctly handle double-clicking on half-visible canvas
 "tabs".

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---
 initgui.tcl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/initgui.tcl b/initgui.tcl
index 35512d9..f665e96 100755
--- a/initgui.tcl
+++ b/initgui.tcl
@@ -339,7 +339,12 @@ bind .hframe.t <1> {
 bind .hframe.t <Double-1> {
     set canvas [lindex [.hframe.t gettags current] 1]
     if { $canvas != "" } {
-	renameCanvasPopup
+	if { $canvas != $curcanvas } {
+	    set curcanvas $canvas
+	    switchCanvas none
+	} else {
+	    renameCanvasPopup
+	}
     }
 }
 scrollbar .hframe.scroll -orient horiz -command "$c xview" \
-- 
2.39.5