Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | ffixed bug in layout |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
8dd997b795014ee762692e7e834a2403 |
User & Date: | aldo 2016-09-06 09:53:32 |
Context
2016-09-06
| ||
09:54 | added support for multiline text in label check-in: ac3d1dbdb1 user: aldo tags: trunk | |
09:53 | ffixed bug in layout check-in: 8dd997b795 user: aldo tags: trunk | |
09:52 | fixed bug in draw-text/centered check-in: d111441eed user: aldo tags: trunk | |
Changes
Changes to layout.ss.
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
;; LINE BREAK (if (eq? w 'expand) (set! w* (- p-w (* 2 p-padding) (* 2 margin) ))) (if (eq? h 'expand) (set! h* (- p-h (* 2 p-padding) (* 2 margin) ))) (values (list (+ x p-x p-padding margin) (+ y s-y s-h) (+ w* 2 margin) (max (+ h* (* 2 margin)) s-h)) (list (+ x p-x p-padding margin) (+ y margin s-y s-h) w* h*))] [else ;; SAME LINE (if (eq? w 'expand) (set! w* (- p-w s-w (* 2 p-padding) (* 2 margin) ))) |
| |
72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 |
;; LINE BREAK (if (eq? w 'expand) (set! w* (- p-w (* 2 p-padding) (* 2 margin) ))) (if (eq? h 'expand) (set! h* (- p-h (* 2 p-padding) (* 2 margin) ))) (values (list (+ x p-x p-padding margin) (+ y s-y s-h) (+ w* 2 margin) (+ h* (* 2 margin))) (list (+ x p-x p-padding margin) (+ y margin s-y s-h) w* h*))] [else ;; SAME LINE (if (eq? w 'expand) (set! w* (- p-w s-w (* 2 p-padding) (* 2 margin) ))) |