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;
.