suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix sizing bug in tooltip windows

Browse Source
This commit is contained in:
Robby Findler 2012-07-17 10:04:38 -05:00
parent 70fac182c6
commit 36aeda60a4
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/drracket/private/tooltip.rkt
View File

@ -69,7 +69,12 @@
(define/private (update-size)
(define dc (get-dc))
(send dc set-font small-control-font)
(define-values (w h _1 _2) (send dc get-text-extent (car labels)))
(define-values (w h)
(for/fold ([w 0] [h 0])
([lab (in-list labels)])
(define-values (this-w this-h _1 _2) (send dc get-text-extent lab))
(values (max this-w w)
(max this-h h))))
(send (get-parent) begin-container-sequence)
(min-width (+ 5 (inexact->exact (ceiling w))))
(min-height (+ 5 (* (length labels) (inexact->exact (ceiling h)))))