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