Handle(TDataStd_NamedData) aNamedData;
theNewLabel.FindAttribute( TDataStd_NamedData::GetID(), aNamedData );
- aNamedData->SetInteger( "ObjectKind", theObjectKind );
+ aNamedData->SetInteger( "ObjectKind", theObjectKind ); //??CAF
return Object( theNewLabel );
}