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