Check-in [f43f2eabf1]
Not logged in

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

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