Overview
| Comment: | wrong struct being accessed |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dashboard-refactor |
| Files: | files | file ages | folders |
| SHA1: |
4c7f2178b51aad23f5436f81afba3701 |
| User & Date: | mrwellan on 2016-07-06 08:43:31 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-07-07
| ||
| 09:12 | Partially factored out uidat into a field in commondat Closed-Leaf check-in: e918c4732a user: mrwellan tags: dashboard-refactor | |
|
2016-07-06
| ||
| 08:43 | wrong struct being accessed check-in: 4c7f2178b5 user: mrwellan tags: dashboard-refactor | |
|
2016-07-02
| ||
| 17:59 | more refactor cleanup check-in: c03da5b336 user: matt tags: dashboard-refactor | |
Changes
Modified dashboard.scm from [cddc7ee12e] to [91929ed396].
| ︙ | ︙ | |||
701 702 703 704 705 706 707 | (define (set-bg-on-filter commondat tabdat) (let ((search-changed (not (null? (filter (lambda (key) (not (equal? (hash-table-ref (dboard:tabdat-searchpatts tabdat) key) "%"))) (hash-table-keys (dboard:tabdat-searchpatts tabdat)))))) (state-changed (not (null? (hash-table-keys (dboard:tabdat-state-ignore-hash tabdat))))) (status-changed (not (null? (hash-table-keys (dboard:tabdat-status-ignore-hash tabdat)))))) | | | 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 |
(define (set-bg-on-filter commondat tabdat)
(let ((search-changed (not (null? (filter (lambda (key)
(not (equal? (hash-table-ref (dboard:tabdat-searchpatts tabdat) key) "%")))
(hash-table-keys (dboard:tabdat-searchpatts tabdat))))))
(state-changed (not (null? (hash-table-keys (dboard:tabdat-state-ignore-hash tabdat)))))
(status-changed (not (null? (hash-table-keys (dboard:tabdat-status-ignore-hash tabdat))))))
(iup:attribute-set! (dboard:commondat-hide-not-hide-tabs commondat) "BGCOLOR"
(if (or search-changed
state-changed
status-changed)
"190 180 190"
"190 190 190"
))
(dboard:tabdat-filters-changed-set! tabdat #t)))
|
| ︙ | ︙ |