Scaling Dynamic widgets up

Question

The serious flaw of Dynamic is a combination of facts:

• it is triggered/refreshed by any kind of mutation of a symbol,

• careful metaprogramming/construction of symbols is really cumbersome

An example is worth a thousand words so:

{ Dynamic@x[[1]], Dynamic@x[[2]]}

You can't trigger one without other one being affected even if the value didn't change. And writing:

{ Dynamic @ x1, Dynamic @ x2 }

will be tough to automatically scale/maintain for regular users. A real world example can be found here:

Allow multiple GUI elements to react dynamically to interaction with a single element

The code in the answer is not something you'd love to write on daily basis:

DynamicModule[{}, Graphics[{
   ( ToExpression[
      "{sA:=state" <> ToString[#] <> ", sB:=state" <> ToString[#2] <> "}",
      StandardForm, 
      Hold
    ] /. Hold[spec_] :> With[spec, 
       {  Dynamic @ If[TrueQ[sA || sB], Red, Black], 
          Line[{pts[#1], pts[#2]}]
       }
    ]
   ) & @@@ edges
   ,
   PointSize[0.025],
   (
    ToExpression[
      "{sA:=state" <> ToString[#] <> "}", 
      StandardForm, 
      Hold
    ] /. Hold[spec_] :> With[spec, 
       { Dynamic @ If[TrueQ[sA], Red, Black], 
         EventHandler[ Point @ pts[#], 
           {"MouseEntered" :> (sA = True), "MouseExited" :> (sA = False)}
         ]
       }
    ]
   ) & /@ names
  }, 
  ImageSize -> Large]
 ]

Very often a smart, specific solution can be applied but it would be nice to be able to do mindless things and not be limited by syntax/design issues but real limitations of how much FrontEnd can handle.

What can we do to make programming of idioms presented in the linked question more approachable?

---

Related topic: How to track Part of Symbol or How to symbolize Parts of Symbol without copying data

Answer 1

Among features that will come, DynamicObjects` package provides FrontEndSymbol/FrontEndModule utilities which can be used to solve this problem.

It is not a golden hammer and needs understanding of what is going on under the hood but can be used in powerful ways. So I strongly recommend reading wiki before creating own examples:

https://github.com/kubaPod/DynamicObjects/wiki/FrontEndModule-and-FrontEndSymbol

TL;DR;

Follow installation steps from https://github.com/kubaPod/DynamicObjects

Then the code from the linked topic can be rewritten to:

Needs @ "DynamicObjects`";

n = 120;
names = Range[n];
pts = AssociationThread[names -> N@CirclePoints[n]];
edges = RandomSample[Subsets[names, {2}], 250];

FrontEndModule[ 
  Graphics[
    { 
      { 
        Dynamic @ If[ 
          TrueQ[ FrontEndSymbol["state",#1] || FrontEndSymbol["state", #2] ]
        , Red
        , Black
        ]
      , Line[{pts[#1],pts[#2]}]
      }& @@@ edges    
    , {
        AbsolutePointSize@7
      , Dynamic @ If[ TrueQ[FrontEndSymbol["state",#1]], Red, Black]
      , EventHandler[Point@pts[#]
        , { "MouseEntered":>(FrontEndSymbol["state",#1]=True)
          , "MouseExited":>(FrontEndSymbol["state",#1]=False)
          }
        ]
      }& /@ names
    }
  , ImageSize -> Medium
  ]
]

Much cleaner, isn't it?

Answer 2

DynamicObjects` were not flexible enough for my daily problems. Here is an alternative approach:

PreciseTracking` package (prototype stage) does not create intermediate symbols to manage binding with Dynamic but instead uses the same mechanism Mathematica uses for Dynamic updates. (how exactly it works is a subject for a longer post in future, an introduction can be found in https://mathematica.stackexchange.com/a/200571/5478).

You can install it from https://github.com/kubaPod/PreciseTracking

Check[
  << MPM`
, Import["https://raw.githubusercontent.com/kubapod/mpm/master/install.m"]
; << MPM`
]    

MPMInstall["kubapod", "PreciseTracking"]

And give it a try:

<< PreciseTracking`

asso = <|"a" -> 1, "b" -> 1|>; (*only 'flat' associations are handled atm*)

ToTrackedAssociation @ asso;  
  (*now asso[key] = value will try to update associated dynamics *)

Slider@Dynamic@asso["a"]

PreciseDynamic[Print@"a"; asso["a"], asso["a"]] 
PreciseDynamic[Print@"b"; asso["b"], asso["b"]]
  (*the second argument serves as a 'TrackedTarget' specification*)

It is in a prototype form and I am yet to test / extend it but I appreciate feedback.

And finally a solution for the original problem:

n = 100;
names = Range[n];
pts = AssociationThread[names -> N@CirclePoints[n]];
edges = RandomSample[Subsets[names, {2}], 1500];

states = AssociationThread[names -> False];

ToTrackedAssociation@states;

Graphics[
{
  {
     PreciseDynamic[
      If[TrueQ[states[#1] || states[#2]], Red, Black],
      {states[#1], states[#2]}
     ], 
     [email protected], Line[{pts[#1], pts[#2]}]
  } & @@@ edges,
  {
     AbsolutePointSize@12, 
     PreciseDynamic[If[TrueQ[states[#1]], Red, Black], states[#]], 
     EventHandler[
      Point@pts[#], 
      {"MouseEntered" :> (states[#1] = True), "MouseExited" :> (states[#1] = False)}
     ]
  } & /@ names
}, ImageSize -> Large]