slideshow/pict: sync text' size limit with font%'

2012-04-02 16:45:20 -06:00 · 2012-04-02 16:45:20 -06:00 · d635b93644
commit d635b93644
parent 3bf5389237
2 changed files with 2 additions and 2 deletions
--- a/collects/scribblings/slideshow/picts.scrbl
+++ b/collects/scribblings/slideshow/picts.scrbl
@ -155,7 +155,7 @@ adding the given ascent and descent.}

@defproc[(text [content string?]
               [style text-style/c null]
-               [size (integer-in 1 255) 12] 
+               [size (integer-in 1 1024) 12] 
               [angle real? 0])
         pict?]{

--- a/collects/texpict/mrpict.rkt
+++ b/collects/texpict/mrpict.rkt
@ -48,7 +48,7 @@
  (provide/contract
   [text (->* (string?)
              (text-style/c 
-               (and/c (between/c 1 255) integer?)
+               (and/c (between/c 1 1024) integer?)
               number?)
              pict?)])