[Turn off line numbering]
1: arg header, info, args;
2: var out, obj, o, line, objs, m;
3:
4: obj = (| args["target"] |);
5: out = .build_header(header, info, args, #[['title, obj.namef('xref)]]) + ["<h1 align=center>" + ._make_display_href(obj, "&methods=1") + "</h1>"];
6: line = "<p align=center><b>Parent(s)</b>: " + ((| ._make_object_href((obj.parents())[1]) |) || "(none)");
7: for o in ((| obj.parents().subrange(2) |) || [])
8: line += ", " + ._make_object_href(o);
9: out += [line + "</p>", "<table>"];
10: objs = obj.children();
11: if (obj) {
12: out += ["<p align=center><b>Children:</b></p>", "<center><table cellspacing=0 cellpadding=0>", "<tr><td width=25%><b>Name</b></td><td width=25%><b>Perms</b></td><td width=25%><b>Size</b></td><td width=25%><b>Manager</b></td></tr>"];
13: for o in (objs) {
14: refresh();
15: m = o.manager();
16: if (!valid(o))
17: m = toliteral(m);
18: else
19: m = ._make_object_href(m);
20: out += ["<tr><td>" + ._make_object_href(o) + "</td><td>" + $object_lib.see_perms(o, ["", ""]) + "</td><td>" + o.size().to_english() + "</td><td>" + m + "</td></tr>"];
21: }
22: }
23: out += ["</table><p>", join(obj.credit(), "<br>"), "</center>"];
24: return [out + .build_footer(header, info, args)];
// Brad Roberts
// Bruce Mitchener, Jr.
// Created 16-May-1997 as a part of ColdCore, see: @help Credit