class CPentryClass

pri cl : ClassInfo;

pri name : string;

meth Setcl =^ ( val c: ClassInfo ·

cl:= c;

)

end

meth Getcl =^ ( res c: ClassInfo ·

c:= cl;

)

end

meth Setname =^ ( val n: String ·

name:= n;

)

end

meth Getname =^ ( res n: String ·

n:= name;

)

end

end