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 | (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 *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) | > > | 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 | (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) | | | 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) (set! *allruns* (if *tests-sort-reverse* (reverse result) result)) (debug:print 6 "*allruns* has " (length *allruns*) " runs") ;; (set! *tot-run-count* (+ 1 (length *allruns*))) maxtests)) *num-tests*))) ;; FIXME, naughty coding eh? (define *collapsed* (make-hash-table)) ; (define *row-lookup* (make-hash-table)) ;; testname => (rownum lableobj) |
| ︙ | ︙ | |||
467 468 469 470 471 472 473 | (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 | | > | 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 (iup:button "Sort" #:acton (lambda (obj) (set! *tests-sort-order* (not *tests-sort-order*))))) (iup:hbox (iup:button "Quit" #:action (lambda (obj)(sqlite3:finalize! *db*)(exit))) (iup:button "Monitor" #:action (lambda (obj)(system (conc (car (argv))" -guimonitor &"))))) )) ;; (iup:button "<- Left" #:action (lambda (obj)(set! *start-run-offset* (+ *start-run-offset* 1)))) ;; (iup:button "Up ^" #:action (lambda (obj)(set! *start-test-offset* (if (> *start-test-offset* 0)(- *start-test-offset* 1) 0)))) ;; (iup:button "Down v" #:action (lambda (obj)(set! *start-test-offset* (if (>= *start-test-offset* (length *alltestnamelst*))(length *alltestnamelst*)(+ *start-test-offset* 1))))) |
| ︙ | ︙ |