Commit 820b6a86 authored by MARCHE Claude's avatar MARCHE Claude
Browse files

add missing notification Reset_whole_tree in JS interface

parent 94b94f59
......@@ -540,7 +540,7 @@ end
let interpNotif (n: notification) =
match n with
| Reset_whole_tree -> PE.error_print_msg "Reset_whole_tree"
| Reset_whole_tree -> TaskList.clear ()
| Initialized _g ->
PE.error_print_msg "Initialized"
| New_node (nid, parent, ntype, name, detached) ->
......
......@@ -681,6 +681,8 @@ exception NotNotification of string
let parse_notification constr j =
match constr with
| "Reset_whole_tree" -> Reset_whole_tree
| "New_node" ->
let nid = get_int (get_field j "node_ID") in
let parent = get_int (get_field j "parent_ID") in
......
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