Changeset 280

Timestamp:

Sep 25, 2017, 5:36:38 PM (7 years ago)

Author:

g7moreau

Message:

• Small error on color

File:

• trunk/klask (modified) (1 diff)

trunk/klask

@@ -2860 +2860 @@
                next if $port_connect eq $db_switch_output_port{$sw};
                my $peripheries = 1;
-               $peripheries = 2 if $port_connect =~ m/^(Trk|Br|Po)/;
+               my $color = 'black';
+               if ($port_connect =~ m/^(Trk|Br|Po)/) {
+                  $peripheries = 2;
+                  $color = "\"$color:invis:$color\"";
+                  }
                print "\"$sw:$port_connect\" [label = \"".format_aggregator4dot($port_connect)."\", color = black, fillcolor = plum,  peripheries = $peripheries, style = filled];\n";
                print "\"$sw:$port_connect\" -> \"$sw\" [len=2, style=bold, color = $color, arrowhead= normal, arrowtail = inv]\n";