View/Edit #1:leaves_suspended

Switch to edit mode.

Name(s): leaves_suspended
1:  "Copied from Object utilities (#53):leaves_suspended by Slacker (#2) Aug 14 18:20:20 1996"
2:  ":leaves_suspended(object) => list of all childless descendents of object"
3:  "this versions calls suspend(0) as needed"
4:  set_task_perms(caller_perms())
5:  s = {}
6:  for k in (children(this))
7:    $command_utils:suspend_if_needed()
8:    s = {@s, @k:leaves_suspended()}
9:  endfor
10: return s || {this}
11: "Last modified by Slacker (#55) on Mon Jun 21 05:46:05 1999 MDT."
12: "This verb previously owned by manta (#7165), and chowned to $slacker upon dewizarding (Sat Aug 17 14:50:04 2002 MDT)."
13: "Last modified by Dax (#789) on Sat Aug 17 14:50:04 2002 MDT."

Verb arguments: this none this
Verb perms: Readable eXecutable NOT-Debug
Verb owned by: Slacker (#55)

You are not logged in.

[home | help | who | search | setup | code]