@verb #1:"findable_properties" this none this rxd #55
@program #1:"findable_properties" this none this
"object:findable_properties()"
"Return a list of properties on those members of object's ancestor list that are readable or are owned by the caller (or all properties if the caller is a wizard)."
set_task_perms(caller_perms())
if (valid(parent(this)))
  return {@this.r || caller_perms() == this.owner || caller_perms().wizard ? properties(this) | {}, @parent(this):findable_properties()}
else
  return this.r || caller_perms() == this.owner || caller_perms().wizard ? properties(this) | {}
endif
"Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
.