Overview
| Comment: | Sprucing up the gui a bit. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | guitweaks |
| Files: | files | file ages | folders |
| SHA1: |
9b2128dd16ccf3a1cafa5910a98de69b |
| User & Date: | mrwellan on 2011-10-26 09:15:46 |
| Other Links: | branch diff | manifest | tags |
Context
|
2011-10-26
| ||
| 10:37 | Cleaned up the left labels check-in: 00fe53b20b user: mrwellan tags: guitweaks | |
| 09:15 | Sprucing up the gui a bit. check-in: 9b2128dd16 user: mrwellan tags: guitweaks | |
|
2011-10-25
| ||
| 20:12 | Fixed command line -runall borked by the monitor stuff check-in: fa52f9444d user: mrwellan tags: trunk | |
Changes
Modified dashboard.scm from [1bf80313b8] to [c7090ca2ad].
| ︙ | ︙ | |||
457 458 459 460 461 462 463 | #:action (lambda (obj unk val) (set! *last-db-update-time* 0) (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))))) | > | > > | | | 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 | #:action (lambda (obj unk val) (set! *last-db-update-time* 0) (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 Order" #:acton (lambda (obj)(toggle-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))))) ;; (iup:button "Right ->" #:action (lambda (obj)(set! *start-run-offset* (if (> *start-run-offset* 0)(- *start-run-offset* 1) 0)))) (iup:frame #:title "hide" |
| ︙ | ︙ |