In answer to my question, the easy way is to patch
racket-5.3.4/collects/mred/private/check.rkt and
racket-5.3.4/collects/mred/private/mrcontainer.rkt
Anybody in need of this, patch is attached.
Nik
> My application again :-)
>
>I need to display some hundred plots in a vertical-panel%. Each graph is ~
>150
>pixel in height (and should not be smaller than 100 pixel). Now there is a
>size constraint of 10000 pixel per area-container<%>, so that I cannot
>display 100 graphs at a time.
>
>Is there an easy way to overcome this limit at least for a scrollable
>vertical-panel% or do I have to build my own container?
>
>Nik
diff -r racket-5.3.4/collects/mred/private/check.rkt racket-5.3.4-nik/collects/mred/private/check.rkt
110c110
< (define check-range-integer (check-bounded-integer 0 10000 #f))
---
> (define check-range-integer (check-bounded-integer 0 1000000 #f))
112c112
< (define check-slider-integer (check-bounded-integer -10000 10000 #f))
---
> (define check-slider-integer (check-bounded-integer -1000000 1000000 #f))
114c114
< (define check-init-pos-integer (check-bounded-integer -10000 10000 #t))
---
> (define check-init-pos-integer (check-bounded-integer -1000000 1000000 #t))
116c116
< (define check-margin-integer (check-bounded-integer 0 1000 #f))
---
> (define check-margin-integer (check-bounded-integer 0 1000000 #f))
diff -r racket-5.3.4/collects/mred/private/mrcontainer.rkt racket-5.3.4-nik/collects/mred/private/mrcontainer.rkt
111,112c111,112
< (integer? (car l)) (exact? (car l)) (<= 0 (car l) 10000)
< (integer? (cadr l)) (exact? (cadr l)) (<= 0 (cadr l) 10000)))
---
> (integer? (car l)) (exact? (car l)) (<= 0 (car l) 1000000)
> (integer? (cadr l)) (exact? (cadr l)) (<= 0 (cadr l) 1000000)))
115c115
< "(listof (list/c (integer-in 0 10000) (integer-in 0 10000) any/c any/c))"
---
> "(listof (list/c (integer-in 0 1000000) (integer-in 0 1000000) any/c any/c))"
diff -cr racket-5.3.4/collects/mred/private/check.rkt racket-5.3.4-nik/collects/mred/private/check.rkt
*** racket-5.3.4/collects/mred/private/check.rkt 2013-05-08 14:21:23.000000000 +0200
--- racket-5.3.4-nik/collects/mred/private/check.rkt 2013-06-12 21:54:57.627459214 +0200
***************
*** 107,119 ****
i))
range))))
! (define check-range-integer (check-bounded-integer 0 10000 #f))
! (define check-slider-integer (check-bounded-integer -10000 10000 #f))
! (define check-init-pos-integer (check-bounded-integer -10000 10000 #t))
! (define check-margin-integer (check-bounded-integer 0 1000 #f))
(define check-gauge-integer (check-bounded-integer 1 1000000 #f))
(define check-gauge-range-integer (check-bounded-integer 0 1000000 #f))
--- 107,119 ----
i))
range))))
! (define check-range-integer (check-bounded-integer 0 1000000 #f))
! (define check-slider-integer (check-bounded-integer -1000000 1000000 #f))
! (define check-init-pos-integer (check-bounded-integer -1000000 1000000 #t))
! (define check-margin-integer (check-bounded-integer 0 1000000 #f))
(define check-gauge-integer (check-bounded-integer 1 1000000 #f))
(define check-gauge-range-integer (check-bounded-integer 0 1000000 #f))
diff -cr racket-5.3.4/collects/mred/private/mrcontainer.rkt racket-5.3.4-nik/collects/mred/private/mrcontainer.rkt
*** racket-5.3.4/collects/mred/private/mrcontainer.rkt 2013-05-08 14:21:23.000000000 +0200
--- racket-5.3.4-nik/collects/mred/private/mrcontainer.rkt 2013-06-12 21:53:57.643461333 +0200
***************
*** 108,118 ****
(andmap
(lambda (l)
(and (list? l) (= (length l) 4)
! (integer? (car l)) (exact? (car l)) (<= 0 (car l) 10000)
! (integer? (cadr l)) (exact? (cadr l)) (<= 0 (cadr l) 10000)))
l))
(raise-argument-error (who->name '(method area-container<%> container-size))
! "(listof (list/c (integer-in 0 10000) (integer-in 0 10000) any/c any/c))"
l))
(let ([l (send (get-wx-panel) do-get-graphical-min-size)])
(apply values l))))]
--- 108,118 ----
(andmap
(lambda (l)
(and (list? l) (= (length l) 4)
! (integer? (car l)) (exact? (car l)) (<= 0 (car l) 1000000)
! (integer? (cadr l)) (exact? (cadr l)) (<= 0 (cadr l) 1000000)))
l))
(raise-argument-error (who->name '(method area-container<%> container-size))
! "(listof (list/c (integer-in 0 1000000) (integer-in 0 1000000) any/c any/c))"
l))
(let ([l (send (get-wx-panel) do-get-graphical-min-size)])
(apply values l))))]
____________________
Racket Users list:
http://lists.racket-lang.org/users
