lose $fid
    }

    method get {}
    method put {line}
    method eof {}
}

itcl::body File::get {} {
    return [gets $fid]
}
itcl::body File::put {line} {
    puts $fid $line
}
itcl::body File::eof {} {
    return [::eof $fid]
}

#
# See the File class in action:
#
File x /etc/passwd &quot;r&quot;
while {![x eof]} {
    puts &quot;=&gt; [x get]&quot;
}
itcl::delete object x</PRE>
<H3><A NAME="M6">KEYWORDS</A></H3>
<A href="../Keywords/C.html#class">class</A>, <A href="../Keywords/O.html#object">object</