EXAMPLE</A></H3>
In the following example, a &quot;File&quot; class is defined to represent
open files.  The method bodies are included below the class
definition via the <B>body</B> command.  Note that the bodies
of the constructor/destructor must be included in the class
definition, but they can be redefined via the <B>body</B> command
as well.
<PRE>itcl::class File {
    private variable fid &quot;&quot;
    constructor {name access} {
        set fid [open $name $access]
    }
    destructor {
        c