From bbf734aad2cc2b133f33081c212b3b3c8f5c55a7 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 21 Feb 2010 02:29:12 +0000 Subject: [PATCH] removed some more one-of/c's in favor of or/c svn: r18247 original commit: 71b4df4a29fd9b0bf498c389a8ab5d622d692397 --- .../scribblings/gui/mouse-event-class.scrbl | 24 +++++++++---------- 1 file changed, 12 insertions(+), 12 deletions(-) diff --git a/collects/scribblings/gui/mouse-event-class.scrbl b/collects/scribblings/gui/mouse-event-class.scrbl index aeebd2ca..e050d77d 100644 --- a/collects/scribblings/gui/mouse-event-class.scrbl +++ b/collects/scribblings/gui/mouse-event-class.scrbl @@ -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