class ObjFieldInfo

pri data : Object;

pri name : string;

pri visibility : string; % pri, prot

meth GetData =^ (res d: Object ·

d:= data;

)

end

meth SetData =^ (val d: Object ·

data:= d;

)

end

meth SetName =^ (val n: string ·

name:= n;

)

end

meth GetName =^ (res n: string ·

n:= name;

)

end

meth SetVisibility =^ (val v: string ·

Visibility:= v;

)

end

meth GetVisibility =^ (res v: string ·

v:= Visibility;

)

end

 

meth BuildDataField =^ ( val D: String ·

If [] D = "int" ® Data := new DataInfoInt;

[] D <> "int" ® Data:= new Object;

fi

)

end

end