Megatest

Check-in [d3f4ebaa66]
Login
Overview
Comment:Added label widget for target selection back (but not fully wired up yet)
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | multi-area-dboard
Files: files | file ages | folders
SHA1: d3f4ebaa660f4ea7f476cba008d2442dba793346
User & Date: matt on 2017-02-09 22:02:19
Other Links: branch diff | manifest | tags
Context
2017-02-10
06:28
Added example hard-coded level for runtype Closed-Leaf check-in: 36205402a3 user: mrwellan tags: multi-area-dboard
2017-02-09
22:02
Added label widget for target selection back (but not fully wired up yet) check-in: d3f4ebaa66 user: matt tags: multi-area-dboard
2017-02-07
22:08
Begin another attempt at multi-area dashboard check-in: 09ec9e3bbe user: matt tags: multi-area-dboard
Changes

Modified dashboard.scm from [9a3edcf290] to [7f48160ca3].

1368
1369
1370
1371
1372
1373
1374

1375






1376
1377
1378
1379
1380
1381
1382
1368
1369
1370
1371
1372
1373
1374
1375

1376
1377
1378
1379
1380
1381
1382
1383
1384
1385
1386
1387
1388







+
-
+
+
+
+
+
+







	     ;;        #:value 300

	     ;; Target, testpatt, state and status input boxes
	     ;;
	     (iup:vbox
	      ;; Command to run, placed over the top of the canvas
	      (dcommon:command-action-selector commondat tabdat tab-num: tab-num)
	      (let ((targ-control (iup:tabs
	      (dboard:runs-tree-browser commondat tabdat)
				   (dboard:runs-tree-browser commondat tabdat)
				   (let ((dat (dashboard:update-target-selector tabdat)))
				     (apply iup:hbox (cadr dat))))))
		(iup:attribute-set! targ-control "TABTITLE0" "Tree")
		(iup:attribute-set! targ-control "TABTITLE1" "Sel")
		targ-control)
	      (dcommon:command-runname-selector commondat tabdat tab-num: tab-num)
	      (dcommon:command-testname-selector commondat tabdat update-keyvals))
	     ;;  key-listboxes))
	     (dcommon:command-tests-tasks-canvas tabdat test-records sorted-testnames tests-draw-state))))
	   (tb (dboard:tabdat-runs-tree tabdat)))
      (dboard:commondat-add-updater 
       commondat 
2025
2026
2027
2028
2029
2030
2031
2032
2033
2034
2035
2036
2037
2038
2039
2040
2031
2032
2033
2034
2035
2036
2037


2038
2039
2040
2041
2042
2043
2044







-
-







    (dboard:tabdat-runs-summary-mode-buttons-set! tabdat summary-buttons)

    ;; maybe wrap in a frame
    (let ((res (iup:vbox summary-buttons-hbox xor-runname-labels-hbox )))
      (dboard:runs-summary-control-panel-updater tabdat)
      res
      )))



;;======================================================================
;; R U N
;;======================================================================
;;
;; display and manage a single run at a time