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

.

Browse Source 
original commit: 60a39290964b15a7ace38aa82e8e2fcd3ff2af57
This commit is contained in:
Matthew Flatt 1999-06-04 01:49:05 +00:00
parent 4e263e7d8f
commit 9e318e22f8
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/tests/mred/item.ss
View File

@ -1557,6 +1557,13 @@
(define chv (make-object canvas% (make-container hp1) '(hscroll vscroll)))
(define cbhv (make-object canvas% (make-container hp1) '(border hscroll vscroll)))
(define hp2 (make-object horizontal-panel% f))
(define ec (make-object editor-canvas% (make-container hp2) #f '(no-hscroll no-vscroll)))
(define ech (make-object editor-canvas% (make-container hp2) #f '(no-vscroll)))
(define ecv (make-object editor-canvas% (make-container hp2) #f '(no-hscroll)))
(define echv (make-object editor-canvas% (make-container hp2) #f '()))
(send f show #t))
;----------------------------------------------------------------------