Method code for $page_bin_index.object()

[Turn on line numbering]

---

arg header, info, args;
var out, obj, o, line, objs, m;

obj = (| args["target"] |);
out = .build_header(header, info, args, #[['title, obj.namef('xref)]]) + ["<h1 align=center>" + ._make_display_href(obj, "&methods=1") + "</h1>"];
line = "<p align=center><b>Parent(s)</b>: " + ((| ._make_object_href((obj.parents())[1]) |) || "(none)");
for o in ((| obj.parents().subrange(2) |) || [])
    line += ", " + ._make_object_href(o);
out += [line + "</p>", "<table>"];
objs = obj.children();
if (obj) {
    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>"];
    for o in (objs) {
        refresh();
        m = o.manager();
        if (!valid(o))
            m = toliteral(m);
        else
            m = ._make_object_href(m);
        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>"];
    }
}
out += ["</table><p>", join(obj.credit(), "<br>"), "</center>"];
return [out + .build_footer(header, info, args)];

---

// Brad Roberts
// Bruce Mitchener, Jr.
// Created 16-May-1997 as a part of ColdCore, see: @help Credit