Overview
| Comment: | Moved log panel to span entire bottom width. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | dev |
| Files: | files | file ages | folders |
| SHA1: |
f4535b4813a9d66f52bfc7be7af43167 |
| User & Date: | matt on 2013-07-07 01:00:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-07-07
| ||
| 13:16 | Partially complete generation of command line for local running check-in: 57b2d5e1f5 user: matt tags: dev | |
| 01:00 | Moved log panel to span entire bottom width. check-in: f4535b4813 user: matt tags: dev | |
| 00:51 | Mock up of run control mostly done check-in: ae38e1ab41 user: matt tags: dev | |
Changes
Modified dashboard.scm from [747b25ec6e] to [bf6de7cc1c].
| ︙ | ︙ | |||
591 592 593 594 595 596 597 598 599 600 601 602 603 604 |
(iup:hbox
(iup:toggle "Local" #:size "40x")
(iup:toggle "Server" #:size "40x")))
(iup:textbox
#:value "megatest -xyz"
#:expand "HORIZONTAL")
(iup:button "Execute" #:size "50x"))
(iup:split
;; Target, testpatt, state and status input boxes
(iup:vbox
;; Command to run
(iup:frame
#:title "Set the action to take"
(iup:hbox
| > > > > | 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 |
(iup:hbox
(iup:toggle "Local" #:size "40x")
(iup:toggle "Server" #:size "40x")))
(iup:textbox
#:value "megatest -xyz"
#:expand "HORIZONTAL")
(iup:button "Execute" #:size "50x"))
(iup:split
#:orientation "HORIZONTAL"
(iup:split
;; Target, testpatt, state and status input boxes
(iup:vbox
;; Command to run
(iup:frame
#:title "Set the action to take"
(iup:hbox
|
| ︙ | ︙ | |||
643 644 645 646 647 648 649 |
(iup:frame
#:title "States"
(dashboard:text-list-toggle-box
'("PASS" "FAIL" "n/a" "CHECK" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD")
(lambda (all)
(dboard:data-set-statuses! *data* (string-intersperse all ","))
(dashboard:update-run-command))))))))
| | < | > | | 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 |
(iup:frame
#:title "States"
(dashboard:text-list-toggle-box
'("PASS" "FAIL" "n/a" "CHECK" "WAIVED" "SKIP" "DELETED" "STUCK/DEAD")
(lambda (all)
(dboard:data-set-statuses! *data* (string-intersperse all ","))
(dashboard:update-run-command))))))))
(iup:frame
#:title "Tests and Tasks"
(iup:canvas #:action (make-canvas-action
(lambda (cnv xadj yadj)
;; (print "cnv: " cnv " x: " x " y: " y)
(dashboard:draw-tests cnv xadj yadj tests-draw-state sorted-testnames)))
#:size "150x150"
#:expand "YES"
#:scrollbar "YES"
#:posx "0.5"
#:posy "0.5")))
(iup:frame
#:title "Logs" ;; To be replaced with tabs
(let ((logs-tb (iup:textbox #:expand "YES"
#:multiline "YES")))
(dboard:data-set-logs-textbox! *data* logs-tb)
logs-tb))
))))
;; (trace dashboard:populate-target-dropdown
;; common:list-is-sublist)
;;
;; ;; key1 key2 key3 ...
;; ;; target entry (wild cards allowed)
|
| ︙ | ︙ |