Megatest

Check-in [3369e3bfa0]
Login
Overview
Comment:Added lazy-dot
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 3369e3bfa0b42428da0885085b45ce90024d8f1a
User & Date: matt on 2015-10-14 22:31:17
Other Links: branch diff | manifest | tags
Context
2015-10-16
03:35
Added scaffolding for test recovery feature check-in: 7a36940463 user: matt tags: v1.60
2015-10-14
22:31
Added lazy-dot check-in: 3369e3bfa0 user: matt tags: v1.60
22:19
Added lazy-dot check-in: 4c9bcc5748 user: matt tags: v1.60
Changes

Modified dashboard.scm from [cece23bcce] to [9a747ce6c4].

957
958
959
960
961
962
963

964
965
966
967
968
969
970
957
958
959
960
961
962
963
964
965
966
967
968
969
970
971







+







			    ;; #:size "50x50"
			    #:expand "YES"
			    #:scrollbar "YES"
			    #:posx "0.5"
			    #:posy "0.5"
			    #:button-cb (lambda (obj btn pressed x y status)
					  (print "obj: " obj ", pressed " pressed ", status " status)
					  (print "canvas-origin: " (canvas-origin the-cnv))
					  (let ((tests-info     (hash-table-ref tests-draw-state  'tests-info))
						(selected-tests (hash-table-ref tests-draw-state  'selected-tests)))
					    ;; (print "\tx\ty\tllx\tlly\turx\tury")
					    (for-each (lambda (test-name)
							(let* ((rec-coords (hash-table-ref tests-info test-name))
							       (llx        (list-ref rec-coords 0))
							       (urx        (list-ref rec-coords 1))