class CPentryFieldref

pri cl : ClassInfo;

pri name : string;

pri descriptor : string;

pri visibility : string; %(pri or prot)

 

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

meth SetDescriptor =^ ( val d: String

Descriptor:= d;

)

end

meth GetDescriptor =^ ( res d: String

d:= Descriptor;

)

end

meth SetVisibility =^ ( val v: String

Visibility:= v;

)

end

meth GetVisibility =^ ( res v: String

v:= Visibility;

)

end

end