From: marko <marko>
Date: Sun, 13 Nov 2005 14:06:17 +0000 (+0000)
Subject: Correctly handle double-clicking on half-visible canvas "tabs".
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=24e6260f19024851f490e988fc6f845bd1efa65a;p=imunes.git

Correctly handle double-clicking on half-visible canvas "tabs".

Bug found by:
Submitted by:
Requested by:
Reviewed by:
Approved by:
Obtained from:
---

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" \