From 80a2b848a36f384ec805703ac07d5c611ca07274 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 1 Nov 2004 21:28:40 +0000 Subject: [PATCH] . original commit: eeb55a40f0cac4a978fe2fe23d5e1495ee9d63f9 --- collects/tests/mred/item.ss | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) diff --git a/collects/tests/mred/item.ss b/collects/tests/mred/item.ss index 776d03ea..759d428d 100644 --- a/collects/tests/mred/item.ss +++ b/collects/tests/mred/item.ss @@ -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)