Changeset 278

Timestamp:

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

Author:

g7moreau

Message:

• Double arrow

File:

• trunk/klask (modified) (3 diffs)

trunk/klask

@@ -7 +7 @@
 use strict;
 use warnings;
-use version; our $VERSION = qv('0.6.5');
+use version; our $VERSION = qv('0.6.6');
 
 use Readonly;
@@ -2872 +2872 @@
       else {
          my $style = 'solid';
-         $style = 'bold' if $db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/;
-         printf "   \"%s:%s\" -> internet [style=$style, color = navyblue]\n", $sw, $db_switch_output_port{$sw};
+         my $color = 'navyblue';
+         if ($db_switch_output_port{$sw} =~ m/^(Trk|Br|Po)/) {
+            $style = 'bold';
+            $color = "\"$color:invis:$color\"";
+            }
+         printf "   \"%s:%s\" -> internet [style=$style, color = $color]\n", $sw, $db_switch_output_port{$sw};
          }
       }
@@ -2884 +2888 @@
       for my $sw (keys %{$db_switch_connected_on_port{$swport}}) {
          my $style = 'solid';
-         $style = 'bold' if $port_connect =~ m/^(Trk|Br|Po)/;
+         my $color = 'navyblue';
+         if ($port_connect =~ m/^(Trk|Br|Po)/) {
+            $style = 'bold';
+            $color = "\"$color:invis:$color\"";
+            }
          if (exists $db_switch_output_port{$sw}) {
-            printf "   \"%s:%s\" -> \"%s:%s\" [style=$style, color = navyblue]\n", $sw, $db_switch_output_port{$sw}, $sw_connect, $port_connect;
+            printf "   \"%s:%s\" -> \"%s:%s\" [style=$style, color = $color]\n", $sw, $db_switch_output_port{$sw}, $sw_connect, $port_connect;
             }
          else {