Overview
| Comment: | Added commondat to params for user tabs |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.61 |
| Files: | files | file ages | folders |
| SHA1: |
c6cdc6e1e64a1addf3ce4afd65c0ab43 |
| User & Date: | matt on 2016-09-10 19:08:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-13
| ||
| 09:56 | Bumped version to v1.6105 check-in: ccacf1d556 user: mrwellan tags: v1.61 | |
|
2016-09-12
| ||
| 13:53 | merged in latest fixes from v1.61 check-in: 485ad7daba user: bjbarcla tags: v1.62 | |
|
2016-09-10
| ||
| 19:08 | Added commondat to params for user tabs check-in: c6cdc6e1e6 user: matt tags: v1.61 | |
| 18:44 | Undid some debug-only edits check-in: 41338fa9ba user: matt tags: v1.61 | |
Changes
Modified dashboard.scm from [d16a56fe38] to [db14a5209a].
| ︙ | ︙ | |||
1619 1620 1621 1622 1623 1624 1625 | (debug:print 0 *default-log-port* "ERROR: failed call procedure " viewgen ", with; tab-num=" tab-num ", view-name=" view-name ", and views-cfgdat and megatest configdat as parameters. To debug try loading in the repl: megatest -repl") (set! success #f)) (print "Adding tab " view-name " with proc " viewgen) ;; (iup:child-add! tabs (set! result-child | | | | 1619 1620 1621 1622 1623 1624 1625 1626 1627 1628 1629 1630 1631 1632 1633 1634 1635 1636 1637 1638 1639 1640 1641 1642 1643 1644 1645 1646 1647 1648 |
(debug:print 0 *default-log-port* "ERROR: failed call procedure " viewgen
", with; tab-num=" tab-num ", view-name=" view-name
", and views-cfgdat and megatest configdat as parameters. To debug try loading in the repl: megatest -repl")
(set! success #f))
(print "Adding tab " view-name " with proc " viewgen)
;; (iup:child-add! tabs
(set! result-child
((eval (string->symbol viewgen)) commondat tabs tab-num view-name views-cfgdat *configdat*))))
;; and finally set the updater
(if success
(dboard:commondat-add-updater commondat
(lambda ()
(handle-exceptions
exn
(begin
(print-call-chain)
(debug:print 0 *default-log-port* " message: " ((condition-property-accessor 'exn 'message) exn))
(debug:print 0 *default-log-port* "ERROR: failed call procedure \"" updater
"\", with; tabnum=" tabnum ", view-name=" view-name
", and views-cfgdat and megatest configdat as parameters. To debug try loading in the repl: megatest -repl")
(set! success #f))
(debug:print 4 *default-log-port* "Running updater for tab " view-name " with proc " updater " and tab-num: " tab-num)
((eval (string->symbol updater)) commondat tabs tab-num view-name views-cfgdat *configdat*)))
tab-num: tab-num))
(if success
(begin
;; (iup:attribute-set! tabs (conc "TABTITLE" tab-num) view-name)
(dboard:common-set-tabdat! commondat tab-num (dboard:tabdat-make-data))))
result-child))
|
| ︙ | ︙ |