Changes In Branch ui-experiments Excluding Merge-Ins
This is equivalent to a diff from d73b2c1642 to 198b9ecb00
|
2011-06-27
| ||
| 21:52 | Removed queuing behavior when in -keepgoing mode check-in: 1ea16b0407 user: mrwellan tags: trunk | |
| 10:04 | UI speedup experiments Closed-Leaf check-in: 198b9ecb00 user: mrwellan tags: ui-experiments | |
|
2011-06-26
| ||
| 23:38 | Merged refactor of dashboard to trunk check-in: d73b2c1642 user: mrwellan tags: trunk | |
| 23:37 | refactor of dashboard completed, now for a redesign :) Closed-Leaf check-in: c6b6fec4f4 user: mrwellan tags: refactor-dashboard | |
|
2011-06-16
| ||
| 14:01 | Added switch to set number of rows in a dashboard screen check-in: 4d44659fb3 user: mrwellan tags: trunk | |
Modified dashboard.scm from [0947d7ca7f] to [fd0adaeb5a].
| ︙ | ︙ | |||
411 412 413 414 415 416 417 |
(set! *num-tests* (min (max (update-rundat "%" *num-runs* "%" "%") 8) 20)))
(define uidat #f)
;; (megatest-dashboard)
(define (run-update mtx1)
(let loop ((i 0))
| | | > | | | > | | | | > | > | 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 |
(set! *num-tests* (min (max (update-rundat "%" *num-runs* "%" "%") 8) 20)))
(define uidat #f)
;; (megatest-dashboard)
(define (run-update mtx1)
(let loop ((i 0))
(thread-sleep! 0.1)
;(mutex-lock! mtx1)
(if (eq? 0 (modulo i 3))
(update-buttons uidat *num-runs* *num-tests*))
;(mutex-unlock! mtx1)
(iup:main-loop-flush)
;(mutex-lock! mtx1)
(if (eq? 0 (modulo (+ 1 i) 5))
(update-rundat (hash-table-ref/default *searchpatts* "runname" "%") *num-runs*
(hash-table-ref/default *searchpatts* "test-name" "%")
(hash-table-ref/default *searchpatts* "item-name" "%")))
;(mutex-unlock! mtx1)
(if (> i 1000)
(loop 0)
(loop (+ i 1)))))
(define *job* #f)
(cond
((args:get-arg "-run")
(let ((runid (string->number (args:get-arg "-run"))))
(if runid
|
| ︙ | ︙ |