method add_common ?before wi = match before with
| None -> content <- wi :: (List.filter ((!=) wi) content) ;
self#obj >>> AXOJs.Node.append wi#obj ;
| Some wii -> content <- LList.insert_after content wi wii ;
self#obj >>> AXOJs.Node.insert_before wi#obj wii#obj ;