diff --git a/collects/scribblings/slideshow/picts.scrbl b/collects/scribblings/slideshow/picts.scrbl index fa6e744b52..a7870e618c 100644 --- a/collects/scribblings/slideshow/picts.scrbl +++ b/collects/scribblings/slideshow/picts.scrbl @@ -150,9 +150,8 @@ adding the given ascent and descent.} pict?]{ Creates a pict that draws text. For creating text picts within a slide -presentation, see @racket[t], instead. Otherwise, before calling this -function, a drawing context must be installed with -@racket[dc-for-text-size]. +presentation, see @racket[t]. The size of the resulting pict may +depend on the value of @racket[dc-for-text-size]. The @racket[style] argument must be one of the following: @@ -989,10 +988,10 @@ A parameter that is used to determine the @tech{bounding box} of picts created with @racket[text]. The drawing context installed in this parameter need not be the same -as the ultimate drawing context, but it must measure text in the same -way. In particular, use a @racket[post-script-dc%] for preparing -PostScript output, while a @racket[bitmap-dc%] instance will work fine -for either @racket[bitmap-dc%] or @racket[canvas%] output.} +as the ultimate drawing context, but it should measure text in the same +way. Under normal circumstances, font metrics are the same for all +drawing contexts, so the default value of @racket[dc-for-text-size] is +a @racket[bitmap-dc%] that draws to a 1-by-1 bitmap.} @defproc[(draw-pict [pict pict?] diff --git a/collects/texpict/private/mrpict-extra.rkt b/collects/texpict/private/mrpict-extra.rkt index 11b821d32f..4a0bfa4c2b 100644 --- a/collects/texpict/private/mrpict-extra.rkt +++ b/collects/texpict/private/mrpict-extra.rkt @@ -60,7 +60,7 @@ (send f show #t))) (define dc-for-text-size (make-parameter - #f + (make-object bitmap-dc% (make-bitmap 1 1)) (lambda (x) (unless (or (not x) (is-a? x dc<%>))