progress

TAEditor/TAGraph.ml

@@ -101,7 +101,11 @@
          Some (v,guard,reset)
       | Some (`String v) when attr_id = 1 ->
          Some (label,v,reset)
-                
+       | Some (`String v) when attr_id = 2 ->
+         (try 
+            let ins = String.sub v 1 (String.length v-2) in 
+            Some (label,guard, (String.split_on_char 'c' ins) ) with
+           _ -> None)
       | _ -> None
 
     let get_new_arc_attr atlist _ = []

editor/SimpleGraph.ml

@@ -141,7 +141,7 @@ module S (P:PREGRAPH) =
 
     let update_arc_attribute graph arct attr_id attr_value =
       match arct with
-        `Empty -> true
+        `Empty -> update_node_attribute graph `Empty attr_id attr_value
       | `Arc k ->
          let (),(arc,_,_) = Data.acca graph.arc k in
          match P.update_arc_attr !arc attr_id attr_value with