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

.

Browse Source 
original commit: 08c2d423a9a61bb63c387582336e9c669c82bec0
This commit is contained in:
Matthew Flatt 1998-10-02 20:21:43 +00:00
parent 8aeb98576d
commit 4a3b1e3cb1
1 changed files with 2 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/mred/wrap/mred.ss
View File

@ -3243,7 +3243,9 @@
(send f stretchable-width #f) (send f stretchable-width #f)
(send f stretchable-height #f)) (send f stretchable-height #f))
(let ([m (make-object text-field% #f f void "" '(multiple))]) (let ([m (make-object text-field% #f f void "" '(multiple))])
(send f resize 400 200)
(send m set-value message) (send m set-value message)
(send (send m get-editor) set-position 0)
(send (send m get-editor) lock #t))) (send (send m get-editor) lock #t)))
(let* ([p (make-object horizontal-pane% f)] (let* ([p (make-object horizontal-pane% f)]
[mk-button (lambda (title v default?) [mk-button (lambda (title v default?)