.

original commit: 889eee64c929fc6b0258ac8161f9a25ca6db732c

collects/tests/mred/item.ss

@@ -1468,6 +1468,28 @@
   (send c2 set-vsize 500 200)
   (send f show #t))
 
+(define (editor-canvas-oneline-frame)
+  (define f (make-object frame% "x" #f 200 #f))
+  
+  (define (try flags)
+    (define c (make-object editor-canvas% f #f flags))
+    
+    (define e (make-object text%))
+    
+    (send e insert "Xy!")
+    
+    (send c set-line-count 1)
+    
+    (send c set-editor e)
+    (send c stretchable-height #f))
+  
+  (send f show #t)
+  
+  (try '(no-hscroll no-vscroll))
+  (try '(no-vscroll))
+  (try '(no-hscroll))
+  (try '()))
+
 ;----------------------------------------------------------------------
 
 (define selector (make-object frame% "Test Selector"))
@@ -1522,6 +1544,8 @@
 (make-object button% "Make Menus Frame" pp (lambda (b e) (menu-frame)))
 (make-object horizontal-pane% pp)
 (make-object button% "Make Panel Frame" pp (lambda (b e) (panel-frame)))
+(make-object horizontal-pane% pp)
+(make-object button% "Editor Canvas One-liners" pp (lambda (b e) (editor-canvas-oneline-frame)))
 (define bp (make-object horizontal-pane% ap))
 (send bp stretchable-width #f)
 (make-object button% "Make Button Frame" bp (lambda (b e) (button-frame frame% null)))

collects/tests/mred/mem.ss

@@ -151,11 +151,11 @@
 	      (let ([mb (make-object menu-bar% sub-collect-frame)])
 		(make-object menu% "Permanent" mb)))
 	    (let* ([mb (send sub-collect-frame get-menu-bar)]
-		   [mm (send (car (send mb get-items)) get-menu)])
+		   [mm (car (send mb get-items))])
 	      (send (remember tag (make-object menu-item% "Delete Me" mm void)) delete)
 	      (let ([m (make-object menu% "Temporary" mb)])
 		(remember tag (make-object menu-item% "Temp Hi" m void))
-		(send (send m get-item) delete)))))
+		(send m delete)))))
 	  	  
 	(when atomic?
 	  (let loop ([m 8])

src/mred/wrap/mred.ss

@@ -3410,7 +3410,7 @@
 				      (memq 'hide-hscroll style))]
 			   [get-ds (lambda (no-this? no-other?)
 				     (cond
-				      [(and no-this? no-other?) 0]
+				      [(and no-this? no-other?) 14]
 				      [no-this? canvas-default-size]
 				      [else (+ 10 canvas-default-size)]))])
 		      (set! wx (make-object wx-editor-canvas% this this