Megatest

Check-in [5834a7acc8]
Login
Overview
Comment:- is for running step, not completed
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 5834a7acc8eaf3139a43dac4f56bb59a9c4679e8
User & Date: bjbarcla on 2018-12-06 12:00:30
Other Links: branch diff | manifest | tags
Context
2018-12-06
12:01
bumped to v1.6515 check-in: a5596b73e4 user: bjbarcla tags: v1.65
12:00
- is for running step, not completed check-in: 5834a7acc8 user: bjbarcla tags: v1.65
2018-12-05
16:28
merged feature to preserve environment for test control panel execute button check-in: 74324f583b user: bjbarcla tags: v1.65, v1.6517
Changes

Modified dcommon.scm from [fc7423a843] to [5e9ba2ba2c].

1269
1270
1271
1272
1273
1274
1275
1276

1277
1278

1279
1280
1281
1282
1283
1284
1285
1269
1270
1271
1272
1273
1274
1275

1276
1277

1278
1279
1280
1281
1282
1283
1284
1285







-
+

-
+







		   (tal    (cdr teststeps))
		   (rownum 1)
		   (colnum 1))
	  (if (> rownum max-row)(set! max-row rownum))
	  (let* ((status  (vector-ref hed 3))
                 (val     (vector-ref hed (- colnum 1)))
                 (bgcolor (cond
                           ((member (conc status) '("" "#<unspecified>"))
                           ((member (conc status) '("" "-" "#<unspecified>"))
                            running-color)
                           ((member (conc status) '("0" 0 "-"))
                           ((member (conc status) '("0" 0))
                            white)
                           (else failcolor)))
		 (mtrx-rc (conc rownum ":" colnum)))
            ;;(print "BB> status=>"status"< bgcolor="bgcolor)
	    (iup:attribute-set! steps-matrix  mtrx-rc (if val (conc val) ""))
            (if (< colnum 5)
                (iup:attribute-set! steps-matrix  (conc "BGCOLOR" mtrx-rc) bgcolor))