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

canvas scroll and gauge range limit to 1000000

Browse Source 
original commit: 6b606cb4e28cabf20b939d649dc89b2c54e1fbbf
This commit is contained in:
Matthew Flatt 2010-09-18 19:44:50 -06:00
parent 37346734b8
commit 663d3a839a
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-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

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)])
(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

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

@ -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