Manipulate[GraphicsRow[{HighlightGraph[g4,{1,stepedge4[[;;i]]},GraphStyle->"BasicBlue",GraphHighlightStyle->"Thick"],HighlightGraph[tree4,{1,stepedge4[[;;i]]},GraphStyle->"BasicBlue",GraphHighlightStyle->"Thick"]},ImageSize -> 500],{{i, 0, "step"}, 0, 7, 1},Initialization:>(g4=;{pred4,edges4}=Reap[DepthFirstScan[g4,1,{"FrontierEdge"->Sow}]];tree4=TreeGraph[edges4[[1]]];stepedge4=edges4[[1]])]