From 4a3b1e3cb19daee8b808e65f33097c93a13bb1f6 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 2 Oct 1998 20:21:43 +0000
Subject: [PATCH] .

original commit: 08c2d423a9a61bb63c387582336e9c669c82bec0
---
 src/mred/wrap/mred.ss | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/src/mred/wrap/mred.ss b/src/mred/wrap/mred.ss
index 06a92317..dd1818c2 100644
--- a/src/mred/wrap/mred.ss
+++ b/src/mred/wrap/mred.ss
@@ -3243,7 +3243,9 @@
 	    (send f stretchable-width #f)
 	    (send f stretchable-height #f))
 	  (let ([m (make-object text-field% #f f void "" '(multiple))])
+	    (send f resize 400 200)
 	    (send m set-value message)
+	    (send (send m get-editor) set-position 0)
 	    (send (send m get-editor) lock #t)))
       (let* ([p (make-object horizontal-pane% f)]
 	     [mk-button (lambda (title v default?)