From 322789559c8ccddcf7186df78714e68730f265f6 Mon Sep 17 00:00:00 2001 From: Matthias Felleisen Date: Wed, 1 Nov 2006 04:10:36 +0000 Subject: [PATCH] stupid mouse test svn: r4728 --- collects/htdp/Test/world-mouse.ss | 19 +++++++++++++++++++ 1 file changed, 19 insertions(+) create mode 100644 collects/htdp/Test/world-mouse.ss diff --git a/collects/htdp/Test/world-mouse.ss b/collects/htdp/Test/world-mouse.ss new file mode 100644 index 0000000000..47971df8cb --- /dev/null +++ b/collects/htdp/Test/world-mouse.ss @@ -0,0 +1,19 @@ +(require (lib "world.ss" "htdp")) + +(with-handlers ((exn? (lambda (x) #t))) + (place-image (circle 3 'solid 'red) 1.2 3.14 (empty-scene 100 100))) + +(define (ms w x y e) + (if (eq? e 'button-down) (list x y) w)) +(define (rd w) + (local ((define mt (empty-scene 300 300)) + (define x1 (first w)) + (define y1 (second w)) + (define tx (text (format "(~s,~s)" x1 y1) 22 'red)) + (define cr (circle 3 'solid 'red)) + (define m1 (place-image tx 50 50 mt)) + (define m2 (place-image cr x1 y1 m1))) + m2)) +(big-bang 300 300 1 (list 50 50)) +(on-redraw rd) +(on-mouse-event ms) \ No newline at end of file