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

.

Browse Source 
original commit: 907e173976c5b3bce0e6b9a0db12cc48e66186d9
This commit is contained in:
Matthew Flatt 2004-11-26 16:33:33 +00:00
parent 412d2d1fce
commit 4cb36688c0
1 changed files with 13 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1913,6 +1913,19 @@
(define ecv (make-object editor-canvas% (make-container hp2) #f '(no-hscroll)))
(define echv (make-object editor-canvas% (make-container hp2) #f '()))
(define hp3 (make-object horizontal-panel% f))
(define pec (make-object editor-canvas% (make-container hp3) #f '(no-border no-hscroll no-vscroll)))
(define pech (make-object editor-canvas% (make-container hp3) #f '(no-border no-vscroll)))
(define pecv (make-object editor-canvas% (make-container hp3) #f '(no-border no-hscroll)))
(define pechv (make-object editor-canvas% (make-container hp3) #f '(no-border )))
(define hp4 (make-object horizontal-panel% f))
(define chvh (make-object canvas% (make-container hp4) '(border hscroll vscroll)))
(define chvv (make-object canvas% (make-container hp4) '(border hscroll vscroll)))
(send chvh show-scrollbars #t #f)
(send chvv show-scrollbars #f #t)
(send f show #t))
;----------------------------------------------------------------------