Commit 8c86451e authored by bguillaum's avatar bguillaum
Browse files

void nodes are red

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@7843 7838e531-6607-4d57-9587-6c381814729c
parent 46a19265
......@@ -625,7 +625,7 @@ module G_graph = struct
let dep_fs = G_fs.to_dep ?filter ?main_feat fs in
let style = match (List.mem id deco.G_deco.nodes, G_fs.get_string_atom "sem" fs) with
| (true, _) -> "; forecolor=red; subcolor=red; "
| (false, Some "void") -> "; forecolor=\"#AAAAAA\"; subcolor=\"#AAAAAA\"; "
| (false, Some "void") -> "; forecolor=red; subcolor=red; "
| _ -> "" in
bprintf buff "N_%s { %s%s }\n" (Gid.to_string id) dep_fs style
) snodes;
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment