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

.

Browse Source 
original commit: cb6e270017679a560ba850a203b7b47e78819c59
This commit is contained in:
Matthew Flatt 2004-07-26 20:20:56 +00:00
parent 1de2e6f2e7
commit 1567ca0446
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

@ -6218,7 +6218,7 @@
(send f stretchable-width #f)
(send f stretchable-height #f))
(let* ([e (make-object text%)]
[c (make-object editor-canvas% msg-pnl e '(no-hscroll))])
[c (make-object editor-canvas% msg-pnl e '(no-hscroll transparent))])
(send f resize (+ 400 extra-width) 200)
(send c set-line-count (min 5 (length strings)))
(send c allow-tab-exit #t)