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

mouse events in [0,WIDTH] x [0,HEIGHT]

Browse Source 
svn: r11413
This commit is contained in:
Matthias Felleisen 2008-08-25 13:30:51 +00:00
parent 6793197f68
commit a56b3bff61
1 changed files with 13 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
collects/htdp/world.ss
View File

@ -635,11 +635,16 @@ Matthew
(define (set-and-show-frame w h animated-gif) (define (set-and-show-frame w h animated-gif)
(define the-play-back-custodian (make-custodian)) (define the-play-back-custodian (make-custodian))
(define frame (create-frame the-play-back-custodian)) (define frame (create-frame the-play-back-custodian))
(set! WIDTH w)
(set! HEIGHT h)
(when animated-gif (when animated-gif
(add-stop-and-image-buttons frame the-play-back-custodian)) (add-stop-and-image-buttons frame the-play-back-custodian))
(add-editor-canvas frame visible-world w h) (add-editor-canvas frame visible-world w h)
(send frame show #t)) (send frame show #t))
(define WIDTH 0)
(define HEIGHT 0)
;; [Box (union false Thread)] -> Frame ;; [Box (union false Thread)] -> Frame
;; create a frame that shuts down the custodian on close ;; create a frame that shuts down the custodian on close
(define (create-frame the-play-back-custodian) (define (create-frame the-play-back-custodian)
@ -902,13 +907,14 @@ Matthew
(parameterize ([current-eventspace evt-space]) (parameterize ([current-eventspace evt-space])
(queue-callback (queue-callback
(lambda () (lambda ()
(with-handlers ([exn:break? break-handler][exn? exn-handler]) (define x (- (send e get-x) INSET))
(define x (- (send e get-x) INSET)) (define y (- (send e get-y) INSET))
(define y (- (send e get-y) INSET)) (define m (mouse-event->symbol e))
(define m (mouse-event->symbol e)) (when (and (<= 0 x WIDTH) (<= 0 y HEIGHT))
(set! the-world (f the-world x y m)) (with-handlers ([exn:break? break-handler][exn? exn-handler])
(add-event MOUSE x y m) (set! the-world (f the-world x y m))
(redraw-callback)))))) (add-event MOUSE x y m)
(redraw-callback)))))))
;; MouseEvent -> MouseEventType ;; MouseEvent -> MouseEventType
(define (mouse-event->symbol e) (define (mouse-event->symbol e)