From de4ba4172606ee3f2db21405c5e96c2c649e1951 Mon Sep 17 00:00:00 2001
From: marko <marko>
Date: Sun, 13 Nov 2005 12:53:30 +0000
Subject: [PATCH] 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:
---
 editor.tcl | 14 ++++++++++----
 1 file changed, 10 insertions(+), 4 deletions(-)

diff --git a/editor.tcl b/editor.tcl
index a81a02c..e10cb30 100755
--- 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] != "" } {
-- 
2.39.5