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

.

Browse Source 
original commit: eeb55a40f0cac4a978fe2fe23d5e1495ee9d63f9
This commit is contained in:
Matthew Flatt 2004-11-01 21:28:40 +00:00
parent 355e9dcafb
commit 80a2b848a3
1 changed files with 16 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -1996,6 +1996,20 @@
;----------------------------------------------------------------------
(define (cursors)
(define f (make-object frame% "Cursors"))
(for-each (lambda (s)
(make-object button%
(format "~a" s)
f
(lambda (b e)
(send f set-cursor (make-object cursor% s)))))
'(arrow bullseye cross hand ibeam watch blank size-n/s size-e/w size-ne/sw size-nw/se))
(send f show #t))
;----------------------------------------------------------------------
(define selector (make-frame frame% "Test Selector"))
(define ap (make-object vertical-panel% selector))
@ -2072,6 +2086,8 @@
(make-object vertical-pane% crp) ; filler
(make-object button% "Message Boxes" crp (lambda (b e) (message-boxes #f)))
(make-object vertical-pane% crp) ; filler
(make-object button% "Cursors" crp (lambda (b e) (cursors)))
(make-object vertical-pane% crp) ; filler
(make-object button% "Make Radiobox Frame" crp (lambda (b e) (radiobox-frame)))
(define cp (make-object horizontal-pane% ap))
(send cp stretchable-width #f)