Megatest

Check-in [58fcfb43bd]
Login
Overview
Comment:Added missing redraw to steps table display routine
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.54
Files: files | file ages | folders
SHA1: 58fcfb43bdbb290dc0e79e7f664d7f7a42856f78
User & Date: mrwellan on 2013-05-09 16:25:02
Other Links: branch diff | manifest | tags
Context
2013-05-09
16:37
Added Kill Jobs button/command check-in: 901608be34 user: mrwellan tags: v1.54, v1.5427
16:25
Added missing redraw to steps table display routine check-in: 58fcfb43bd user: mrwellan tags: v1.54
16:17
NEW (old) POLICY, add back setting of test log with -step -setlog check-in: 4f6fa245d2 user: mrwellan tags: v1.54
Changes

Modified dashboard-tests.scm from [eb03430679] to [c4dde7e50f].

439
440
441
442
443
444
445
446


447
448
449
450
451
452
453
439
440
441
442
443
444
445

446
447
448
449
450
451
452
453
454







-
+
+







								 (rownum 1)
								 (colnum 1))
							(let ((val (vector-ref hed (- colnum 1))))
							  (iup:attribute-set! steps-matrix  (conc rownum ":" colnum)(if val (conc val) ""))
							  (if (< colnum 6)
							      (loop hed tal rownum (+ colnum 1))
							      (if (not (null? tal))
								  (loop (car tal)(cdr tal)(+ rownum 1) 1)))))))))
								  (loop (car tal)(cdr tal)(+ rownum 1) 1))))
							(iup:attribute-set! steps-matrix "REDRAW" "ALL"))))))
					   (hash-table-set! widgets "StepsMatrix" proc)
					   (proc testdat))
					 steps-matrix)
				       ;; populate the Test Data panel
				       (iup:frame
					#:title "Test Data"
					(let ((test-data