1f0
@verb #1076:"sort_created" this none this rxd #2633
@program #1076:"sort_created" this none this
targ = args[1]
cobjs = {}
for dobj in (targ.owned_objects)
  prnt = parent(dobj)
  idex = listiassoc(prnt, cobjs, 1)
  if (children(dobj) || prnt.owner == targ)
    "do nothing"
  elseif (idex)
    cobjs[idex][2] = {@cobjs[idex][2], dobj}
  else
    cobjs = {@cobjs, {prnt, {dobj}}}
  endif
endfor
return cobjs
"Last modified by Janette (#2633) on Sun Aug 12 07:46:25 2001 MDT."
.

0