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 1bfb8aad942221d2547b620db443a9f0d4cca48e..dfb1ec488ccdde1d47d27433a2e9fb8de86e6266 100755 (executable)
--- 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]