Overview
Comment: | Cleaned up the left labels |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | guitweaks |
Files: | files | file ages | folders |
SHA1: |
a0696770b5091a884c8d5499b65165ab |
User & Date: | mrwellan on 2011-10-26 10:46:19 |
Other Links: | branch diff | manifest | tags |
Context
2011-10-26
| ||
10:59 | Cleaned up the left labels, got some semblence of sorting to work check-in: d25299ae49 user: mrwellan tags: guitweaks | |
10:46 | Cleaned up the left labels check-in: a0696770b5 user: mrwellan tags: guitweaks | |
10:37 | Cleaned up the left labels check-in: 00fe53b20b user: mrwellan tags: guitweaks | |
Changes
Modified dashboard.scm from [41f87e4841] to [f8acda7522].
︙ | |||
99 100 101 102 103 104 105 106 107 108 109 110 111 112 | 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 | + + | (define *status-ignore-hash* (make-hash-table)) (define *state-ignore-hash* (make-hash-table)) (define *last-db-update-time* 0) (define *please-update-buttons* #t) (define *db-file-path* (conc *toppath* "/megatest.db")) (define *tests-sort-reverse* #f) (define *verbosity* (cond ((args:get-arg "-debug")(string->number (args:get-arg "-debug"))) ((args:get-arg "-v") 2) ((args:get-arg "-q") 0) (else 1))) (define uidat #f) |
︙ | |||
219 220 221 222 223 224 225 | 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 | - + | (key-vals (get-key-vals *db* run-id))) (if (> (length tests) maxtests) (set! maxtests (length tests))) ;(if (not (null? tests)) (set! result (cons (vector run tests key-vals) result)))); ) runs) (set! *header* header) |
︙ | |||
467 468 469 470 471 472 473 | 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 | - + + | (update-search "test-name" val))) (iup:textbox #:size "60x15" #:fontsize "10" #:value "%" #:action (lambda (obj unk val) (set! *last-db-update-time* 0) (update-search "item-name" val))))) (iup:vbox (iup:hbox |
︙ |