fixed pr 11010

This commit is contained in:
Matthias Felleisen 2010-07-02 12:47:13 -04:00
parent 12f30cf478
commit 3656cd1972

View File

@ -373,11 +373,11 @@ All @tech{MouseEvent}s are represented via strings:
@defform[(on-mouse mouse-expr) @defform[(on-mouse mouse-expr)
#:contracts #:contracts
([clack-expr ([mouse-expr
(-> (unsyntax @tech{WorldState}) (-> (unsyntax @tech{WorldState})
integer? integer? (unsyntax @tech{MouseEvent}) integer? integer? (unsyntax @tech{MouseEvent})
(unsyntax @tech{WorldState}))])]{ (unsyntax @tech{WorldState}))])]{
tell DrRacket to call @scheme[clack-expr] on the current world, the current tell DrRacket to call @scheme[mouse-expr] on the current world, the current
@scheme[x] and @scheme[y] coordinates of the mouse, and and a @scheme[x] and @scheme[y] coordinates of the mouse, and and a
@tech{MouseEvent} for every (noticeable) action of the mouse by the @tech{MouseEvent} for every (noticeable) action of the mouse by the
computer user. The result of the call becomes the current world. computer user. The result of the call becomes the current world.
@ -701,7 +701,7 @@ As mentioned, all event handlers may return @tech{WorldState}s or
@defform/none[#:literals (on-mouse) @defform/none[#:literals (on-mouse)
(on-mouse mouse-expr) (on-mouse mouse-expr)
#:contracts #:contracts
([clack-expr ([mouse-expr
(-> (unsyntax @tech{WorldState}) (-> (unsyntax @tech{WorldState})
integer? integer? (unsyntax @tech{MouseEvent}) integer? integer? (unsyntax @tech{MouseEvent})
(or/c (unsyntax @tech{WorldState}) package?))])]{ (or/c (unsyntax @tech{WorldState}) package?))])]{