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

.

Browse Source 
original commit: 4086329778dfee1bed79e4bcb72a6185d923d71b
This commit is contained in:
Matthew Flatt 1998-07-15 16:37:42 +00:00
parent c4ecab7d13
commit 5e70c70bf6
1 changed files with 10 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1444,8 +1444,11 @@
(send bp stretchable-in-x #f)
(make-object mred:button% bp (lambda (b e) (button-frame mred:frame%)) "Make Button Frame")
(make-object mred:button% bp (lambda (b e) (button-frame mred:noisy-dialog-box%)) "Make Button Dialog Box")
(make-object mred:button% ap (lambda (b e) (checkbox-frame)) "Make Checkbox Frame")
(make-object mred:button% ap (lambda (b e) (radiobox-frame)) "Make Radiobox Frame")
(define crp (make-object mred:horizontal-panel% ap))
(send crp stretchable-in-y #f)
(make-object mred:button% crp (lambda (b e) (checkbox-frame)) "Make Checkbox Frame")
(make-object mred:vertical-panel% crp) ; filler
(make-object mred:button% crp (lambda (b e) (radiobox-frame)) "Make Radiobox Frame")
(define cp (make-object mred:horizontal-panel% ap))
(send cp stretchable-in-x #f)
(make-object mred:button% cp (lambda (b e) (choice-or-list-frame #f 0 #f)) "Make Choice Frame")
@ -1456,8 +1459,11 @@
(make-object mred:button% lp (lambda (b e) (choice-or-list-frame #t wx:const-single #t)) "Make Empty List Frame")
(make-object mred:button% lp (lambda (b e) (choice-or-list-frame #t wx:const-multiple #f)) "Make MultiList Frame")
(make-object mred:button% lp (lambda (b e) (choice-or-list-frame #t wx:const-extended #f)) "Make MultiExtendList Frame")
(make-object mred:button% ap (lambda (b e) (gauge-frame)) "Make Gauge Frame")
(make-object mred:button% ap (lambda (b e) (slider-frame)) "Make Slider Frame")
(define gsp (make-object mred:horizontal-panel% ap))
(send gsp stretchable-in-y #f)
(make-object mred:button% gsp (lambda (b e) (gauge-frame)) "Make Gauge Frame")
(make-object mred:vertical-panel% gsp) ; filler
(make-object mred:button% gsp (lambda (b e) (slider-frame)) "Make Slider Frame")
(define tp (make-object mred:horizontal-panel% ap))
(send tp stretchable-in-x #f)
(make-object mred:button% tp (lambda (b e) (text-frame mred:text% 0)) "Make Text Frame")