Why does this simple expression freezes Mathematica? (version 10.3.0, Windows 7 64)
SetOptions[EvaluationNotebook[],
NotebookDynamicExpression :> (Dynamic[
Refresh[If[! NumericQ[myColorID], myColorID = 1];
myColorID = If[myColorID == 2, 1, 2], UpdateInterval -> 0.5],
TrackedSymbols -> {}])]
And yet, when I do just the Dynamic part, it works fine:
Dynamic[Refresh[If[! NumericQ[myColorID], myColorID = 1];
myColorID = If[myColorID == 2, 1, 2], UpdateInterval -> 0.5],
TrackedSymbols -> {}]
(and the same problem exists when using SetOptions[$FrontEndSession, FrontEndDynamicExpression :>...
)