method remove_common wi = content <- List.filter ((!=) wi) content ; self#obj >>> AXOJs.Node.remove wi#obj ;