Return to Revisions

Here is a followup to my question, code based on the example provided by kguler. Note there is no longer any need for Manipulate[]— it is all handled by Dynamic[].

data = Table[RandomReal[], {5}];

DynamicModule[ {n = Length[data]},

 Column[{

   Dynamic[
    Grid[
     Table[
      With[{i = i},
       {i,
        Slider[Dynamic[data[[i]]]],
        Dynamic[data[[i]]]
        }
       ],
      {i, n}
      ](*Table*)
     ]],(*Dynamic*)

   Dynamic[ListPlot[data, Joined -> True]]

   }, Center](*Column*)
 ]