Naming a shape

Hi, THis is Bryan. I referred to ur posting on the forum however I still have some minor problems, hope you can help.
This is how I code my TDF command..
--------------------------------------------------------------------------------

TDF_Label TOccCAD_Commands::CreateSphere(Standard_Real x, Standard_Real y, Standard_Real z, Standard_Real r, const TCollection_ExtendedString& Name)
{

// Create a new label in the data structure for the Sphere
TDF_Label Sphere = TDF_TagSource::NewChild(MainLab);
Handle(TDataStd_Name) NameAttrib1 = new TDataStd_Name();

// Create the data structure : Set the dimensions, position and name attributes
TDataStd_Real::Set(Sphere.FindChild(1), r);
TDataStd_Real::Set(Sphere.FindChild(2), x);
TDataStd_Real::Set(Sphere.FindChild(3), y);
TDataStd_Real::Set(Sphere.FindChild(4), z);
NameAttrib1->Set(Name);
Sphere.AddAttribute(NameAttrib1);

// Instanciate a TOccCADFunction_SphereDriver and add it to the TFunction_DriverTable
Handle(TOccCADFunction_SphereDriver) mySphereDriver = new TOccCADFunction_SphereDriver();
TFunction_DriverTable::Get()->AddDriver(Standard_GUID("SphereDriver"), mySphereDriver);
// Instanciate a TFunction_Function attribute connected to the current Sphere driver
// and attach it to the data structure as an attribute of the Sphere Label
Handle(TFunction_Function) myFunction = TFunction_Function::Set(Sphere,Standard_GUID("SphereDriver"));

// Initialize and execute the Sphere driver (look at the "Execute()" code)
TFunction_Logbook log;
mySphereDriver->Init(Sphere);
if (mySphereDriver->Execute(log)) MessageBox(0,"DFunction_Execute : failed","Sphere",MB_ICONERROR);

return Sphere;
}

--------------------------------------------------------------------------------

Is there any problem in how I define my name of the spheres?
--------------------------------------------------------------------------------

Another problem is, I tried to draw a box based on the positions of a sphere(I tried doing it but have not figured out how so what I did was I will create a box if there is a shape named "RefName")..I did the followings
--------------------------------------------------------------------------------

void COccCADDoc::OnDrawBox()
{
CDefineBoxDlg Dlg;
if(Dlg.DoModal()!=IDOK) return;
Handle(TDocStd_Document) D = GetOcafDoc();

TDF_Label LabSat = myOcafDoc->Main();

D->NewCommand();
TOccCAD_Commands TSC(D->Main());

for (TDF_ChildIterator it(LabSat); it.More(); it.Next())
{
Handle(TDataStd_Name) Nametofind = new TDataStd_Name();
if(it.Value().FindAttribute(TDataStd_Name::GetID(), Nametofind))continue;
if(Nametofind->Get()=="RefName") ;

TCollection_AsciiString Name((Standard_CString)(LPCTSTR)Dlg.m_Name);

// Create a new box using the CNewBoxDlg Dialog parameters as attributes
TDF_Label Box=TSC.CreateBox(Dlg.m_x, Dlg.m_y, Dlg.m_z, Dlg.m_w, Dlg.m_l, Dlg.m_h, TCollection_ExtendedString(Name));

// Get the TPrsStd_AISPresentation of the new box TNaming_NamedShape
Handle(TPrsStd_AISPresentation) prs= TPrsStd_AISPresentation::Set(Box, TNaming_NamedShape::GetID());

// Display it
prs->SetColor(Quantity_NOC_YELLOW);
prs->Display(1);
Fit3DViews();
// Attach an integer attribute to Box to memorize it's displayed
TDataStd_Integer::Set(Box, 1);
myAISContext->UpdateCurrentViewer();

// Close the command (for undo)
D->CommitCommand();
}
}

I have the following problem when i tried to run, even after I have defined a shape named "RefName" , the box still does not come out, I am wondering if I have wrongly defined the root, the root I used is LabSat (where TDF_Label LabSat = myOcafDoc->Main(); & TPrsStd_AISViewer::New(myOcafDoc->Main(),myViewer))
Please advise on this, another thing is, how do I specifically call out just the coordinates of the shape "RefName" and not other attributes
I hope I have made my questions clear enough.
Thanks for taking your time to read this message

Hi Serge, I refer to your mail where you stated
"Q2. Make sure that your driver set the TNaming_NamedShape attribute on the same
label to which you put the attribute TPrsStd_AISPresentation."

I have no idea how to check it, can you give me specific examples on what to change based on SampleOcaf as mine is actually a slight modification of SampleOcaf.
Thanks