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

canvas scroll and gauge range limit to 1000000

Browse Source
This commit is contained in:
Matthew Flatt 2010-09-18 19:44:50 -06:00
parent a1462d0255
commit 6b606cb4e2
3 changed files with 16 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/check.rkt
View File

@ -107,7 +107,7 @@
(define check-margin-integer (check-bounded-integer 0 1000 #f)) (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) (define (check-wheel-step cwho wheel-step)
(when (and wheel-step (when (and wheel-step

28
collects/scribblings/gui/canvas-class.scrbl
View File

@ -91,7 +91,7 @@ The @scheme[gl-config] argument determines properties of an OpenGL
} }
@defmethod[(get-scroll-page [which (one-of/c 'horizontal 'vertical)]) @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 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. @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)]) @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 Gets the current value of a manual scrollbar. The result is always
@scheme[0] if the scrollbar is not active or it is automatic. @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)]) @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 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. 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)] @defmethod[(init-auto-scrollbars [horiz-pixels (or/c (integer-in 1 1000000) false/c)]
[vert-pixels (or/c (integer-in 1 10000) false/c)] [vert-pixels (or/c (integer-in 1 1000000) false/c)]
[h-value (real-in 0.0 1.0)] [h-value (real-in 0.0 1.0)]
[v-value (real-in 0.0 1.0)]) [v-value (real-in 0.0 1.0)])
void?]{ void?]{
@ -202,12 +202,12 @@ See also
} }
@defmethod[(init-manual-scrollbars [h-length (or/c (integer-in 0 10000) false/c)] @defmethod[(init-manual-scrollbars [h-length (or/c (integer-in 0 1000000) false/c)]
[v-length (or/c (integer-in 0 10000) false/c)] [v-length (or/c (integer-in 0 1000000) false/c)]
[h-page (integer-in 1 10000)] [h-page (integer-in 1 1000000)]
[v-page (integer-in 1 10000)] [v-page (integer-in 1 1000000)]
[h-value (integer-in 0 10000)] [h-value (integer-in 0 1000000)]
[v-value (integer-in 0 10000)]) [v-value (integer-in 0 1000000)])
void?]{ void?]{
Enables and initializes manual scrollbars for the canvas. A 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)] @defmethod[(set-scroll-page [which (one-of/c 'horizontal 'vertical)]
[value (integer-in 1 10000)]) [value (integer-in 1 1000000)])
void?]{ void?]{
Set the current page step size of a manual scrollbar. (This method has 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)] @defmethod[(set-scroll-pos [which (one-of/c 'horizontal 'vertical)]
[value (integer-in 0 10000)]) [value (integer-in 0 1000000)])
void?]{ void?]{
Sets the current value of a manual scrollbar. (This method has no 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)] @defmethod[(set-scroll-range [which (one-of/c 'horizontal 'vertical)]
[value (integer-in 0 10000)]) [value (integer-in 0 1000000)])
void?]{ void?]{
Sets the current maximum value of a manual scrollbar. (This method has Sets the current maximum value of a manual scrollbar. (This method has

2
collects/scribblings/gui/gauge-class.scrbl
View File

@ -11,7 +11,7 @@ of the gauge.
@defconstructor[([label (or/c label-string? false/c)] @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%) [parent (or/c (is-a?/c frame%) (is-a?/c dialog%)
(is-a?/c panel%) (is-a?/c pane%))] (is-a?/c panel%) (is-a?/c pane%))]
[style (listof (one-of/c 'horizontal 'vertical [style (listof (one-of/c 'horizontal 'vertical