Overview
| Comment: | Added a refresh button to the dashboard |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
0ed7784a22720c67f8f59f459b392f21 |
| User & Date: | mrwellan on 2011-11-08 20:11:58 |
| Other Links: | manifest | tags |
Context
|
2011-11-08
| ||
| 21:25 | Added kicking off of dependent tests to command line run routines check-in: 2f7869c255 user: matt tags: trunk | |
| 20:11 | Added a refresh button to the dashboard check-in: 0ed7784a22 user: mrwellan tags: trunk | |
|
2011-11-07
| ||
| 12:39 | Added handling of NULLs in logfile check-in: 0cdd554a61 user: mrwellan tags: trunk, v1.33 | |
Changes
Modified dashboard.scm from [31da9fd56a] to [d2972b66b4].
| ︙ | ︙ | |||
481 482 483 484 485 486 487 488 489 490 491 492 493 494 | (iup:button "Sort" #:action (lambda (obj) (set! *tests-sort-reverse* (not *tests-sort-reverse*)) (iup:attribute-set! obj "TITLE" (if *tests-sort-reverse* "+Sort" "-Sort")) (set! *last-db-update-time* 0))) (iup:button "HideEmpty" #:action (lambda (obj) (set! *hide-empty-runs* (not *hide-empty-runs*)) (iup:attribute-set! obj "TITLE" (if *hide-empty-runs* "+Hide" "-Hide")) (set! *last-db-update-time* 0)))) (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)))) | > > | 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 | (iup:button "Sort" #:action (lambda (obj) (set! *tests-sort-reverse* (not *tests-sort-reverse*)) (iup:attribute-set! obj "TITLE" (if *tests-sort-reverse* "+Sort" "-Sort")) (set! *last-db-update-time* 0))) (iup:button "HideEmpty" #:action (lambda (obj) (set! *hide-empty-runs* (not *hide-empty-runs*)) (iup:attribute-set! obj "TITLE" (if *hide-empty-runs* "+Hide" "-Hide")) (set! *last-db-update-time* 0))) (iup:button "Refresh" #:action (lambda (obj) (set! *last-db-update-time* 0)))) (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)))) |
| ︙ | ︙ |