method auto_set_z_index =
    let z = AXOJs.Misc.new_z_index () in self#set_z_index z ; z