Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | removed box |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
f43f2eabf11c293c0026643fbc49b40e |
User & Date: | noreply@github.com 2016-09-01 09:16:26 |
Context
2016-09-04
| ||
14:45 | little fixes check-in: e53e9815ac user: aldo tags: trunk | |
2016-09-01
| ||
09:16 | removed box check-in: f43f2eabf1 user: noreply@github.com tags: trunk | |
09:08 | Update README.md check-in: dc0f6a23ec user: noreply@github.com tags: trunk | |
Changes
Changes to widgets.ss.
63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 |
(lambda () (define-values (x y w h) (values (mi-x) (mi-y) (mi-w) (mi-h))) (draw-rect x y w h) (let ([extents (draw-text/centered text (+ 0 x (/ w 2)) (+ 0 y (/ h 2)))]) (mi-element-content-size-set! (mi-el) extents)) #f))) (define (box id text) (create-element 'box id #f (lambda () (define-values (x y w h) (values (mi-x) (mi-y) (mi-w) (mi-h))) (draw-rect x y w h)))) (define (debug-tooltip) (define id (mi-hot-item)) (when id (let-values ([(x y w h) (get-last-coords id)]) (if (region-hit? x y w h) (parameterize ([mi-style `((position absolute) (left ,(mi-mouse-x)) |
< < < < < < |
63 64 65 66 67 68 69 70 71 72 73 74 75 76 |
(lambda () (define-values (x y w h) (values (mi-x) (mi-y) (mi-w) (mi-h))) (draw-rect x y w h) (let ([extents (draw-text/centered text (+ 0 x (/ w 2)) (+ 0 y (/ h 2)))]) (mi-element-content-size-set! (mi-el) extents)) #f))) (define (debug-tooltip) (define id (mi-hot-item)) (when id (let-values ([(x y w h) (get-last-coords id)]) (if (region-hit? x y w h) (parameterize ([mi-style `((position absolute) (left ,(mi-mouse-x)) |