From 4cb36688c07f1472b3bfffab9561b81bd2a37fce Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 26 Nov 2004 16:33:33 +0000 Subject: [PATCH] . original commit: 907e173976c5b3bce0e6b9a0db12cc48e66186d9 --- collects/tests/mred/item.ss | 13 +++++++++++++ 1 file changed, 13 insertions(+) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index 4d919815..f45cca8d 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -1913,6 +1913,19 @@ (define ecv (make-object editor-canvas% (make-container hp2) #f '(no-hscroll))) (define echv (make-object editor-canvas% (make-container hp2) #f '())) + (define hp3 (make-object horizontal-panel% f)) + + (define pec (make-object editor-canvas% (make-container hp3) #f '(no-border no-hscroll no-vscroll))) + (define pech (make-object editor-canvas% (make-container hp3) #f '(no-border no-vscroll))) + (define pecv (make-object editor-canvas% (make-container hp3) #f '(no-border no-hscroll))) + (define pechv (make-object editor-canvas% (make-container hp3) #f '(no-border ))) + + (define hp4 (make-object horizontal-panel% f)) + (define chvh (make-object canvas% (make-container hp4) '(border hscroll vscroll))) + (define chvv (make-object canvas% (make-container hp4) '(border hscroll vscroll))) + (send chvh show-scrollbars #t #f) + (send chvv show-scrollbars #f #t) + (send f show #t)) ;----------------------------------------------------------------------