removed some more one-of/c's in favor of or/c

svn: r18247

original commit: 71b4df4a29fd9b0bf498c389a8ab5d622d692397
This commit is contained in:
Robby Findler 2010-02-21 02:29:12 +00:00
parent 7eaa3b0f25
commit bbf734aad2

View File

@ -13,9 +13,9 @@ See also @|mousekeydiscuss|.
@defconstructor[([event-type (one-of/c 'enter 'leave 'left-down 'left-up
'middle-down 'middle-up
'right-down 'right-up 'motion)]
@defconstructor[([event-type (or/c 'enter 'leave 'left-down 'left-up
'middle-down 'middle-up
'right-down 'right-up 'motion)]
[left-down any/c #f]
[middle-down any/c #f]
[right-down any/c #f]
@ -51,7 +51,7 @@ See the corresponding @schemeidfont{get-} and @schemeidfont{set-}
}
@defmethod[(button-changed? [button (one-of/c 'left 'middle 'right 'any) 'any])
@defmethod[(button-changed? [button (or/c 'left 'middle 'right 'any) 'any])
boolean?]{
Returns @scheme[#t] if this was a mouse button press or release event,
@ -64,7 +64,7 @@ If @scheme[button] is not @scheme['any], then @scheme[#t] is only returned
}
@defmethod[(button-down? [button (one-of/c 'left 'middle 'right 'any) 'any])
@defmethod[(button-down? [button (or/c 'left 'middle 'right 'any) 'any])
boolean?]{
Returns @scheme[#t] if the event is for a button press, @scheme[#f]
@ -75,7 +75,7 @@ If @scheme[button] is not @scheme['any], then @scheme[#t] is only returned
}
@defmethod[(button-up? [button (one-of/c 'left 'middle 'right 'any) 'any])
@defmethod[(button-up? [button (or/c 'left 'middle 'right 'any) 'any])
boolean?]{
Returns @scheme[#t] if the event is for a button release, @scheme[#f]
@ -142,9 +142,9 @@ Under Mac OS X, if a control-key press is combined with a mouse button
}
@defmethod[(get-event-type)
(one-of/c 'enter 'leave 'left-down 'left-up
'middle-down 'middle-up
'right-down 'right-up 'motion)]{
(or/c 'enter 'leave 'left-down 'left-up
'middle-down 'middle-up
'right-down 'right-up 'motion)]{
Returns the type of the event; see @scheme[mouse-event%] for
information about each event type. See also @method[mouse-event%
@ -254,9 +254,9 @@ Under Mac OS X, if a control-key press is combined with a mouse button
}
@defmethod[(set-event-type [event-type (one-of/c 'enter 'leave 'left-down 'left-up
'middle-down 'middle-up
'right-down 'right-up 'motion)])
@defmethod[(set-event-type [event-type (or/c 'enter 'leave 'left-down 'left-up
'middle-down 'middle-up
'right-down 'right-up 'motion)])
void?]{
Sets the type of the event; see @scheme[mouse-event%] for information