1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
|
1605
1606
1607
1608
1609
1610
1611
1612
1613
1614
1615
1616
1617
1618
1619
1620
|
-
-
+
+
|
(one-run-updater
(lambda ()
(when (not run-matrix)
(print "BB> What?? run-matrix is #f"))
(if (or (dashboard:database-changed? commondat tabdat)
(dboard:tabdat-view-changed tabdat))
(debug:catch-and-dump
(lambda ()
(dashboard:one-run-updater commondat tabdat tb cell-lookup run-matrix))
(lambda () ;; check that run-matrix is initialized before calling the updater
(if run-matrix (dashboard:one-run-updater commondat tabdat tb cell-lookup run-matrix)))
"dashboard:one-run-updater")
))))
(dboard:commondat-add-updater commondat one-run-updater tab-num: tab-num)
(dboard:tabdat-runs-tree-set! tabdat tb)
(iup:vbox
(iup:split
tb
|