@verb #1:"descendants_with_property_suspended" this none this rxd #55
@program #1:"descendants_with_property_suspended" this none this
"object:descendants_with_property_suspended(property)"
" => list of descendants of object on which property is defined."
"calls suspend(0) as needed"
{prop} = args
if (caller == this || (this.r || $perm_utils:controls(caller_perms(), this)))
  $command_utils:suspend_if_needed()
  if (``property_info(this, prop) ! E_PERM => {}' ! E_PROPNF => 0')
    return {this}
  endif
  r = {}
  set_task_perms(caller_perms())
  for c in (children(this))
    r = {@r, @c:descendants_with_property_suspended(prop)}
  endfor
  return r
else
  raise(E_PERM)
endif
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
.