suzanne.soy/gui
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

,.

Browse Source 
original commit: 9ed3977a62f40184050741245d2743f38badb0ba
This commit is contained in:
Matthew Flatt 2004-07-27 16:30:44 +00:00
parent 189e9817bc
commit 06201f6072
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/mred.ss
View File

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