toVect[v_]:=Module[{vec="⟨ ",n},
For[n=1,n≤Length[v],n++,
(vec=StringJoin[vec,ToString[#]])&[v[[n]]];
vec=StringJoin[vec,If[n≠Length[v],", "," ⟩"]];
];
Return[vec];
]
DynamicModule[{r0={0,0},thev={1,0},ti=0},Deploy[GraphicsRow[{
GraphicsColumn[{
TableForm[{
{Style["(Overscript[(Subscript[r, 0]), ->])=",14],Style[Dynamic[toVect[Round[r0,.1]]],14]},
{Style["(Overscript[v, ->])=",14],Style[Dynamic[toVect[Round[thev,.1]]],14]},
{Style["t=",14],Style[Dynamic[Round[ti,.1]],14]},
{Panel[Slider[Dynamic[ti],{-1,1},ImageSize->100]],SpanFromLeft}
}],
GraphicsRow[{
Show[{Graphics[Text[Style["(Overscript[(Subscript[r, 0]), ->])",20],{-2.5,2.5}]],Graphics[{Thickness[0.02],Arrow[{{0,0},Dynamic[r0]}]}],Graphics[Locator[Dynamic[r0]]]},PlotRange->3,Ticks->{Range[-3,3],Range[-3,3]},Axes->True,ImageSize->150],
Show[{Graphics[Text[Style["(Overscript[v, ->])",20],{-2.5,2.5}]],Graphics[{Thickness[0.02],Arrow[{{0,0},Dynamic[thev]}]}],Graphics[Locator[Dynamic[thev]]]},PlotRange->3,Ticks->{Range[-3,3],Range[-3,3]},Axes->True,ImageSize->150]
}]
}],
Dynamic[Show[{
Graphics[{Red,PointSize[.02],Point[r0 + ti thev]}],
ParametricPlot[r0 + t thev,{t,-10,10},PlotStyle->Thick]},PlotRange->5,Ticks->{Range[-5,5],Range[-5,5]},Axes->True,ImageSize->400]]
}]
]]