Megatest

Check-in [5b4d215117]
Login
Overview
Comment:Added 568a to 1e953, 085e2, and 5a50c. ==4.9/0.9/PASS/mars==
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65-dashboard-stutter-fix
Files: files | file ages | folders
SHA1: 5b4d2151170badba6408011c1ce53a384e441982
User & Date: mrwellan on 2020-09-28 22:59:20
Original Comment: Added 568a to 1e953, 085e2, and 5a50c.
Other Links: branch diff | manifest | tags
Context
2020-09-29
12:56
Merged dashboard fix ==/7.81/1.8/WARN/1204/orion/== ==/8.1/1.0/WARN/1202/mars/== Closed-Leaf check-in: 68201e04df user: mrwellan tags: v1.6564-refactor
2020-09-28
22:59
Added 568a to 1e953, 085e2, and 5a50c. ==4.9/0.9/PASS/mars== Closed-Leaf check-in: 5b4d215117 user: mrwellan tags: v1.65-dashboard-stutter-fix
22:48
Dashboard stutter fix. ==/4.7/0.8/PASS/1203/orion/== ==/6.3/0.9/WARN/1201/mars/== check-in: f525182460 user: mrwellan tags: v1.65-dashboard-stutter-fix
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