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