Box's faces with different materials

I tried to change the color and material of some faces of a box. The code what I made can be seen below. But the result is not the expected one. The different colors and materials are ignored by the viewer. What is the problem?

GetDocument()->myAISContext->EraseAll(Standard_False);

TopoDS_Shape B1 = BRepPrimAPI_MakeBox( DV_BOX_X, DV_BOX_Y, DV_BOX_Z );

TDF_Label label = GetDocument()->GetOCAFDoc()->Main();

TNaming_Builder B( label );

B.Generated( B1 );

TDF_Label aLabels[ 4 ];

aLabels[ 0 ] = label.FindChild( 1, Standard_True );
aLabels[ 1 ] = label.FindChild( 2, Standard_True );
aLabels[ 2 ] = label.FindChild( 3, Standard_True );
aLabels[ 3 ] = label.FindChild( 4, Standard_True );

Handle( TPrsStd_AISPresentation ) prs1 = TPrsStd_AISPresentation::Set( aLabels[ 0 ], TNaming_NamedShape::GetID() );
Handle( TPrsStd_AISPresentation ) prs2 = TPrsStd_AISPresentation::Set( aLabels[ 1 ], TNaming_NamedShape::GetID() );
Handle( TPrsStd_AISPresentation ) prs3 = TPrsStd_AISPresentation::Set( aLabels[ 2 ], TNaming_NamedShape::GetID() );
Handle( TPrsStd_AISPresentation ) prs4 = TPrsStd_AISPresentation::Set( aLabels[ 3 ], TNaming_NamedShape::GetID() );

prs1->SetMaterial( Graphic3d_NOM_STONE );
prs1->SetColor( Quantity_NOC_WHITE );

prs2->SetMaterial( Graphic3d_NOM_PLASTIC );
prs2->SetColor( Quantity_NOC_RED );

prs3->SetMaterial( Graphic3d_NOM_SILVER );
prs3->SetColor( Quantity_NOC_HOTPINK );

prs4->SetMaterial( Graphic3d_NOM_BRONZE );
prs4->SetColor( Quantity_NOC_AZURE );

int i = 0;

for( TopExp_Explorer aFaceExplorer( B1, TopAbs_FACE ) ; aFaceExplorer.More() && i {
TopoDS_Face aFace = TopoDS::Face(aFaceExplorer.Current());

TNaming_Builder NameFace( aLabels[ i ] );

NameFace.Generated( aFace );
}

Handle(AIS_Shape) aBox = new AIS_Shape( B1 );

GetDocument()->myAISContext->Display( aBox, 1, -1 );