method remove_common wi = let ((wi,br),c) = LList.find_remove ( ((=) wi) @@ fst ) content in content <- c ; self#obj >>> AXOJs.Node.remove wi#obj ; self#obj >>> AXOJs.Node.remove br#obj ;