Overview
| Comment: | Added lazy-dot |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
3369e3bfa0b42428da0885085b45ce90 |
| 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)) |
| ︙ |