From 7c9dccdb325d9fa187975a454d546cd6b36f1b6b Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 18 Nov 1998 22:07:23 +0000
Subject: [PATCH] .

original commit: 89c27368deca7b2e94b8b1a70bd6baa69fcb6f7f
---
 src/mred/wrap/mred.ss | 11 +++++++----
 1 file changed, 7 insertions(+), 4 deletions(-)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index af05ad27..319a0559 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -3211,10 +3211,13 @@
       [wx #f])
     (sequence
       (super-init (lambda () 
-		    (set! wx (make-object wx-canvas% this this
-					  (mred->wx-container parent)
-					  -1 -1 canvas-default-size canvas-default-size
-					  style))
+		    (let ([ds (if (or (memq 'vscroll style) (memq 'hscroll style))
+				  canvas-default-size
+				  1)])
+		      (set! wx (make-object wx-canvas% this this
+					    (mred->wx-container parent)
+					    -1 -1 ds ds
+					    style)))
 		    wx)
 		  parent))))