"setProp.MBdataDE" <-
function(x,prop)
{
isValid <- validObject(x)
x@prop <- prop
isValid <- validObject(x)
return(x)
}