method show =
    if showed
    then ()
    else (
      m#set_style_property "zIndex" (string_of_int (AXOJs.Misc.new_z_index ()));
      AXOWidgets.body#add_common ( m :> AXOWidgets.common ) ;
      c#set_style_property "zIndex" (string_of_int (AXOJs.Misc.new_z_index ()));
      AXOWidgets.body#add_common ( self :> AXOWidgets.common ) ;
      showed <- not showed ;
    )