Fossil SCM
Dot export extended, allow graph to define label color for highlighting.
Commit
eb43120ac13c419dd84aa5cc8813ddb6fc77b70e
Parent
124fef5b1cdefe9…
1 file changed
+1
-1
+1
-1
| --- tools/cvs2fossil/lib/dot.tcl | ||
| +++ tools/cvs2fossil/lib/dot.tcl | ||
| @@ -37,11 +37,11 @@ | ||
| 37 | 37 | set nodes $subgraph |
| 38 | 38 | set arcs [eval [linsert $subgraph 0 $g arcs -inner]] |
| 39 | 39 | } |
| 40 | 40 | |
| 41 | 41 | foreach n $nodes { |
| 42 | - set style [Style $g node $n {label label shape shape}] | |
| 42 | + set style [Style $g node $n {label label shape shape fontcolor fontcolor}] | |
| 43 | 43 | lappend lines "\"$n\" ${style};" |
| 44 | 44 | } |
| 45 | 45 | foreach a $arcs { |
| 46 | 46 | set style [Style $g arc $a {color color}] |
| 47 | 47 | lappend lines "\"[$g arc source $a]\" -> \"[$g arc target $a]\" ${style};" |
| 48 | 48 |
| --- tools/cvs2fossil/lib/dot.tcl | |
| +++ tools/cvs2fossil/lib/dot.tcl | |
| @@ -37,11 +37,11 @@ | |
| 37 | set nodes $subgraph |
| 38 | set arcs [eval [linsert $subgraph 0 $g arcs -inner]] |
| 39 | } |
| 40 | |
| 41 | foreach n $nodes { |
| 42 | set style [Style $g node $n {label label shape shape}] |
| 43 | lappend lines "\"$n\" ${style};" |
| 44 | } |
| 45 | foreach a $arcs { |
| 46 | set style [Style $g arc $a {color color}] |
| 47 | lappend lines "\"[$g arc source $a]\" -> \"[$g arc target $a]\" ${style};" |
| 48 |
| --- tools/cvs2fossil/lib/dot.tcl | |
| +++ tools/cvs2fossil/lib/dot.tcl | |
| @@ -37,11 +37,11 @@ | |
| 37 | set nodes $subgraph |
| 38 | set arcs [eval [linsert $subgraph 0 $g arcs -inner]] |
| 39 | } |
| 40 | |
| 41 | foreach n $nodes { |
| 42 | set style [Style $g node $n {label label shape shape fontcolor fontcolor}] |
| 43 | lappend lines "\"$n\" ${style};" |
| 44 | } |
| 45 | foreach a $arcs { |
| 46 | set style [Style $g arc $a {color color}] |
| 47 | lappend lines "\"[$g arc source $a]\" -> \"[$g arc target $a]\" ${style};" |
| 48 |