parent $note object $disk_readable var $root child_index 5 var $root owners [$disk_readable] var $root fertile 1 var $has_verbs verbs #[] var $located location $nowhere var $root inited 1 var $disk_readable disk_text "" var $ seperator 0 var $root owned [$disk_readable] var $gendered gender $gender_neuter var $located obvious 1 var $described prose #[] var $root manager $disk_readable var $root writable [$disk_readable] var $root readable ['methods, 'code] var $root dbref 'disk_readable var $named name ['uniq, "Generic Disk Readable Object"] var $named name_aliases [] var $text text [] var $public public ['readable] method read_cmd arg [args]; var actor; actor = sender(); actor.tell(.description(actor, 'namef)); actor.tell(.seperator()); actor.echo_file(disk_text); . method init_disk_readable if (caller() != $root) throw(~perm, "Caller is not $root"); disk_text = ""; . method set_disk_text arg filename; if (!(.is_writable_by(sender()))) throw(~perm, "Sender not an owner"); disk_text = filename; .