original commit: 9ed3977a62f40184050741245d2743f38badb0ba
This commit is contained in:
Matthew Flatt 2004-07-27 16:30:44 +00:00
parent 189e9817bc
commit 06201f6072

View File

@ -6231,7 +6231,7 @@
(let loop ([scroll? #f])
(let* ([e (make-object text%)]
[c (make-object editor-canvas% msg-pnl e (if scroll?
'(no-hscroll transparent)
'(no-hscroll)
'(no-hscroll no-vscroll transparent no-border)))])
(send c min-width 400)
(send c set-line-count 5)