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 ;