Megatest

Check-in [568abab962]
Login
Overview
Comment:Removed row-indices print that was spamming console while dashboard was in summary mode ==/8.99/1.6/WARN/1203/orion/==
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 568abab9620c4a2a92c33764806896175c37229c
User & Date: jmoon18 on 2020-08-21 10:42:14
Original Comment: Removed row-indices print that was spamming console while dashboard was in summary mode
Other Links: branch diff | manifest | tags
Context
2020-10-02
20:59
merge-1 check-in: c46d9b2b72 user: matt tags: v1.70-defunct
2020-08-24
17:12
Fixes for genexample ==6.6/1.1/1201/WARN/mars== check-in: 0c2987faad user: jmoon18 tags: v1.65
2020-08-22
14:14
Merged in partial content from v1.66-captain-ulex work. ==7.2/0.9/1201/mars== check-in: 070ebd2d0d user: matt tags: v1.65-cleanup
2020-08-21
16:51
Merging v1.66 *applicable* changes to v1.65. check-in: 48f4863bc1 user: mrwellan tags: v1.65-merge-forward-v1.66
10:42
Removed row-indices print that was spamming console while dashboard was in summary mode ==/8.99/1.6/WARN/1203/orion/== check-in: 568abab962 user: jmoon18 tags: v1.65
10:00
Removed junk noise ==/6.2/0.8/WARN/1202/mars/== check-in: 46d8ccee29 user: mrwellan tags: v1.65
Changes

Modified dcommon.scm from [30bf3c6504] to [acc8d46fdb].

635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
	     (numrows      1)
	     (numcols      1))
	(iup:attribute-set! stats-matrix "CLEARVALUE" "CONTENTS")
	(iup:attribute-set! stats-matrix "NUMCOL" max-col )
	(iup:attribute-set! stats-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20
	(iup:attribute-set! stats-matrix "NUMCOL_VISIBLE" max-col-vis)
	(iup:attribute-set! stats-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
	(print "row-indices: " row-indices " col-indices: " col-indices)
	;; Row labels
	(for-each (lambda (ind)
		    (let* ((name (car ind))
			   (num  (cadr ind))
			   (key  (conc num ":0")))
		      (if (not (equal? (iup:attribute stats-matrix key) name))
			  (begin







|







635
636
637
638
639
640
641
642
643
644
645
646
647
648
649
	     (numrows      1)
	     (numcols      1))
	(iup:attribute-set! stats-matrix "CLEARVALUE" "CONTENTS")
	(iup:attribute-set! stats-matrix "NUMCOL" max-col )
	(iup:attribute-set! stats-matrix "NUMLIN" (if (< max-row max-visible) max-visible max-row)) ;; min of 20
	(iup:attribute-set! stats-matrix "NUMCOL_VISIBLE" max-col-vis)
	(iup:attribute-set! stats-matrix "NUMLIN_VISIBLE" (if (> max-row max-visible) max-visible max-row))
	;;(print "row-indices: " row-indices " col-indices: " col-indices)
	;; Row labels
	(for-each (lambda (ind)
		    (let* ((name (car ind))
			   (num  (cadr ind))
			   (key  (conc num ":0")))
		      (if (not (equal? (iup:attribute stats-matrix key) name))
			  (begin