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