Inform - Support - Source

Back to List

Inventory
Complete

Backward
Forward

Plain
Coloured
Gaudy

This code
in plain text

Browsing verblibm.h

XObj (lines 1967-1980)

1967  [ XObj obj f;
1968    if (parent(obj) == 0) print (name) obj; else print (a) obj;
1969    print " (", obj, ") ";
1970    if (f==1 && parent(obj) ~= 0)
1971        print "(in ", (name) parent(obj), " ", parent(obj), ")";
1972    new_line;
1973    if (child(obj)==0) rtrue;
1974    if (obj == Class)
1975        WriteListFrom(child(obj),
1976        NOARTICLE_BIT + INDENT_BIT + NEWLINE_BIT + ALWAYS_BIT, 1);
1977    else
1978        WriteListFrom(child(obj),
1979        FULLINV_BIT + INDENT_BIT + NEWLINE_BIT + ALWAYS_BIT, 1);
1980  ];


Last updated 27 February 2004. This web site has not been fully supported since April 2008. Information may be out of date. This page was originally managed by Graham Nelson (graham@gnelson.demon.co.uk) assisted by C Knight.