From: marko <marko>
Date: Sun, 13 Nov 2005 12:53:30 +0000 (+0000)
Subject: Do not draw arrows on plain links, since arrows are really needed only on
X-Git-Url: https://git.entuzijast.net/?a=commitdiff_plain;h=de4ba4172606ee3f2db21405c5e96c2c649e1951;p=imunes.git

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 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] != "" } {