From: marko <marko>
Date: Mon, 31 Oct 2005 21:48:54 +0000 (+0000)
Subject: Double-click on a cross-canvas link now works as a hyperlink to the
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=bf463ed215b95ad32d3d9da21ecbe1311bd49393;p=imunes.git

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:
---

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]