Do not draw arrows on plain links, since arrows are really needed only on

pseudo links.  Maybe this could increase the speed of (re)drawing plain
links, maybe not...

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

diff --git a/editor.tcl b/editor.tcl
index a81a02c62895ba31e1d69d298a97fa952bbe0884..e10cb305b047688e7396e696f4947579b33d97f4 100755 (executable)
--- a/editor.tcl
+++ b/editor.tcl
@@ -218,10 +218,16 @@ proc drawLink { link } {
     set nodes [linkPeers $link]
     set lnode1 [lindex $nodes 0]
     set lnode2 [lindex $nodes 1]
-    set newlink [.c create line 0 0 0 0 \
-               -fill $defLinkColor -width $defLinkWidth \
-               -tags "link $link $lnode1 $lnode2" \
-               -arrow both]
+    if { [getLinkMirror $link] != "" } {
+       set newlink [.c create line 0 0 0 0 \
+           -fill $defLinkColor -width $defLinkWidth \
+           -tags "link $link $lnode1 $lnode2" \
+           -arrow both]
+    } else {
+       set newlink [.c create line 0 0 0 0 \
+           -fill $defLinkColor -width $defLinkWidth \
+           -tags "link $link $lnode1 $lnode2"]
+    }
     # XXX Invisible pseudo-liks
     global invisible
     if { $invisible == 1 && [getLinkMirror $link] != "" } {