.

original commit: 89c27368deca7b2e94b8b1a70bd6baa69fcb6f7f
1998-11-18 22:07:23 +00:00 · 1998-11-18 22:07:23 +00:00 · 7c9dccdb32
commit 7c9dccdb32
parent 61e6d077b2
1 changed files with 7 additions and 4 deletions
--- 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))))