Check-in [8dd997b795]
Not logged in

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:8dd997b795014ee762692e7e834a24037b9a6f9b
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
Hide Diffs Unified Diffs Ignore Whitespace Patch

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) )))