Convert all uses of (integer-in 0 255) to `byte?'.

collects/drracket/private/rep.rkt

@@ -812,7 +812,7 @@ TODO
              (user-break-parameterization #f)
              (user-logger (make-logger))
              
-             ;; user-exit-code (union #f (integer-in 0 255))
+             ;; user-exit-code (union #f byte?)
              ;; #f indicates that exit wasn't called. Integer indicates exit code
              (user-exit-code #f))
             

collects/file/private/octree-quantize.rkt

@@ -106,7 +106,6 @@
 ;; The maximum level height of an octree.
 (define MAX-LEVEL 7)
 
-(define byte/c (integer-in 0 255))
 (define octet/c (integer-in 0 7))
 
 
@@ -129,7 +128,7 @@
                      bluesum        ; number
                      children       ; (vectorof (or/c #f node))
                      next           ; (or/c #f node)
-                     palette-index) ; (or/c #f (integer-in 0 255))
+                     palette-index) ; (or/c #f byte?)
   #:mutable)
 ;; node-next is used to accelerate the search for a reduction candidate.
 
@@ -355,7 +354,7 @@
          ([root node?]
           [leaf-count natural-number/c]
           [reduction-heads (vectorof (or/c node? false/c))]
-          [palette (vectorof (vector/c byte/c byte/c byte/c))])]
+          [palette (vectorof (vector/c byte? byte? byte?))])]
  [struct node
          ([leaf? boolean?]
           [npixels natural-number/c]
@@ -364,11 +363,11 @@
           [bluesum natural-number/c]
           [children (vectorof (or/c false/c node?))]
           [next (or/c node? false/c)]
-          [palette-index byte/c])]
+          [palette-index byte?])]
  [new-octree (-> octree?)]
- [octree-insert-color! (octree? byte/c byte/c byte/c . -> . any)]
+ [octree-insert-color! (octree? byte? byte? byte? . -> . any)]
  [octree-lookup
-  (octree? byte/c byte/c byte/c . -> . (values byte/c byte/c byte/c))]
+  (octree? byte? byte? byte? . -> . (values byte? byte? byte?))]
  [octree-reduce! (octree? . -> . any)]
  [octree-finalize! (octree? . -> . any)]
- [rgb->index (natural-number/c byte/c byte/c byte/c . -> . octet/c)])
+ [rgb->index (natural-number/c byte? byte? byte? . -> . octet/c)])

collects/mrlib/cache-image-snip.rkt

@@ -843,7 +843,7 @@ for b3, we have:
    [argb->bitmap (argb? . -> . (or/c #f (is-a?/c bitmap%)))]
            
    [argb? (any/c . -> . boolean?)]
-   [make-argb ((vectorof (integer-in 0 255)) exact-nonnegative-integer? exact-nonnegative-integer? . -> . argb?)]
+   [make-argb ((vectorof byte?) exact-nonnegative-integer? exact-nonnegative-integer? . -> . argb?)]
-   [argb-vector (argb? . -> . (vectorof (integer-in 0 255)))]
+   [argb-vector (argb? . -> . (vectorof byte?))]
    [argb-width (argb? . -> . exact-nonnegative-integer?)]
    [argb-height (argb? . -> . exact-nonnegative-integer?)])

collects/mrlib/scribblings/cache-image-snip.scrbl

@@ -107,7 +107,7 @@ exactly match alpha channels.}}
 This snipclass is used for saved cache image snips.}
 
 
-@defproc[(make-argb [vectorof (integer-in 0 255)]
+@defproc[(make-argb [vectorof byte?]
                     [width exact-nonnegative-integer?]
                     [height exact-nonnegative-integer?])
          argb?]{
@@ -119,7 +119,7 @@ This snipclass is used for saved cache image snips.}
   pixel at location (x,y) comes from vector entry (4*(x+(width*y))).
 }
 
-@defproc[(argb-vector [argb argb?]) (vectorof (integer-in 0 255))]{
+@defproc[(argb-vector [argb argb?]) (vectorof byte?)]{
 
   Extracts the vector from @racket[argb]. The resulting vector
  has entries in row-major order, so that the data for the pixel

collects/racket/draw/private/contract.rkt

@@ -57,9 +57,7 @@
             real? real? real? real? real?))
 
 (define make-color/c
-  (->* ((integer-in 0 255)
+  (->* (byte? byte? byte?)
-        (integer-in 0 255)
-        (integer-in 0 255))
        ((real-in 0 1))
        (is-a?/c color%)))
 
@@ -89,9 +87,9 @@
 (define color%/c
   (class/c
     (alpha (->m (real-in 0 1)))
-    (red  (->m (integer-in 0 255)))
+    (red  (->m byte?))
-    (blue (->m (integer-in 0 255)))
+    (blue (->m byte?))
-    (green (->m (integer-in 0 255)))
+    (green (->m byte?))
     (copy-from (->m (is-a?/c color%) (is-a?/c color%)))
     (ok? (->m boolean?))
     (set (->*m (byte? byte? byte?)
@@ -132,10 +130,7 @@
     (set-cap (->m pen-cap-style/c void?))
     (set-color (case->m
                  (-> (or/c (is-a?/c color%) string?) void?)
-                 (-> (integer-in 0 255)
+                 (-> byte? byte? byte? void?)))
-                     (integer-in 0 255)
-                     (integer-in 0 255)
-                     void?)))
     (set-join (->m pen-join-style/c void?))
     (set-stipple (->m (or/c (is-a?/c bitmap%) #f) void?))
     (set-style (->m pen-style/c void?))
@@ -158,10 +153,7 @@
     (get-style (->m brush-style/c))
     (set-color (case->m
                  (-> (or/c (is-a?/c color%) string?) void?)
-                 (-> (integer-in 0 255)
+                 (-> byte? byte? byte? void?)))
-                     (integer-in 0 255)
-                     (integer-in 0 255)
-                     void?)))
     (set-stipple (->*m ((or/c (is-a?/c bitmap%) #f))
                        ((or/c transformation-vector/c #f))
                        void?))

collects/racket/snip/private/contract.rkt

@@ -70,7 +70,7 @@
     (get-family (->m font-family/c))
     (get-foreground-add  (->m (is-a?/c add-color<%>)))
     (get-foreground-mult (->m (is-a?/c mult-color<%>)))
-    (get-size-add (->m (integer-in 0 255)))
+    (get-size-add (->m byte?))
     (get-size-in-pixels-off (->m boolean?))
     (get-size-in-pixels-on  (->m boolean?))
     (get-size-mult (->m real?))
@@ -117,7 +117,7 @@
                                (is-a?/c style-delta%)))
     (set-face (->m (or/c string? false/c) void?))
     (set-family (->m font-family/c void?))
-    (set-size-add (->m (integer-in 0 255) void?))
+    (set-size-add (->m byte? void?))
     (set-size-in-pixels-off (->m any/c void?))
     (set-size-in-pixels-on  (->m any/c void?))
     (set-size-mult (->m real? void?))

collects/scribblings/draw/brush-class.scrbl

@@ -177,9 +177,7 @@ Returns @racket[#t] if the brush object is immutable.
               void?]
              [(set-color [color-name string?])
               void?]
-             [(set-color [red (integer-in 0 255)]
+             [(set-color [red byte?] [green byte?] [blue byte?])
-                         [green (integer-in 0 255)]
-                         [blue (integer-in 0 255)])
               void?])]{
 
 Sets the brush's color.  A brush cannot be modified if it was obtained

collects/scribblings/draw/color-class.scrbl

@@ -16,9 +16,7 @@ object using a color name, and see also @racket[make-color].
 
 
 @defconstructor*/make[(()
-                       ([red (integer-in 0 255)]
+                       ([red byte?] [green byte?] [blue byte?]
-                        [green (integer-in 0 255)]
-                        [blue (integer-in 0 255)]
                         [alpha (real-in 0 1) 1.0])
                        ([color-name string?]))]{
 
@@ -29,62 +27,31 @@ Creates a new color with the given RGB values and alpha, or matching
 
 }
 
-@defmethod[(alpha)
+@defmethod[(copy-from [src (is-a?/c color%)]) (is-a?/c color%)]{
-           (real-in 0 1)]{
+  Copies the RGB values of another color object to this one, returning
+  this object as the result.}
 
-Returns the alpha component (i.e., opacity) of the color.
+@defmethod[(is-immutable?) boolean?]{
+  Returns @racket[#t] if the color object is immutable.}
 
-}
+@defmethod[(ok?) boolean?]{
+  Returns @racket[#t] if the color object is valid.}
 
-@defmethod[(blue)
+@defmethod[(red) byte?]{
-           (integer-in 0 255)]{
+  Returns the red component of the color.}
 
-Returns the blue component of the color.
+@defmethod[(green) byte?]{
+  Returns the green component of the color.}
 
-}
+@defmethod[(blue) byte?]{
+  Returns the blue component of the color.}
 
-@defmethod[(copy-from [src (is-a?/c color%)])
+@defmethod[(alpha) (real-in 0 1)]{
-           (is-a?/c color%)]{
+  Returns the alpha component (i.e., opacity) of the color.}
 
-Copies the RGB values of another color object to this one, returning
+@defmethod[(set [red byte?] [green byte?] [blue byte?]
- this object as the result.
-
-}
-
-@defmethod[(green)
-           (integer-in 0 255)]{
-
-Returns the green component of the color.
-
-}
-
-@defmethod[(is-immutable?)
-           boolean?]{
-
-Returns @racket[#t] if the color object is immutable.
-
-}
-
-@defmethod[(ok?)
-           boolean?]{
-
-Returns @racket[#t] if the color object is valid.
-
-}
-
-@defmethod[(red)
-           (integer-in 0 255)]{
-
-Returns the red component of the color.
-
-}
-
-@defmethod[(set [red (integer-in 0 255)]
-                [green (integer-in 0 255)]
-                [blue (integer-in 0 255)]
                 [alpha (real-in 0 1) 1.0])
            void?]{
+  Sets the four (red, green, blue, and alpha) component values of the color.}
 
-Sets the four (red, green, blue, and alpha) component values of the color.
+}
-}}
-

collects/scribblings/draw/draw-funcs.scrbl

@@ -84,10 +84,7 @@ result brush is created via @method[brush-list% find-or-create-brush] of
 @racket[the-brush-list].}
 
 
-@defproc[(make-color
+@defproc[(make-color [red byte?] [green byte?] [blue byte?]
-          [red (integer-in 0 255)]
-          [green (integer-in 0 255)]
-          [blue (integer-in 0 255)]
                      [alpha (real-in 0 1) 1.0])
          (is-a?/c color%)]{
 

collects/scribblings/draw/pen-class.scrbl

@@ -244,9 +244,7 @@ A pen cannot be modified if it was obtained from a @racket[pen-list%]
               void?]
              [(set-color [color-name string?])
               void?]
-             [(set-color [red (integer-in 0 255)]
+             [(set-color [red byte?] [green byte?] [blue byte?])
-                         [green (integer-in 0 255)]
-                         [blue (integer-in 0 255)])
               void?])]{
 
 Sets the pen color.

collects/scribblings/gui/style-delta-class.scrbl

@@ -3,8 +3,8 @@
 
 @defclass/title[style-delta% object% ()]{
 
-A @racket[style-delta%] object encapsulates a style change. The changes expressible
+A @racket[style-delta%] object encapsulates a style change. The changes
-by a delta include:
+expressible by a delta include:
 @itemize[
 @item{changing the font family}
 @item{changing the font face}
@@ -86,7 +86,8 @@ The possible values for @racket[underlined-on] and @racket[underlined-off] are:
 @item{@racket[#t]}
 ]
 
-The possible values for @racket[size-in-pixels-on] and @racket[size-in-pixels-off] are:
+The possible values for @racket[size-in-pixels-on] and
+@racket[size-in-pixels-off] are:
 @itemize[
 @item{@racket[#f] (acts like @racket['base])}
 @item{@racket[#t]}
@@ -127,8 +128,6 @@ The family and face settings in a style delta are interdependent:
 ]
 
 
-
-
 @defconstructor*/make[(([change-command (or/c 'change-nothing
                                               'change-normal
                                               'change-toggle-underline
@@ -148,14 +147,13 @@ The family and face settings in a style delta are interdependent:
                        ([change-command (or/c 'change-size
                                               'change-bigger
                                               'change-smaller)]
-                        [v (integer-in 0 255)])
+                        [v byte?])
                        ([change-command (or/c 'change-underline
                                               'change-size-in-pixels)]
                         [v any/c]))]{
 
 The initialization arguments are passed on to
  @method[style-delta% set-delta].
-
 }
 
 
@@ -170,37 +168,20 @@ Tries to collapse into a single delta the changes that would be made
 
 }
 
-@defmethod[(copy [delta (is-a?/c style-delta%)])
+@defmethod[(copy [delta (is-a?/c style-delta%)]) void?]{
-           void?]{
+  Copies the given style delta's settings into this one.}
 
-Copies the given style delta's settings into this one.
+@defmethod[(equal? [delta (is-a?/c style-delta%)]) boolean?]{
+  Returns @racket[#t] if the given delta is equivalent to this one in
+  all contexts or @racket[#f] otherwise.}
 
-}
+@defmethod[(get-alignment-off) (or/c 'base 'top 'center 'bottom)]{
+  See @racket[style-delta%].}
 
-@defmethod[(equal? [delta (is-a?/c style-delta%)])
+@defmethod[(get-alignment-on) (or/c 'base 'top 'center 'bottom)]{
-           boolean?]{
+  See @racket[style-delta%].}
 
-Returns @racket[#t] if the given delta is equivalent to this one in
+@defmethod[(get-background-add) (is-a?/c add-color<%>)]{
- all contexts or @racket[#f] otherwise.
-
-}
-
-@defmethod[(get-alignment-off)
-           (or/c 'base 'top 'center 'bottom)]{
-
-See  @racket[style-delta%].
-
-}
-
-@defmethod[(get-alignment-on)
-           (or/c 'base 'top 'center 'bottom)]{
-
-See  @racket[style-delta%].
-
-}
-
-@defmethod[(get-background-add)
-           (is-a?/c add-color<%>)]{
 
 Gets the object additive color shift for the background (applied after
  the multiplicative factor). Call this @racket[add-color<%>] object's
@@ -248,13 +229,11 @@ Returns the delta's font family. The possible values are
 @item{@indexed-racket['system] (used to draw control labels)}
 ]
 
-See also
+See also @method[style-delta% get-face].
-@method[style-delta% get-face].
 
 }
 
-@defmethod[(get-foreground-add)
+@defmethod[(get-foreground-add) (is-a?/c add-color<%>)]{
-           (is-a?/c add-color<%>)]{
 
 Gets the additive color shift for the foreground (applied after the
  multiplicative factor). Call this @racket[add-color<%>] object's
@@ -272,95 +251,61 @@ Gets the multiplicative color shift for the foreground (applied before
 
 }
 
-@defmethod[(get-size-add)
+@defmethod[(get-size-add) byte?]{
-           (integer-in 0 255)]{
+  Gets the additive font size shift (applied after the multiplicative factor).}
 
-Gets the additive font size shift (applied after the multiplicative factor).
+@defmethod[(get-size-in-pixels-off) boolean?]{
+  See @racket[style-delta%].}
 
-}
+@defmethod[(get-size-in-pixels-on) boolean?]{
+  See @racket[style-delta%].}
 
-@defmethod[(get-size-in-pixels-off)
+@defmethod[(get-size-mult) real?]{
-           boolean?]{
+  Gets the multiplicative font size shift (applied before the additive factor).}
-
-See  @racket[style-delta%].
-
-}
-
-@defmethod[(get-size-in-pixels-on)
-           boolean?]{
-
-See  @racket[style-delta%].
-
-}
-
-@defmethod[(get-size-mult)
-           real?]{
-
-Gets the multiplicative font size shift (applied before the additive factor).
-
-}
 
 @defmethod[(get-smoothing-off)
            (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)]{
-
+  See @racket[style-delta%].
-See  @racket[style-delta%].
-
 }
 
 @defmethod[(get-smoothing-on)
            (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)]{See 
-@racket[style-delta%].
+  @racket[style-delta%].
 }
 
 @defmethod[(get-style-off)
            (or/c 'base 'normal 'italic 'slant)]{See 
-@racket[style-delta%].
+  @racket[style-delta%].
 }
 
-@defmethod[(get-style-on)
+@defmethod[(get-style-on) (or/c 'base 'normal 'italic 'slant)]{
-           (or/c 'base 'normal 'italic 'slant)]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
-@defmethod[(get-transparent-text-backing-off)
+@defmethod[(get-transparent-text-backing-off) boolean?]{
-           boolean?]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
-@defmethod[(get-transparent-text-backing-on)
+@defmethod[(get-transparent-text-backing-on) boolean?]{
-           boolean?]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
 @defmethod[(get-underlined-off)
-           boolean?]{See 
+           boolean?]{
-@racket[style-delta%].
+  See @racket[style-delta%].}
-}
 
 @defmethod[(get-underlined-on)
-           boolean?]{See 
+           boolean?]{
-@racket[style-delta%].
+  See @racket[style-delta%].}
-}
 
-@defmethod[(get-weight-off)
+@defmethod[(get-weight-off) (or/c 'base 'normal 'bold 'light)]{
-           (or/c 'base 'normal 'bold 'light)]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
-@defmethod[(get-weight-on)
+@defmethod[(get-weight-on) (or/c 'base 'normal 'bold 'light)]{
-           (or/c 'base 'normal 'bold 'light)]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
-@defmethod[(set-alignment-off [v (or/c 'base 'top 'center 'bottom)])
+@defmethod[(set-alignment-off [v (or/c 'base 'top 'center 'bottom)]) void?]{
-           void?]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
-@defmethod[(set-alignment-on [v (or/c 'base 'top 'center 'bottom)])
+@defmethod[(set-alignment-on [v (or/c 'base 'top 'center 'bottom)]) void?]{
-           void?]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
 @defmethod*[([(set-delta [change-command (or/c 'change-nothing
                                                'change-normal
@@ -383,7 +328,7 @@ See  @racket[style-delta%].
              [(set-delta [change-command (or/c 'change-size
                                                'change-bigger
                                                'change-smaller)]
-                         [param (integer-in 0 255)])
+                         [param byte?])
               (is-a?/c style-delta%)]
              [(set-delta [change-command (or/c 'change-underline
                                                'change-size-in-pixels)]
@@ -501,72 +446,57 @@ Sets the delta's font family. See
 
 }
 
-@defmethod[(set-size-add [v (integer-in 0 255)])
+@defmethod[(set-size-add [v byte?]) void?]{
-           void?]{Sets the additive font size shift (applied
+  Sets the additive font size shift (applied
-after the multiplicative factor).
+  after the multiplicative factor).}
-}
 
-@defmethod[(set-size-in-pixels-off [v any/c])
+@defmethod[(set-size-in-pixels-off [v any/c]) void?]{
-           void?]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
-@defmethod[(set-size-in-pixels-on [v any/c])
+@defmethod[(set-size-in-pixels-on [v any/c]) void?]{
-           void?]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
-@defmethod[(set-size-mult [v real?])
+@defmethod[(set-size-mult [v real?]) void?]{
-           void?]{Sets the multiplicative font size shift (applied
+  Sets the multiplicative font size shift (applied before the additive factor).}
-before the additive factor).
-}
 
-@defmethod[(set-smoothing-off [v (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)])
+@defmethod[(set-smoothing-off [v (or/c 'base 'default 'partly-smoothed
-           void?]{See 
+                                       'smoothed 'unsmoothed)])
-@racket[style-delta%].
+           void?]{
-}
+  See @racket[style-delta%].}
 
-@defmethod[(set-smoothing-on [v (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)])
+@defmethod[(set-smoothing-on [v (or/c 'base 'default 'partly-smoothed
-           void?]{See 
+                                      'smoothed 'unsmoothed)])
-@racket[style-delta%].
+           void?]{
-}
+  See @racket[style-delta%].}
 
 @defmethod[(set-style-off [v (or/c 'base 'normal 'italic 'slant)])
-           void?]{See 
+           void?]{
-@racket[style-delta%].
+  See @racket[style-delta%].}
-}
 
 @defmethod[(set-style-on [v (or/c 'base 'normal 'italic 'slant)])
-           void?]{See 
+           void?]{
-@racket[style-delta%].
+  See @racket[style-delta%].}
-}
 
 @defmethod[(set-transparent-text-backing-off [v any/c])
-           void?]{See 
+           void?]{
-@racket[style-delta%].
+  See @racket[style-delta%].}
-}
 
-@defmethod[(set-transparent-text-backing-on [v any/c])
+@defmethod[(set-transparent-text-backing-on [v any/c]) void?]{
-           void?]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
-@defmethod[(set-underlined-off [v any/c])
+@defmethod[(set-underlined-off [v any/c]) void?]{
-           void?]{See 
+  See @racket[style-delta%].}
-@racket[style-delta%].
-}
 
 @defmethod[(set-underlined-on [v any/c])
-           void?]{See 
+           void?]{
-@racket[style-delta%].
+  See @racket[style-delta%].}
-}
 
 @defmethod[(set-weight-off [v (or/c 'base 'normal 'bold 'light)])
-           void?]{See 
+           void?]{
-@racket[style-delta%].
+  See @racket[style-delta%].}
-}
 
 @defmethod[(set-weight-on [v (or/c 'base 'normal 'bold 'light)])
-           void?]{See 
+           void?]{
-@racket[style-delta%].
+  See @racket[style-delta%].}
-}}
+
+}

collects/scribblings/gui/style-intf.scrbl

@@ -91,12 +91,8 @@ Returns the style's shift style if it is a join style. Otherwise, the
 
 }
 
-@defmethod[(get-size)
+@defmethod[(get-size) byte?]{
-           (integer-in 0 255)]{
+  Returns the style's font size.}
-
-Returns the style's font size.
-
-}
 
 @defmethod[(get-size-in-pixels)
            boolean?]{

collects/scribblings/reference/exit.scrbl

@@ -23,11 +23,11 @@ between @racket[1] and @racket[255] (which normally means
 means ``success'').}
 
 
-@defparam[executable-yield-handler proc ((integer-in 0 255) . -> . any)]{
+@defparam[executable-yield-handler proc (byte? . -> . any)]{
 
 A parameter that determines a procedure to be called as the Racket
 process is about to exit normally. The procedure associated with this
-parameter is not call when @racket[exit] (or, more precisely, the
+parameter is not called when @racket[exit] (or, more precisely, the
 default @tech{exit handler}) is used to exit early. The argument to
 the handler is the status code that is returned to the system on exit.
 The default executable-yield handler simply returns @|void-const|.

collects/scribblings/slideshow/picts.scrbl

@@ -581,11 +581,9 @@ Selects a specific pen style for drawing, which applies to pen drawing
 for @racket[pict] that does not already use a specific pen style.}
 
 
-@defproc[(colorize [pict pict?] [color (or/c string? 
+@defproc[(colorize [pict pict?]
-                                             (is-a?/c color%)
+                   [color (or/c string? (is-a?/c color%)
-                                             (list (integer-in 0 255)
+                                (list byte? byte? byte?))])
-                                                   (integer-in 0 255)
-                                                   (integer-in 0 255)))])
          pict?]{
 
 Selects a specific color drawing, which applies to drawing in