Interactive Plot

getGauss[x0_, A_, width_] := (
  Table[{x, A (*SpB[*)Power[E(*|*),(*|*)-(*FB[*)(((*SpB[*)Power[(x-x0)(*|*),(*|*)2](*]SpB*))(*,*)/(*,*)(2 ((*SpB[*)Power[width(*|*),(*|*)2](*]SpB*))))(*]FB*)](*]SpB*) }, {x,-1,1,0.01}] // Quiet
);
getGauss[{x0_, A_}, width_] := getGauss[x0, A, width];
getGauss[{x0_, A_, width_}] := getGauss[x0, A, width];

Now lets define our plot with event handlers

Module[{line, initial},
 initial = {-0.2,0.8,0.1};
 line = getGauss[initial];

 Graphics[{
   Red, PointSize[0.1], 
   EventHandler[
     Point[initial[[1;;2]]]
   , {
      "drag"->Function[c, initial[[1;;2]] = c; line = getGauss[initial]],
      
      "zoom"->Function[k, initial[[3]] = k/10.0; line = getGauss[initial]]
     }],
  
   Cyan, Line[line // Offload]
 }, PlotRange->{{-1,1},{0,1}}, "TransitionType"->"Linear", "TransitionDuration"->30, Axes->{True, False}]
]

Basic Manipulate with strings interpolation

Manipulate[Style[StringTemplate["`` m/s"][SetPrecision[a,2]], Blue], {a,0,1}, ContinuousAction->True]