(*copyright: Nasser M. Abbasi, version: April 8, 2015 *)
(*simple example of making rotate 3D.*)

Manipulate[
 tick;
 If[ok,
  x = x + 1;
  x = Mod[x, 360];
  tick = Not[tick]
  ];
 Grid[{{
    Graphics3D[
     Rotate[Cuboid[{-0.5, -0.5, -0.5}],
      x Degree, {0, 0, 1}, {0, 0, 0}], Boxed -> False,
     PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}]
    },
   {
    DateString[]
    }}],
 Button["run/stop", ok = Not[ok]; tick = Not[tick]],
 {{tick, False}, None},
 {{x, 0}, None},
 {{ok, True}, None},
 TrackedSymbols :> {tick}
 ]