(*simple example of making rotate 3D. Nasser M. Abbasi 4/8/15*)
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}
]