From 663d3a839a56228bdecf02bea04b81808cea9865 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sat, 18 Sep 2010 19:44:50 -0600
Subject: [PATCH] canvas scroll and gauge range limit to 1000000

original commit: 6b606cb4e28cabf20b939d649dc89b2c54e1fbbf
---
 collects/mred/private/check.rkt             |  2 +-
 collects/scribblings/gui/canvas-class.scrbl | 28 ++++++++++-----------
 collects/scribblings/gui/gauge-class.scrbl  |  2 +-
 3 files changed, 16 insertions(+), 16 deletions(-)

diff --git a/collects/mred/private/check.rkt b/collects/mred/private/check.rkt
index 030901fd..717d099c 100644
--- a/collects/mred/private/check.rkt
+++ b/collects/mred/private/check.rkt
@@ -107,7 +107,7 @@
 
   (define check-margin-integer (check-bounded-integer 0 1000 #f))
 
-  (define check-gauge-integer (check-bounded-integer 1 10000 #f))
+  (define check-gauge-integer (check-bounded-integer 1 1000000 #f))
 
   (define (check-wheel-step cwho wheel-step)
     (when (and wheel-step
diff --git a/collects/scribblings/gui/canvas-class.scrbl b/collects/scribblings/gui/canvas-class.scrbl
index 07b710d3..992c8e9c 100644
--- a/collects/scribblings/gui/canvas-class.scrbl
+++ b/collects/scribblings/gui/canvas-class.scrbl
@@ -91,7 +91,7 @@ The @scheme[gl-config] argument determines properties of an OpenGL
 }
 
 @defmethod[(get-scroll-page [which (one-of/c 'horizontal 'vertical)])
-           (integer-in 1 10000)]{
+           (integer-in 1 1000000)]{
 
 Get the current page step size of a manual scrollbar. The result is
  @scheme[0] if the scrollbar is not active or it is automatic.
@@ -106,7 +106,7 @@ See also
 
 
 @defmethod[(get-scroll-pos [which (one-of/c 'horizontal 'vertical)])
-           (integer-in 0 10000)]{
+           (integer-in 0 1000000)]{
 
 Gets the current value of a manual scrollbar. The result is always
  @scheme[0] if the scrollbar is not active or it is automatic.
@@ -121,7 +121,7 @@ See also
 
 
 @defmethod[(get-scroll-range [which (one-of/c 'horizontal 'vertical)])
-           (integer-in 0 10000)]{
+           (integer-in 0 1000000)]{
 
 Gets the current maximum value of a manual scrollbar. The result is
  always @scheme[0] if the scrollbar is not active or it is automatic.
@@ -163,8 +163,8 @@ Gets the size in device units of the scrollable canvas area (as
 }
 
 
-@defmethod[(init-auto-scrollbars [horiz-pixels (or/c (integer-in 1 10000) false/c)]
-                                 [vert-pixels (or/c (integer-in 1 10000) false/c)]
+@defmethod[(init-auto-scrollbars [horiz-pixels (or/c (integer-in 1 1000000) false/c)]
+                                 [vert-pixels (or/c (integer-in 1 1000000) false/c)]
                                  [h-value (real-in 0.0 1.0)]
                                  [v-value (real-in 0.0 1.0)])
            void?]{
@@ -202,12 +202,12 @@ See also
 
 }
 
-@defmethod[(init-manual-scrollbars [h-length (or/c (integer-in 0 10000) false/c)]
-                                   [v-length (or/c (integer-in 0 10000) false/c)]
-                                   [h-page (integer-in 1 10000)]
-                                   [v-page (integer-in 1 10000)]
-                                   [h-value (integer-in 0 10000)]
-                                   [v-value (integer-in 0 10000)])
+@defmethod[(init-manual-scrollbars [h-length (or/c (integer-in 0 1000000) false/c)]
+                                   [v-length (or/c (integer-in 0 1000000) false/c)]
+                                   [h-page (integer-in 1 1000000)]
+                                   [v-page (integer-in 1 1000000)]
+                                   [h-value (integer-in 0 1000000)]
+                                   [v-value (integer-in 0 1000000)])
            void?]{
 
 Enables and initializes manual scrollbars for the canvas.  A
@@ -311,7 +311,7 @@ See also
 
 
 @defmethod[(set-scroll-page [which (one-of/c 'horizontal 'vertical)]
-                            [value (integer-in 1 10000)])
+                            [value (integer-in 1 1000000)])
            void?]{
 
 Set the current page step size of a manual scrollbar. (This method has
@@ -328,7 +328,7 @@ See also
 
 
 @defmethod[(set-scroll-pos [which (one-of/c 'horizontal 'vertical)]
-                           [value (integer-in 0 10000)])
+                           [value (integer-in 0 1000000)])
            void?]{
 
 Sets the current value of a manual scrollbar. (This method has no
@@ -348,7 +348,7 @@ See also
 
 
 @defmethod[(set-scroll-range [which (one-of/c 'horizontal 'vertical)]
-                             [value (integer-in 0 10000)])
+                             [value (integer-in 0 1000000)])
            void?]{
 
 Sets the current maximum value of a manual scrollbar. (This method has
diff --git a/collects/scribblings/gui/gauge-class.scrbl b/collects/scribblings/gui/gauge-class.scrbl
index a5f1ea3d..cd672922 100644
--- a/collects/scribblings/gui/gauge-class.scrbl
+++ b/collects/scribblings/gui/gauge-class.scrbl
@@ -11,7 +11,7 @@ of the gauge.
 
 
 @defconstructor[([label (or/c label-string? false/c)]
-                 [range (integer-in 1 10000)]
+                 [range (integer-in 1 1000000)]
                  [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) 
                                (is-a?/c panel%) (is-a?/c pane%))]
                  [style (listof (one-of/c 'horizontal 'vertical