Check-in [5c8595d58b]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:fixed multiline text label
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:5c8595d58be0f8a99a45122731a619035f81ef6c
User & Date: aldo 2016-09-12 17:26:08
Context
2016-09-12
17:27
added multiline text to label in demo2.ss check-in: 543f2597d0 user: aldo tags: trunk
17:26
fixed multiline text label check-in: 5c8595d58b user: aldo tags: trunk
2016-09-09
17:29
improved css system, validation, inherit, initial check-in: 44e44daf1a user: aldo tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to widgets.ss.

69
70
71
72
73
74
75
76
77
78
79



80
81
82
83
84
85
86
87
88
89
		    (draw-rect x y w h)
		    (let ([lines (string-split text (char-set #\newline))]
			  [x* x] [y* y] [w* 0] [h* 0])
		      (if (= 1 (length lines))
			  (let ([extents (draw-text/centered (car lines) 
							     (+ x (/ w 2)) (+ y (/ h 2)))])
			    (set! w* (car extents)) 
			    (set! h* (cadr extents)))
			  (let loop ([l lines])
			    (unless (null? l)
			      (let ([extents (draw-text/centered (car l) (+ x* (/ w 2)) (+ y h*))])



			      (set! h* (+ h* (* (mi-line-height) (cadr extents))))
			      (set! w* (max w* (car extents)))
			      (loop (cdr l))))))
		      (mi-element-content-size-set! (mi-el) (list w* h*)))
		    #f)))

  
(define (debug-tooltip)
  (define id (mi-hot-item))
  (when id







|


|
>
>
>
|
|
|







69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
		    (draw-rect x y w h)
		    (let ([lines (string-split text (char-set #\newline))]
			  [x* x] [y* y] [w* 0] [h* 0])
		      (if (= 1 (length lines))
			  (let ([extents (draw-text/centered (car lines) 
							     (+ x (/ w 2)) (+ y (/ h 2)))])
			    (set! w* (car extents)) 
			    (set! h* (mi-font-size)))
			  (let loop ([l lines])
			    (unless (null? l)
			      (let ([extents (draw-text/centered (car l) 
								 (+ x* (/ w 2)) 
								 (+ y* (mi-font-size)))])
				(set! y* (+ y* (* (mi-line-height) (mi-font-size))))
				(set! h* (+ h* (* (mi-line-height) (mi-font-size))))
				(set! w* (max w* (car extents)))
				(loop (cdr l))))))
		      (mi-element-content-size-set! (mi-el) (list w* h*)))
		    #f)))

  
(define (debug-tooltip)
  (define id (mi-hot-item))
  (when id