From bf463ed215b95ad32d3d9da21ecbe1311bd49393 Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Mon, 31 Oct 2005 21:48:54 +0000
Subject: [PATCH] Double-click on a cross-canvas link now works as a hyperlink
 to the other canvas.

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

diff --git a/editor.tcl b/editor.tcl
index 1bfb8aa..dfb1ec4 100755
--- a/editor.tcl
+++ b/editor.tcl
@@ -1131,7 +1131,7 @@ proc focusAndFlash {W {count 9}} {
 
 proc popupConfigDialog { c } {
     global activetool router_model supp_router_models oper_mode
-    global badentry
+    global badentry curcanvas
 
     set wi .popup
     catch {destroy $wi}
@@ -1168,7 +1168,12 @@ proc popupConfigDialog { c } {
 	node {
 	    set type [nodeType $target]
 	    if { $type == "pseudo" } {
+		#
+		# Hyperlink to another canvas
+		#
 		destroy $wi
+		set curcanvas [getNodeCanvas [getNodeMirror $target]]
+		redrawAll
 		return
 	    }
 	    set model [getNodeModel $target]
-- 
2.39.5