Texture

Can anybody know how to apply
texture on shape
I have tryed this code but not getting result

myAISContext->InitCurrent();
Handle(AIS_InteractiveObject) curAISObject = myAISContext->Current();
TopoDS_Shape aShape = myAISContext->SelectedShape();
Handle_AIS_TexturedShape aTShape = new AIS_TexturedShape(aShape);
TCollection_AsciiString aTFileName("...gif");
aTShape->SetTextureFileName(aTFileName);
aTShape->SetTextureMapOn();
aTShape->SetTextureRepeat(FALSE,1,0);
aTShape->SetTextureScale(0.5,0.5);

aTShape->SetDisplayMode(1);

GmyView->SetSurfaceDetail(V3d_TEX_ALL);
myAISContext->Display(aTShape);
myAISContext->UpdateCurrentViewer();