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 35512d90743dfe74de72738857a1387111f8a1bd..f665e96d5eec9efda002d95c909469c3c9e99764 100755 (executable)
--- 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" \