From 2bdcdbb1970bc65625be295eac1f510b97d3df10 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 6 Apr 2012 18:50:28 -0600 Subject: [PATCH] racket/draw, racket/gui: modernize contracts, mostly in documentation Use `or/c' instead of `one-of/c', `#f' instead of `false/c'. --- collects/racket/draw/contracts.rkt | 82 +++++++++---------- collects/scribblings/draw/bitmap-class.scrbl | 26 +++--- .../scribblings/draw/bitmap-dc-class.scrbl | 2 +- collects/scribblings/draw/brush-class.scrbl | 30 +++---- .../scribblings/draw/brush-list-class.scrbl | 22 ++--- collects/scribblings/draw/dc-intf.scrbl | 52 ++++++------ collects/scribblings/draw/draw-funcs.scrbl | 2 +- collects/scribblings/draw/font-class.scrbl | 2 +- .../scribblings/draw/font-list-class.scrbl | 20 ++--- .../draw/font-name-directory-intf.scrbl | 38 ++++----- collects/scribblings/draw/pdf-dc-class.scrbl | 2 +- collects/scribblings/draw/pen-class.scrbl | 36 ++++---- .../scribblings/draw/pen-list-class.scrbl | 26 +++--- .../draw/post-script-dc-class.scrbl | 2 +- .../scribblings/draw/ps-setup-class.scrbl | 12 +-- collects/scribblings/draw/region-class.scrbl | 4 +- collects/scribblings/gui/area-intf.scrbl | 2 +- collects/scribblings/gui/button-class.scrbl | 4 +- collects/scribblings/gui/canvas-class.scrbl | 36 ++++---- collects/scribblings/gui/canvas-intf.scrbl | 2 +- .../scribblings/gui/check-box-class.scrbl | 5 +- .../gui/checkable-menu-item-class.scrbl | 11 +-- collects/scribblings/gui/choice-class.scrbl | 6 +- .../gui/clipboard-client-class.scrbl | 2 +- .../gui/column-control-event-class.scrbl | 2 +- .../scribblings/gui/combo-field-class.scrbl | 9 +- .../scribblings/gui/control-event-class.scrbl | 26 +++--- collects/scribblings/gui/cursor-class.scrbl | 4 +- collects/scribblings/gui/dialog-class.scrbl | 18 ++-- .../scribblings/gui/editor-admin-class.scrbl | 26 +++--- .../scribblings/gui/editor-canvas-class.scrbl | 34 ++++---- .../gui/editor-data-class-class.scrbl | 2 +- .../gui/editor-data-class-list-intf.scrbl | 4 +- .../scribblings/gui/editor-data-class.scrbl | 6 +- .../scribblings/gui/editor-snip-class.scrbl | 44 +++++----- .../gui/editor-stream-in-class.scrbl | 8 +- .../gui/editor-wordbreak-map-class.scrbl | 4 +- .../scribblings/gui/eventspace-funcs.scrbl | 6 +- collects/scribblings/gui/frame-class.scrbl | 22 ++--- collects/scribblings/gui/gauge-class.scrbl | 8 +- .../gui/group-box-panel-class.scrbl | 6 +- .../gui/horizontal-pane-class.scrbl | 4 +- .../gui/horizontal-panel-class.scrbl | 10 +-- .../scribblings/gui/image-snip-class.scrbl | 24 +++--- .../scribblings/gui/key-event-class.scrbl | 16 ++-- .../gui/labelled-menu-item-intf.scrbl | 4 +- collects/scribblings/gui/list-box-class.scrbl | 17 ++-- .../scribblings/gui/list-control-intf.scrbl | 6 +- collects/scribblings/gui/menu-bar-class.scrbl | 2 +- collects/scribblings/gui/menu-class.scrbl | 2 +- .../scribblings/gui/menu-item-class.scrbl | 8 +- collects/scribblings/gui/message-class.scrbl | 4 +- collects/scribblings/gui/miscwin-funcs.scrbl | 4 +- collects/scribblings/gui/pane-class.scrbl | 4 +- collects/scribblings/gui/panel-class.scrbl | 10 +-- .../scribblings/gui/pasteboard-class.scrbl | 22 ++--- .../scribblings/gui/popup-menu-class.scrbl | 4 +- .../scribblings/gui/printer-dc-class.scrbl | 2 +- .../scribblings/gui/radio-box-class.scrbl | 8 +- .../scribblings/gui/readable-snip-intf.scrbl | 6 +- .../scribblings/gui/scroll-event-class.scrbl | 17 ++-- .../gui/selectable-menu-item-intf.scrbl | 8 +- collects/scribblings/gui/slider-class.scrbl | 8 +- .../scribblings/gui/snip-admin-class.scrbl | 20 ++--- .../scribblings/gui/snip-class-class.scrbl | 2 +- .../gui/snip-class-list-intf.scrbl | 4 +- collects/scribblings/gui/snip-class.scrbl | 40 ++++----- .../scribblings/gui/style-delta-class.scrbl | 4 +- collects/scribblings/gui/style-intf.scrbl | 20 ++--- .../scribblings/gui/style-list-class.scrbl | 6 +- .../scribblings/gui/system-menu-funcs.scrbl | 4 +- .../scribblings/gui/tab-panel-class.scrbl | 8 +- .../scribblings/gui/text-field-class.scrbl | 8 +- collects/scribblings/gui/timer-class.scrbl | 2 +- .../gui/top-level-window-intf.scrbl | 12 +-- .../scribblings/gui/vertical-pane-class.scrbl | 4 +- .../gui/vertical-panel-class.scrbl | 10 +-- collects/scribblings/gui/window-intf.scrbl | 4 +- collects/scribblings/gui/wxme.scrbl | 50 +++++------ 79 files changed, 524 insertions(+), 519 deletions(-) diff --git a/collects/racket/draw/contracts.rkt b/collects/racket/draw/contracts.rkt index 5525a2a450..fb94496a42 100644 --- a/collects/racket/draw/contracts.rkt +++ b/collects/racket/draw/contracts.rkt @@ -27,23 +27,23 @@ (define-values (frame% dialog%) (values object% object%)) (define brush-style/c - (one-of/c 'transparent 'solid 'opaque - 'xor 'hilite 'panel - 'bdiagonal-hatch 'crossdiag-hatch - 'fdiagonal-hatch 'cross-hatch - 'horizontal-hatch 'vertical-hatch)) + (or/c 'transparent 'solid 'opaque + 'xor 'hilite 'panel + 'bdiagonal-hatch 'crossdiag-hatch + 'fdiagonal-hatch 'cross-hatch + 'horizontal-hatch 'vertical-hatch)) (define pen-cap-style/c - (one-of/c 'round 'projecting 'butt)) + (or/c 'round 'projecting 'butt)) (define pen-join-style/c - (one-of/c 'round 'bevel 'miter)) + (or/c 'round 'bevel 'miter)) (define pen-style/c - (one-of/c 'transparent 'solid 'xor 'hilite - 'dot 'long-dash 'short-dash 'dot-dash - 'xor-dot 'xor-long-dash 'xor-short-dash - 'xor-dot-dash)) + (or/c 'transparent 'solid 'xor 'hilite + 'dot 'long-dash 'short-dash 'dot-dash + 'xor-dot 'xor-long-dash 'xor-short-dash + 'xor-dot-dash)) (define transformation-vector/c (vector/c (vector/c real? real? real? real? real? real?) @@ -66,7 +66,7 @@ void?)] [draw-bitmap (->*m ((is-a?/c bitmap%) real? real?) - ((one-of/c 'solid 'opaque 'xor) + ((or/c 'solid 'opaque 'xor) (is-a?/c color%) (or/c (is-a?/c bitmap%) #f)) boolean?)] @@ -75,7 +75,7 @@ real? real? (and/c real? (not/c negative?)) (and/c real? (not/c negative?))) - ((one-of/c 'solid 'opaque 'xor) + ((or/c 'solid 'opaque 'xor) (is-a?/c color%) (or/c (is-a?/c bitmap%) #f)) boolean?)] @@ -91,12 +91,12 @@ (real? real?) void?)] [draw-path (->*m ((is-a?/c dc-path%)) - (real? real? (one-of/c 'odd-even 'winding)) + (real? real? (or/c 'odd-even 'winding)) void?)] [draw-point (->m real? real? void?)] [draw-polygon (->*m ((or/c (listof (is-a?/c point%)) (listof (cons/c real? real?)))) - (real? real? (one-of/c 'odd-even 'winding)) + (real? real? (or/c 'odd-even 'winding)) void?)] [draw-rectangle (->m real? real? (and/c real? (not/c negative?)) @@ -135,7 +135,7 @@ [get-scale (->m (values real? real?))] [get-size (->m (values (and/c real? (not/c negative?)) (and/c real? (not/c negative?))))] - [get-smoothing (->m (one-of/c 'unsmoothed 'smoothed 'aligned))] + [get-smoothing (->m (or/c 'unsmoothed 'smoothed 'aligned))] [get-text-background (->m (is-a?/c color%))] [get-text-extent (->*m (string?) ((or/c (is-a?/c font%) #f) @@ -147,7 +147,7 @@ (and/c real? (not/c negative?)) (and/c real? (not/c negative?))))] [get-text-foreground (->m (is-a?/c color%))] - [get-text-mode (->m (one-of/c 'solid 'transparent))] + [get-text-mode (->m (or/c 'solid 'transparent))] [get-transformation (->m (vector/c (vector/c real? real? real? real? real? real?) real? real? real? real? real?))] @@ -179,10 +179,10 @@ void?))] [set-rotation (->m real? void?)] [set-scale (->m real? real? void?)] - [set-smoothing (->m (one-of/c 'unsmoothed 'smoothed 'aligned) void?)] + [set-smoothing (->m (or/c 'unsmoothed 'smoothed 'aligned) void?)] [set-text-background (->m (or/c (is-a?/c color%) string?) void?)] [set-text-foreground (->m (or/c (is-a?/c color%) string?) void?)] - [set-text-mode (->m (one-of/c 'solid 'transparent) void?)] + [set-text-mode (->m (or/c 'solid 'transparent) void?)] [set-transformation (->m (vector/c (vector/c real? real? real? real? real? real?) real? real? real? real? real?) @@ -215,17 +215,17 @@ (define font%/c (class/c - (get-face (->m (or/c string? false/c))) - (get-family (->m (one-of/c 'default 'decorative 'roman 'script - 'swiss 'modern 'symbol 'system))) + (get-face (->m (or/c string? #f))) + (get-family (->m (or/c 'default 'decorative 'roman 'script + 'swiss 'modern 'symbol 'system))) (get-font-id (->m exact-integer?)) (get-point-size (->m (integer-in 1 255))) (get-size-in-pixels (->m boolean?)) - (get-smoothing (->m (one-of/c 'default 'partly-smoothed - 'smoothed 'unsmoothed))) - (get-style (->m (one-of/c 'normal 'italic 'slant))) + (get-smoothing (->m (or/c 'default 'partly-smoothed + 'smoothed 'unsmoothed))) + (get-style (->m (or/c 'normal 'italic 'slant))) (get-underlined (->m boolean?)) - (get-weight (->m (one-of/c 'normal 'bold 'light))) + (get-weight (->m (or/c 'normal 'bold 'light))) (screen-glyph-exists? (->*m (char?) (any/c) boolean?)))) (define pen%/c @@ -233,7 +233,7 @@ (get-cap (->m pen-cap-style/c)) (get-color (->m (is-a?/c color%))) (get-join (->m pen-join-style/c)) - (get-stipple (->m (or/c (is-a?/c bitmap%) false/c))) + (get-stipple (->m (or/c (is-a?/c bitmap%) #f))) (get-style (->m pen-style/c)) (get-width (->m (real-in 0 255))) (set-cap (->m pen-cap-style/c void?)) @@ -244,7 +244,7 @@ (integer-in 0 255) void?))) (set-join (->m pen-join-style/c void?)) - (set-stipple (->m (or/c (is-a?/c bitmap%) false/c) void?)) + (set-stipple (->m (or/c (is-a?/c bitmap%) #f) void?)) (set-style (->m pen-style/c void?)) (set-width (->m (real-in 0 255) void?)))) @@ -261,7 +261,7 @@ (define brush%/c (class/c (get-color (->m (is-a?/c color%))) - (get-stipple (->m (or/c (is-a?/c bitmap%) false/c))) + (get-stipple (->m (or/c (is-a?/c bitmap%) #f))) (get-style (->m brush-style/c)) (set-color (case->m (-> (or/c (is-a?/c color%) string?) void?) @@ -317,7 +317,7 @@ real? real? (and/c real? (not/c negative?)) (and/c real? (not/c negative?))) - ((one-of/c 'solid 'opaque 'xor) + ((or/c 'solid 'opaque 'xor) (or/c (is-a?/c color%) #f) (or/c (is-a?/c bitmap%) #f)) boolean?)] @@ -405,13 +405,13 @@ (set-path (->*m ((is-a?/c dc-path%)) (real? real? - (one-of/c 'odd-even 'winding)) + (or/c 'odd-even 'winding)) void?)) (set-polygon (->*m ((or/c (listof (is-a?/c point%)) (listof (cons/c real? real?)))) (real? real? - (one-of/c 'odd-even 'winding)) + (or/c 'odd-even 'winding)) void?)) (set-rectangle (->m real? real? @@ -505,23 +505,23 @@ void?)) (get-depth (->m exact-nonnegative-integer?)) (get-height (->m exact-nonnegative-integer?)) - (get-loaded-mask (->m (or/c (is-a?/c bitmap%) false/c))) + (get-loaded-mask (->m (or/c (is-a?/c bitmap%) #f))) (get-width (->m exact-nonnegative-integer?)) (has-alpha-channel? (->m boolean?)) (is-color? (->m boolean?)) (load-file (->*m ((or/c path-string? input-port?)) - ((one-of/c 'unknown 'unknown/mask 'unknown/alpha - 'gif 'gif/mask 'gif/alpha - 'jpeg 'jpeg/alpha - 'png 'png/mask 'png/alpha - 'xbm 'xbm/alpha 'xpm 'xpm/alpha - 'bmp 'bmp/alpha) - (or/c (is-a?/c color%) false/c) + ((or/c 'unknown 'unknown/mask 'unknown/alpha + 'gif 'gif/mask 'gif/alpha + 'jpeg 'jpeg/alpha + 'png 'png/mask 'png/alpha + 'xbm 'xbm/alpha 'xpm 'xpm/alpha + 'bmp 'bmp/alpha) + (or/c (is-a?/c color%) #f) any/c) boolean?)) (ok? (->m boolean?)) (save-file (->*m ((or/c path-string? output-port?) - (one-of/c 'png 'jpeg 'xbm 'xpm 'bmp)) + (or/c 'png 'jpeg 'xbm 'xpm 'bmp)) ((integer-in 0 100)) boolean?)) (set-argb-pixels (->*m diff --git a/collects/scribblings/draw/bitmap-class.scrbl b/collects/scribblings/draw/bitmap-class.scrbl index cd6d27f497..3bdb0c7902 100644 --- a/collects/scribblings/draw/bitmap-class.scrbl +++ b/collects/scribblings/draw/bitmap-class.scrbl @@ -19,12 +19,12 @@ A bitmap is convertible to @racket['png-bytes] through the [monochrome? any/c #f] [alpha? any/c #f]) ([in (or/c path-string? input-port?)] - [kind (one-of/c 'unknown 'unknown/mask 'unknown/alpha - 'gif 'gif/mask 'gif/alpha - 'jpeg 'jpeg/alpha - 'png 'png/mask 'png/alpha - 'xbm 'xbm/alpha 'xpm 'xpm/alpha - 'bmp 'bmp/alpha) + [kind (or/c 'unknown 'unknown/mask 'unknown/alpha + 'gif 'gif/mask 'gif/alpha + 'jpeg 'jpeg/alpha + 'png 'png/mask 'png/alpha + 'xbm 'xbm/alpha 'xpm 'xpm/alpha + 'bmp 'bmp/alpha) 'unknown] [bg-color (or/c (is-a?/c color%) #f) #f] [complain-on-failure? any/c #f]) @@ -160,12 +160,12 @@ Returns @racket[#f] if the bitmap is monochrome, @racket[#t] otherwise. } @defmethod[(load-file [in (or/c path-string? input-port?)] - [kind (one-of/c 'unknown 'unknown/mask 'unknown/alpha - 'gif 'gif/mask 'gif/alpha - 'jpeg 'jpeg/alpha - 'png 'png/mask 'png/alpha - 'xbm 'xbm/alpha 'xpm 'xpm/alpha - 'bmp 'bmp/alpha) + [kind (or/c 'unknown 'unknown/mask 'unknown/alpha + 'gif 'gif/mask 'gif/alpha + 'jpeg 'jpeg/alpha + 'png 'png/mask 'png/alpha + 'xbm 'xbm/alpha 'xpm 'xpm/alpha + 'bmp 'bmp/alpha) 'unknown] [bg-color (or/c (is-a?/c color%) #f) #f] [complain-on-failure? any/c #f]) @@ -252,7 +252,7 @@ Returns @racket[#t] if the bitmap is valid in the sense that an image @defmethod[(save-file [name (or/c path-string? output-port?)] - [kind (one-of/c 'png 'jpeg 'xbm 'xpm 'bmp)] + [kind (or/c 'png 'jpeg 'xbm 'xpm 'bmp)] [quality (integer-in 0 100) 75]) boolean?]{ diff --git a/collects/scribblings/draw/bitmap-dc-class.scrbl b/collects/scribblings/draw/bitmap-dc-class.scrbl index ea8e34d2a0..cffce48b0e 100644 --- a/collects/scribblings/draw/bitmap-dc-class.scrbl +++ b/collects/scribblings/draw/bitmap-dc-class.scrbl @@ -36,7 +36,7 @@ Creates a new bitmap DC. If @racket[bitmap] is not @racket[#f], it is [src-y real?] [src-width (and/c real? (not/c negative?))] [src-height (and/c real? (not/c negative?))] - [style (one-of/c 'solid 'opaque 'xor) 'solid] + [style (or/c 'solid 'opaque 'xor) 'solid] [color (is-a?/c color%) (send the-color-database find-color "black")] [mask (or/c (is-a?/c bitmap%) #f) #f]) boolean?]{ diff --git a/collects/scribblings/draw/brush-class.scrbl b/collects/scribblings/draw/brush-class.scrbl index 8b735f6ac3..d82fc02498 100644 --- a/collects/scribblings/draw/brush-class.scrbl +++ b/collects/scribblings/draw/brush-class.scrbl @@ -90,11 +90,11 @@ To avoid creating multiple brushes with the same characteristics, use @defconstructor[([color (or/c string? (is-a?/c color%)) "black"] - [style (one-of/c 'transparent 'solid 'opaque - 'xor 'hilite 'panel - 'bdiagonal-hatch 'crossdiag-hatch - 'fdiagonal-hatch 'cross-hatch - 'horizontal-hatch 'vertical-hatch) + [style (or/c 'transparent 'solid 'opaque + 'xor 'hilite 'panel + 'bdiagonal-hatch 'crossdiag-hatch + 'fdiagonal-hatch 'cross-hatch + 'horizontal-hatch 'vertical-hatch) 'solid] [stipple (or/c #f (is-a?/c bitmap%)) #f] @@ -142,11 +142,11 @@ Gets the @tech{brush stipple} bitmap, or @racket[#f] if the brush has no stipple @defmethod[(get-style) - (one-of/c 'transparent 'solid 'opaque - 'xor 'hilite 'panel - 'bdiagonal-hatch 'crossdiag-hatch - 'fdiagonal-hatch 'cross-hatch - 'horizontal-hatch 'vertical-hatch)]{ + (or/c 'transparent 'solid 'opaque + 'xor 'hilite 'panel + 'bdiagonal-hatch 'crossdiag-hatch + 'fdiagonal-hatch 'cross-hatch + 'horizontal-hatch 'vertical-hatch)]{ Returns the @tech{brush style}. See @racket[brush%] for information about brush styles.} @@ -200,11 +200,11 @@ If @racket[bitmap] is modified while is associated with a brush, the } -@defmethod[(set-style [style (one-of/c 'transparent 'solid 'opaque - 'xor 'hilite 'panel - 'bdiagonal-hatch 'crossdiag-hatch - 'fdiagonal-hatch 'cross-hatch - 'horizontal-hatch 'vertical-hatch)]) +@defmethod[(set-style [style (or/c 'transparent 'solid 'opaque + 'xor 'hilite 'panel + 'bdiagonal-hatch 'crossdiag-hatch + 'fdiagonal-hatch 'cross-hatch + 'horizontal-hatch 'vertical-hatch)]) void?]{ Sets the @tech{brush style}. See diff --git a/collects/scribblings/draw/brush-list-class.scrbl b/collects/scribblings/draw/brush-list-class.scrbl index 37d5b8569e..b2f25e9989 100644 --- a/collects/scribblings/draw/brush-list-class.scrbl +++ b/collects/scribblings/draw/brush-list-class.scrbl @@ -18,19 +18,19 @@ Creates an empty brush list. } @defmethod*[([(find-or-create-brush [color (is-a?/c color%)] - [style (one-of/c 'transparent 'solid 'opaque - 'xor 'hilite 'panel - 'bdiagonal-hatch 'crossdiag-hatch - 'fdiagonal-hatch 'cross-hatch - 'horizontal-hatch 'vertical-hatch)]) + [style (or/c 'transparent 'solid 'opaque + 'xor 'hilite 'panel + 'bdiagonal-hatch 'crossdiag-hatch + 'fdiagonal-hatch 'cross-hatch + 'horizontal-hatch 'vertical-hatch)]) (is-a?/c brush%)] [(find-or-create-brush [color-name string?] - [style (one-of/c 'transparent 'solid 'opaque - 'xor 'hilite 'panel - 'bdiagonal-hatch 'crossdiag-hatch - 'fdiagonal-hatch 'cross-hatch - 'horizontal-hatch 'vertical-hatch)]) - (or/c (is-a?/c brush%) false/c)])]{ + [style (or/c 'transparent 'solid 'opaque + 'xor 'hilite 'panel + 'bdiagonal-hatch 'crossdiag-hatch + 'fdiagonal-hatch 'cross-hatch + 'horizontal-hatch 'vertical-hatch)]) + (or/c (is-a?/c brush%) #f)])]{ Finds a brush of the given specification, or creates one and adds it to the list. See @racket[brush%] for a further explanation of the diff --git a/collects/scribblings/draw/dc-intf.scrbl b/collects/scribblings/draw/dc-intf.scrbl index 0807a9b6c5..797ee2b2b6 100644 --- a/collects/scribblings/draw/dc-intf.scrbl +++ b/collects/scribblings/draw/dc-intf.scrbl @@ -83,7 +83,7 @@ If both the pen and brush are non-transparent, the wedge is filled @defmethod[(draw-bitmap [source (is-a?/c bitmap%)] [dest-x real?] [dest-y real?] - [style (one-of/c 'solid 'opaque 'xor) 'solid] + [style (or/c 'solid 'opaque 'xor) 'solid] [color (is-a?/c color%) (send the-color-database find-color "black")] [mask (or/c (is-a?/c bitmap%) #f) #f]) boolean?]{ @@ -155,7 +155,7 @@ See also @method[dc<%> draw-bitmap-section]. [src-y real?] [src-width (and/c real? (not/c negative?))] [src-height (and/c real? (not/c negative?))] - [style (one-of/c 'solid 'opaque 'xor) 'solid] + [style (or/c 'solid 'opaque 'xor) 'solid] [color (is-a?/c color%) (send the-color-database find-color "black")] [mask (or/c (is-a?/c bitmap%) #f) #f]) boolean?]{ @@ -236,7 +236,7 @@ See also @method[dc<%> set-smoothing] for information on the @defmethod[(draw-path [path (is-a?/c dc-path%)] [xoffset real? 0] [yoffset real? 0] - [fill-style (one-of/c 'odd-even 'winding) 'odd-even]) + [fill-style (or/c 'odd-even 'winding) 'odd-even]) void?]{ Draws the sub-paths of the given @racket[dc-path%] object, adding @@ -281,7 +281,7 @@ Plots a single point using the current pen. (listof (cons/c real? real?)))] [xoffset real? 0] [yoffset real? 0] - [fill-style (one-of/c 'odd-even 'winding) 'odd-even]) + [fill-style (or/c 'odd-even 'winding) 'odd-even]) void?]{ Draw a filled polygon using a list @racket[points] of points, adding @@ -658,7 +658,7 @@ Gets the size of the destination drawing area. For a @racket[dc<%>] } @defmethod[(get-smoothing) - (one-of/c 'unsmoothed 'smoothed 'aligned)]{ + (or/c 'unsmoothed 'smoothed 'aligned)]{ Returns the current smoothing mode. See @method[dc<%> set-smoothing]. @@ -736,7 +736,7 @@ set-text-foreground]. @defmethod[(get-text-mode) - (one-of/c 'solid 'transparent)]{ + (or/c 'solid 'transparent)]{ Reports how text is drawn; see @method[dc<%> set-text-mode].} @@ -850,18 +850,18 @@ treated as white. @defmethod*[([(set-brush [brush (is-a?/c brush%)]) void?] [(set-brush [color (is-a?/c color%)] - [style (one-of/c 'transparent 'solid 'opaque - 'xor 'hilite 'panel - 'bdiagonal-hatch 'crossdiag-hatch - 'fdiagonal-hatch 'cross-hatch - 'horizontal-hatch 'vertical-hatch)]) + [style (or/c 'transparent 'solid 'opaque + 'xor 'hilite 'panel + 'bdiagonal-hatch 'crossdiag-hatch + 'fdiagonal-hatch 'cross-hatch + 'horizontal-hatch 'vertical-hatch)]) void?] [(set-brush [color-name string?] - [style (one-of/c 'transparent 'solid 'opaque - 'xor 'hilite 'panel - 'bdiagonal-hatch 'crossdiag-hatch - 'fdiagonal-hatch 'cross-hatch - 'horizontal-hatch 'vertical-hatch)]) + [style (or/c 'transparent 'solid 'opaque + 'xor 'hilite 'panel + 'bdiagonal-hatch 'crossdiag-hatch + 'fdiagonal-hatch 'cross-hatch + 'horizontal-hatch 'vertical-hatch)]) void?])]{ Sets the current brush for drawing in this object. While a brush is @@ -947,17 +947,17 @@ See also @method[dc<%> translate], which adds a translation to the void?] [(set-pen [color (is-a?/c color%)] [width (real-in 0 255)] - [style (one-of/c 'transparent 'solid 'xor 'hilite - 'dot 'long-dash 'short-dash 'dot-dash - 'xor-dot 'xor-long-dash 'xor-short-dash - 'xor-dot-dash)]) + [style (or/c 'transparent 'solid 'xor 'hilite + 'dot 'long-dash 'short-dash 'dot-dash + 'xor-dot 'xor-long-dash 'xor-short-dash + 'xor-dot-dash)]) void?] [(set-pen [color-name string?] [width (real-in 0 255)] - [style (one-of/c 'transparent 'solid 'xor 'hilite - 'dot 'long-dash 'short-dash 'dot-dash - 'xor-dot 'xor-long-dash 'xor-short-dash - 'xor-dot-dash)]) + [style (or/c 'transparent 'solid 'xor 'hilite + 'dot 'long-dash 'short-dash 'dot-dash + 'xor-dot 'xor-long-dash 'xor-short-dash + 'xor-dot-dash)]) void?])]{ Sets the current pen for this object. When a color, width, and style @@ -1001,7 +1001,7 @@ See also @method[dc<%> scale], which adds a scale to the current } -@defmethod[(set-smoothing [mode (one-of/c 'unsmoothed 'smoothed 'aligned)]) +@defmethod[(set-smoothing [mode (or/c 'unsmoothed 'smoothed 'aligned)]) void?]{ Enables or disables anti-aliased smoothing for drawing. (Text @@ -1061,7 +1061,7 @@ For monochrome drawing, all non-black colors are treated as } -@defmethod[(set-text-mode [mode (one-of/c 'solid 'transparent)]) +@defmethod[(set-text-mode [mode (or/c 'solid 'transparent)]) void?]{ Determines how text is drawn: diff --git a/collects/scribblings/draw/draw-funcs.scrbl b/collects/scribblings/draw/draw-funcs.scrbl index 7e8fa398b0..e1b7fcc6e9 100644 --- a/collects/scribblings/draw/draw-funcs.scrbl +++ b/collects/scribblings/draw/draw-funcs.scrbl @@ -98,7 +98,7 @@ on Windows and Mac OS X. See @secref["Portability"] for more information.} 'xbm 'xbm/alpha 'xpm 'xpm/alpha 'bmp 'bmp/alpha) 'unknown/alpha] - [bg-color (or/c (is-a?/c color%) false/c) #f] + [bg-color (or/c (is-a?/c color%) #f) #f] [complain-on-failure? any/c #t]) (is-a?/c bitmap%)]{ diff --git a/collects/scribblings/draw/font-class.scrbl b/collects/scribblings/draw/font-class.scrbl index f5e43fdb2e..6927106309 100644 --- a/collects/scribblings/draw/font-class.scrbl +++ b/collects/scribblings/draw/font-class.scrbl @@ -135,7 +135,7 @@ See also @racket[make-font]. } @defmethod[(get-face) - (or/c string? false/c)]{ + (or/c string? #f)]{ Gets the font's face name, or @racket[#f] if none is specified. diff --git a/collects/scribblings/draw/font-list-class.scrbl b/collects/scribblings/draw/font-list-class.scrbl index 944a225648..4c8e4be202 100644 --- a/collects/scribblings/draw/font-list-class.scrbl +++ b/collects/scribblings/draw/font-list-class.scrbl @@ -16,23 +16,23 @@ Creates an empty font list. } @defmethod*[([(find-or-create-font [size (integer-in 1 255)] - [family (one-of/c 'default 'decorative 'roman 'script - 'swiss 'modern 'symbol 'system)] - [style (one-of/c 'normal 'italic 'slant)] - [weight (one-of/c 'normal 'bold 'light)] + [family (or/c 'default 'decorative 'roman 'script + 'swiss 'modern 'symbol 'system)] + [style (or/c 'normal 'italic 'slant)] + [weight (or/c 'normal 'bold 'light)] [underline? any/c #f] - [smoothing (one-of/c 'default 'partly-smoothed 'smoothed 'unsmoothed) 'default] + [smoothing (or/c 'default 'partly-smoothed 'smoothed 'unsmoothed) 'default] [size-in-pixels? any/c #f] [hinting (or/c 'aligned 'unaligned) 'aligned]) (is-a?/c font%)] [(find-or-create-font [size (integer-in 1 255)] [face string?] - [family (one-of/c 'default 'decorative 'roman 'script - 'swiss 'modern 'symbol 'system)] - [style (one-of/c 'normal 'italic 'slant)] - [weight (one-of/c 'normal 'bold 'light)] + [family (or/c 'default 'decorative 'roman 'script + 'swiss 'modern 'symbol 'system)] + [style (or/c 'normal 'italic 'slant)] + [weight (or/c 'normal 'bold 'light)] [underline any/c #f] - [smoothing (one-of/c 'default 'partly-smoothed 'smoothed 'unsmoothed) 'default] + [smoothing (or/c 'default 'partly-smoothed 'smoothed 'unsmoothed) 'default] [size-in-pixels? any/c #f] [hinting (or/c 'aligned 'unaligned) 'aligned]) (is-a?/c font%)])]{ diff --git a/collects/scribblings/draw/font-name-directory-intf.scrbl b/collects/scribblings/draw/font-name-directory-intf.scrbl index 3c720855fa..1d9ea80a10 100644 --- a/collects/scribblings/draw/font-name-directory-intf.scrbl +++ b/collects/scribblings/draw/font-name-directory-intf.scrbl @@ -42,8 +42,8 @@ Currently, on all platforms, a face string is interpreted as a by a non-@racket['normal] value for a given @racket[font%]'s style or weight, respectively. -@defmethod[(find-family-default-font-id [family (one-of/c 'default 'decorative 'roman 'script - 'swiss 'modern 'symbol 'system)]) +@defmethod[(find-family-default-font-id [family (or/c 'default 'decorative 'roman 'script + 'swiss 'modern 'symbol 'system)]) exact-integer?]{ Gets the font ID representing the default font for a family. See @@ -52,8 +52,8 @@ Gets the font ID representing the default font for a family. See } @defmethod[(find-or-create-font-id [name string?] - [family (one-of/c 'default 'decorative 'roman 'script - 'swiss 'modern 'symbol 'system)]) + [family (or/c 'default 'decorative 'roman 'script + 'swiss 'modern 'symbol 'system)]) exact-integer?]{ Gets the face name for a font ID, initializing the mapping for @@ -65,7 +65,7 @@ Font ID are useful only as mapping indices for } @defmethod[(get-face-name [font-id exact-integer?]) - (or/c string? false/c)]{ + (or/c string? #f)]{ Gets the face name for a font ID. If the font ID corresponds to the default font for a particular family, @racket[#f] is returned. @@ -73,8 +73,8 @@ Gets the face name for a font ID. If the font ID corresponds to } @defmethod[(get-family [font-id exact-integer?]) - (one-of/c 'default 'decorative 'roman 'script - 'swiss 'modern 'symbol 'system)]{ + (or/c 'default 'decorative 'roman 'script + 'swiss 'modern 'symbol 'system)]{ Gets the family for a font ID. See @racket[font%] for information about font families. @@ -82,8 +82,8 @@ Gets the family for a font ID. See } @defmethod[(get-font-id [name string?] - [family (one-of/c 'default 'decorative 'roman 'script - 'swiss 'modern 'symbol 'system)]) + [family (or/c 'default 'decorative 'roman 'script + 'swiss 'modern 'symbol 'system)]) exact-integer?]{ Gets the font ID for a face name paired with a default family. If the @@ -97,9 +97,9 @@ Font ID are useful only as mapping indices for } @defmethod[(get-post-script-name [font-id exact-integer?] - [weight (one-of/c 'normal 'bold 'light)] - [style (one-of/c 'normal 'italic 'slant)]) - (or/c string? false/c)]{ + [weight (or/c 'normal 'bold 'light)] + [style (or/c 'normal 'italic 'slant)]) + (or/c string? #f)]{ Gets a PostScript font description for a font ID, weight, and style combination. @@ -110,9 +110,9 @@ See @racket[font%] for information about @racket[weight] and } @defmethod[(get-screen-name [font-id exact-integer?] - [weight (one-of/c 'normal 'bold 'light)] - [style (one-of/c 'normal 'italic 'slant)]) - (or/c string? false/c)]{ + [weight (or/c 'normal 'bold 'light)] + [style (or/c 'normal 'italic 'slant)]) + (or/c string? #f)]{ Gets a platform-dependent screen font description (used for drawing to a canvas's @racket[dc<%>], a @racket[bitmap-dc%], or a @@ -124,8 +124,8 @@ See @racket[font%] for information about @racket[weight] and } @defmethod[(set-post-script-name [font-id exact-integer?] - [weight (one-of/c 'normal 'bold 'light)] - [style (one-of/c 'normal 'italic 'slant)] + [weight (or/c 'normal 'bold 'light)] + [style (or/c 'normal 'italic 'slant)] [name string?]) void?]{ @@ -138,8 +138,8 @@ See @racket[font%] for information about @racket[weight] and @racket[style]. } @defmethod[(set-screen-name [font-id exact-integer?] - [weight (one-of/c 'normal 'bold 'light)] - [style (one-of/c 'normal 'italic 'slant)] + [weight (or/c 'normal 'bold 'light)] + [style (or/c 'normal 'italic 'slant)] [name string?]) void?]{ diff --git a/collects/scribblings/draw/pdf-dc-class.scrbl b/collects/scribblings/draw/pdf-dc-class.scrbl index 7dfabf8bd8..64cd010a92 100644 --- a/collects/scribblings/draw/pdf-dc-class.scrbl +++ b/collects/scribblings/draw/pdf-dc-class.scrbl @@ -7,7 +7,7 @@ Like @racket[post-script-dc%], but generates a PDF file instead of a PostScript file. @defconstructor[([interactive any/c #t] - [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) false/c) #f] + [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) #f] [use-paper-bbox any/c #f] [as-eps any/c #t] [width (or/c (and/c real? (not/c negative?)) #f) #f] diff --git a/collects/scribblings/draw/pen-class.scrbl b/collects/scribblings/draw/pen-class.scrbl index 4d866d9b73..dacf50a258 100644 --- a/collects/scribblings/draw/pen-class.scrbl +++ b/collects/scribblings/draw/pen-class.scrbl @@ -68,14 +68,14 @@ When drawing in @racket['smoothed] or @racket['aligned] mode, a pen's @defconstructor[([color (or/c string? (is-a?/c color%)) "black"] [width (real-in 0 255) 0] - [style (one-of/c 'transparent 'solid 'xor 'hilite - 'dot 'long-dash 'short-dash 'dot-dash - 'xor-dot 'xor-long-dash 'xor-short-dash - 'xor-dot-dash) + [style (or/c 'transparent 'solid 'xor 'hilite + 'dot 'long-dash 'short-dash 'dot-dash + 'xor-dot 'xor-long-dash 'xor-short-dash + 'xor-dot-dash) 'solid] - [cap (one-of/c 'round 'projecting 'butt) + [cap (or/c 'round 'projecting 'butt) 'round] - [join (one-of/c 'round 'bevel 'miter) + [join (or/c 'round 'bevel 'miter) 'round] [stipple (or/c #f (is-a?/c bitmap%)) #f])]{ @@ -88,7 +88,7 @@ Creates a pen with the given color, width, @tech{pen style}, @tech{cap style}, @ } @defmethod[(get-cap) - (one-of/c 'round 'projecting 'butt)]{ + (or/c 'round 'projecting 'butt)]{ Returns the pen @deftech{cap style}, which determines the shape of a line at each of its ending points when drawn by @method[dc<%> draw-line] or at the @@ -138,7 +138,7 @@ Returns the pen's color object. } @defmethod[(get-join) - (one-of/c 'round 'bevel 'miter)]{ + (or/c 'round 'bevel 'miter)]{ Returns the pen @deftech{join style} that is used between multiple lines connected through @method[dc<%> draw-lines], @method[dc<%> @@ -203,10 +203,10 @@ Gets the current @tech{pen stipple} bitmap, or returns @racket[#f] if no stipple } @defmethod[(get-style) - (one-of/c 'transparent 'solid 'xor 'hilite - 'dot 'long-dash 'short-dash 'dot-dash - 'xor-dot 'xor-long-dash 'xor-short-dash - 'xor-dot-dash)]{ + (or/c 'transparent 'solid 'xor 'hilite + 'dot 'long-dash 'short-dash 'dot-dash + 'xor-dot 'xor-long-dash 'xor-short-dash + 'xor-dot-dash)]{ Returns the @tech{pen style}. See @racket[pen%] for information about possible styles. @@ -220,7 +220,7 @@ Returns the pen width. } -@defmethod[(set-cap [cap-style (one-of/c 'round 'projecting 'butt)]) +@defmethod[(set-cap [cap-style (or/c 'round 'projecting 'butt)]) void?]{ Sets the pen @tech{cap style}. See @method[pen% get-cap] for information about cap @@ -247,7 +247,7 @@ A pen cannot be modified if it was obtained from a } -@defmethod[(set-join [join-style (one-of/c 'round 'bevel 'miter)]) +@defmethod[(set-join [join-style (or/c 'round 'bevel 'miter)]) void?]{ Sets the pen @tech{join style}. See @method[pen% get-join] for information about join @@ -270,10 +270,10 @@ If @racket[bitmap] is modified while is associated with a pen, the } -@defmethod[(set-style [style (one-of/c 'transparent 'solid 'xor 'hilite - 'dot 'long-dash 'short-dash 'dot-dash - 'xor-dot 'xor-long-dash 'xor-short-dash - 'xor-dot-dash)]) +@defmethod[(set-style [style (or/c 'transparent 'solid 'xor 'hilite + 'dot 'long-dash 'short-dash 'dot-dash + 'xor-dot 'xor-long-dash 'xor-short-dash + 'xor-dot-dash)]) void?]{ Sets the @tech{pen style}. See @racket[pen%] for information about the diff --git a/collects/scribblings/draw/pen-list-class.scrbl b/collects/scribblings/draw/pen-list-class.scrbl index 2b32994fcd..a8900b5c79 100644 --- a/collects/scribblings/draw/pen-list-class.scrbl +++ b/collects/scribblings/draw/pen-list-class.scrbl @@ -19,22 +19,22 @@ Creates an empty pen list. @defmethod*[([(find-or-create-pen [color (is-a?/c color%)] [width (real-in 0 255)] - [style (one-of/c 'transparent 'solid 'xor 'hilite - 'dot 'long-dash 'short-dash 'dot-dash - 'xor-dot 'xor-long-dash 'xor-short-dash - 'xor-dot-dash)] - [cap (one-of/c 'round 'projecting 'butt) 'round] - [join (one-of/c 'round 'bevel 'miter) 'round]) + [style (or/c 'transparent 'solid 'xor 'hilite + 'dot 'long-dash 'short-dash 'dot-dash + 'xor-dot 'xor-long-dash 'xor-short-dash + 'xor-dot-dash)] + [cap (or/c 'round 'projecting 'butt) 'round] + [join (or/c 'round 'bevel 'miter) 'round]) (is-a?/c pen%)] [(find-or-create-pen [color-name string?] [width (real-in 0 255)] - [style (one-of/c 'transparent 'solid 'xor 'hilite - 'dot 'long-dash 'short-dash 'dot-dash - 'xor-dot 'xor-long-dash 'xor-short-dash - 'xor-dot-dash)] - [cap (one-of/c 'round 'projecting 'butt) 'round] - [join (one-of/c 'round 'bevel 'miter) 'round]) - (or/c (is-a?/c pen%) false/c)])]{ + [style (or/c 'transparent 'solid 'xor 'hilite + 'dot 'long-dash 'short-dash 'dot-dash + 'xor-dot 'xor-long-dash 'xor-short-dash + 'xor-dot-dash)] + [cap (or/c 'round 'projecting 'butt) 'round] + [join (or/c 'round 'bevel 'miter) 'round]) + (or/c (is-a?/c pen%) #f)])]{ Finds a pen of the given specification, or creates one and adds it to the list. The arguments are the same as for creating a @racket[pen%] diff --git a/collects/scribblings/draw/post-script-dc-class.scrbl b/collects/scribblings/draw/post-script-dc-class.scrbl index 12e03ef5a8..666fa97a1c 100644 --- a/collects/scribblings/draw/post-script-dc-class.scrbl +++ b/collects/scribblings/draw/post-script-dc-class.scrbl @@ -13,7 +13,7 @@ See also @racket[printer-dc%]. @defconstructor[([interactive any/c #t] - [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) false/c) #f] + [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) #f] [use-paper-bbox any/c #f] [as-eps any/c #t] [width (or/c (and/c real? (not/c negative?)) #f) #f] diff --git a/collects/scribblings/draw/ps-setup-class.scrbl b/collects/scribblings/draw/ps-setup-class.scrbl index 4d0cf3cbb1..0d0df98873 100644 --- a/collects/scribblings/draw/ps-setup-class.scrbl +++ b/collects/scribblings/draw/ps-setup-class.scrbl @@ -51,7 +51,7 @@ Returns the current settings for horizontal and vertical margins when } @defmethod[(get-file) - (or/c path-string? false/c)]{ + (or/c path-string? #f)]{ Gets the PostScript output filename. A @racket[#f] value (the default) indicates that the user should be prompted for a filename when a @@ -82,7 +82,7 @@ Returns the current settings for horizontal and vertical PostScript } @defmethod[(get-mode) - (one-of/c 'preview 'file 'printer)]{ + (or/c 'preview 'file 'printer)]{ Gets the printing mode that determines where output is sent: @racket['preview], @racket['file], or @racket['printer]. The default @@ -92,7 +92,7 @@ Gets the printing mode that determines where output is sent: } @defmethod[(get-orientation) - (one-of/c 'portrait 'landscape)]{ + (or/c 'portrait 'landscape)]{ Gets the orientation: @racket['portrait] or @racket['landscape]. The default is @racket['portrait]. Unlike most other settings, this one @@ -185,7 +185,7 @@ Sets the horizontal and vertical margins used when printing an editor } -@defmethod[(set-file [filename (or/c path-string? false/c)]) +@defmethod[(set-file [filename (or/c path-string? #f)]) void?]{ Sets the PostScript output filename. See @@ -222,7 +222,7 @@ The margins are in unscaled @racket[post-script-dc%] units, which } -@defmethod[(set-mode [mode (one-of/c 'preview 'file 'printer)]) +@defmethod[(set-mode [mode (or/c 'preview 'file 'printer)]) void?]{ Sets the printing mode controlling where output is sent. See @@ -233,7 +233,7 @@ On Windows and Mac OS X, if @racket['preview] or @racket['printer] } -@defmethod[(set-orientation [orientation (one-of/c 'portrait 'landscape)]) +@defmethod[(set-orientation [orientation (or/c 'portrait 'landscape)]) void?]{ Sets the orientation. See @method[ps-setup% get-orientation]. diff --git a/collects/scribblings/draw/region-class.scrbl b/collects/scribblings/draw/region-class.scrbl index 48b3f44d89..f62824b048 100644 --- a/collects/scribblings/draw/region-class.scrbl +++ b/collects/scribblings/draw/region-class.scrbl @@ -137,7 +137,7 @@ The region corresponds to a clockwise path with a @tech{flexible @defmethod[(set-path [path (is-a?/c dc-path%)] [xoffset real? 0] [yoffset real? 0] - [fill-style (one-of/c 'odd-even 'winding) 'odd-even]) + [fill-style (or/c 'odd-even 'winding) 'odd-even]) void?]{ Sets the region to the content of the given path. @@ -156,7 +156,7 @@ The fill style affects how well the region reliably combines with (listof (cons/c real? real?)))] [xoffset real? 0] [yoffset real? 0] - [fill-style (one-of/c 'odd-even 'winding) 'odd-even]) + [fill-style (or/c 'odd-even 'winding) 'odd-even]) void?]{ Sets the region to the interior of the polygon specified by diff --git a/collects/scribblings/gui/area-intf.scrbl b/collects/scribblings/gui/area-intf.scrbl index d06de46a1e..f52e5321f9 100644 --- a/collects/scribblings/gui/area-intf.scrbl +++ b/collects/scribblings/gui/area-intf.scrbl @@ -39,7 +39,7 @@ See @|geomdiscuss| for more information. Note that the return value } @defmethod[(get-parent) - (or/c (is-a?/c area-container<%>) false/c)]{ + (or/c (is-a?/c area-container<%>) #f)]{ Returns the area's parent. A top-level window may have no parent (in which case @racket[#f] is returned), or it may have another top-level diff --git a/collects/scribblings/gui/button-class.scrbl b/collects/scribblings/gui/button-class.scrbl index 25369ef6a4..7c7b4c0a39 100644 --- a/collects/scribblings/gui/button-class.scrbl +++ b/collects/scribblings/gui/button-class.scrbl @@ -11,11 +11,11 @@ Whenever a button is clicked by the user, the button's callback (is-a?/c bitmap%) (list/c (is-a?/c bitmap%) label-string? - (one-of/c 'left 'top 'right 'bottom)))] + (or/c 'left 'top 'right 'bottom)))] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] [callback ((is-a?/c button%) (is-a?/c control-event%) . -> . any) (lambda (b e) (void))] - [style (listof (one-of/c 'border 'deleted)) null] + [style (listof (or/c 'border 'deleted)) null] [font (is-a?/c font%) normal-control-font] [enabled any/c #t] [vert-margin (integer-in 0 1000) 2] diff --git a/collects/scribblings/gui/canvas-class.scrbl b/collects/scribblings/gui/canvas-class.scrbl index fd40a95a41..a03106de0e 100644 --- a/collects/scribblings/gui/canvas-class.scrbl +++ b/collects/scribblings/gui/canvas-class.scrbl @@ -10,13 +10,13 @@ A @racket[canvas%] object is a general-purpose window for drawing and @defconstructor[([parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [style (listof (one-of/c 'border 'control-border 'combo - 'vscroll 'hscroll 'resize-corner - 'gl 'no-autoclear 'transparent - 'no-focus 'deleted)) null] + [style (listof (or/c 'border 'control-border 'combo + 'vscroll 'hscroll 'resize-corner + 'gl 'no-autoclear 'transparent + 'no-focus 'deleted)) null] [paint-callback ((is-a?/c canvas%) (is-a?/c dc<%>) . -> . any) void] - [label (or/c label-string? false/c) #f] - [gl-config (or/c (is-a?/c gl-config%) false/c) #f] + [label (or/c label-string? #f) #f] + [gl-config (or/c (is-a?/c gl-config%) #f) #f] [enabled any/c #t] [vert-margin (integer-in 0 1000) 0] [horiz-margin (integer-in 0 1000) 0] @@ -100,7 +100,7 @@ The @racket[gl-config] argument determines properties of an OpenGL } -@defmethod[(get-scroll-page [which (one-of/c 'horizontal 'vertical)]) +@defmethod[(get-scroll-page [which (or/c 'horizontal 'vertical)]) (integer-in 1 1000000)]{ Get the current page step size of a manual scrollbar. The result is @@ -115,7 +115,7 @@ See also } -@defmethod[(get-scroll-pos [which (one-of/c 'horizontal 'vertical)]) +@defmethod[(get-scroll-pos [which (or/c 'horizontal 'vertical)]) (integer-in 0 1000000)]{ Gets the current value of a manual scrollbar. The result is always @@ -130,7 +130,7 @@ See also } -@defmethod[(get-scroll-range [which (one-of/c 'horizontal 'vertical)]) +@defmethod[(get-scroll-range [which (or/c 'horizontal 'vertical)]) (integer-in 0 1000000)]{ Gets the current maximum value of a manual scrollbar. The result is @@ -173,8 +173,8 @@ Gets the size in device units of the scrollable canvas area (as } -@defmethod[(init-auto-scrollbars [horiz-pixels (or/c (integer-in 1 1000000) false/c)] - [vert-pixels (or/c (integer-in 1 1000000) false/c)] +@defmethod[(init-auto-scrollbars [horiz-pixels (or/c (integer-in 1 1000000) #f)] + [vert-pixels (or/c (integer-in 1 1000000) #f)] [h-value (real-in 0.0 1.0)] [v-value (real-in 0.0 1.0)]) void?]{ @@ -218,8 +218,8 @@ See also } -@defmethod[(init-manual-scrollbars [h-length (or/c (integer-in 0 1000000) false/c)] - [v-length (or/c (integer-in 0 1000000) false/c)] +@defmethod[(init-manual-scrollbars [h-length (or/c (integer-in 0 1000000) #f)] + [v-length (or/c (integer-in 0 1000000) #f)] [h-page (integer-in 1 1000000)] [v-page (integer-in 1 1000000)] [h-value (integer-in 0 1000000)] @@ -312,8 +312,8 @@ flushing is enabled, and if @racket[flush?] is true, then @method[canvas<%> flush] is called immediately.} -@defmethod[(scroll [h-value (or/c (real-in 0.0 1.0) false/c)] - [v-value (or/c (real-in 0.0 1.0) false/c)]) +@defmethod[(scroll [h-value (or/c (real-in 0.0 1.0) #f)] + [v-value (or/c (real-in 0.0 1.0) #f)]) void?]{ Sets the values of automatic scrollbars. (This method has no effect on @@ -337,7 +337,7 @@ See also } -@defmethod[(set-scroll-page [which (one-of/c 'horizontal 'vertical)] +@defmethod[(set-scroll-page [which (or/c 'horizontal 'vertical)] [value (integer-in 1 1000000)]) void?]{ @@ -354,7 +354,7 @@ See also } -@defmethod[(set-scroll-pos [which (one-of/c 'horizontal 'vertical)] +@defmethod[(set-scroll-pos [which (or/c 'horizontal 'vertical)] [value (integer-in 0 1000000)]) void?]{ @@ -374,7 +374,7 @@ See also } -@defmethod[(set-scroll-range [which (one-of/c 'horizontal 'vertical)] +@defmethod[(set-scroll-range [which (or/c 'horizontal 'vertical)] [value (integer-in 0 1000000)]) void?]{ diff --git a/collects/scribblings/gui/canvas-intf.scrbl b/collects/scribblings/gui/canvas-intf.scrbl index fdd326f852..866d027211 100644 --- a/collects/scribblings/gui/canvas-intf.scrbl +++ b/collects/scribblings/gui/canvas-intf.scrbl @@ -118,7 +118,7 @@ Like @racket[flush-display], but constrained if possible to the canvas.} @defmethod[(get-canvas-background) - (or/c (is-a?/c color%) false/c)]{ + (or/c (is-a?/c color%) #f)]{ Returns the color currently used to ``erase'' the canvas content before @method[canvas<%> on-paint] is called. See also @method[canvas<%> set-canvas-background]. diff --git a/collects/scribblings/gui/check-box-class.scrbl b/collects/scribblings/gui/check-box-class.scrbl index 8f9f93aa99..620d8f92a7 100644 --- a/collects/scribblings/gui/check-box-class.scrbl +++ b/collects/scribblings/gui/check-box-class.scrbl @@ -16,8 +16,9 @@ Whenever a check box is clicked by the user, the check box's value is @defconstructor[([label (or/c label-string? (is-a?/c bitmap%))] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [callback ((is-a?/c check-box%) (is-a?/c control-event%) . -> . any) (lambda (c e) (void))] - [style (listof (one-of/c 'deleted)) null] + [callback ((is-a?/c check-box%) (is-a?/c control-event%) + . -> . any) (lambda (c e) (void))] + [style (listof (or/c 'deleted)) null] [value any/c #f] [font (is-a?/c font%) normal-control-font] [enabled any/c #t] diff --git a/collects/scribblings/gui/checkable-menu-item-class.scrbl b/collects/scribblings/gui/checkable-menu-item-class.scrbl index c5c095a330..f69f36654c 100644 --- a/collects/scribblings/gui/checkable-menu-item-class.scrbl +++ b/collects/scribblings/gui/checkable-menu-item-class.scrbl @@ -11,15 +11,16 @@ A @racket[checkable-menu-item%] is a string-labelled menu item that @defconstructor[([label label-string?] [parent (or/c (is-a?/c menu%) (is-a?/c popup-menu%))] - [callback ((is-a?/c checkable-menu-item%) (is-a?/c control-event%) . -> . any) + [callback ((is-a?/c checkable-menu-item%) (is-a?/c control-event%) + . -> . any) (lambda (i e) (void))] - [shortcut (or/c char? symbol? false/c) #f] - [help-string (or/c label-string? false/c) #f] + [shortcut (or/c char? symbol? #f) #f] + [help-string (or/c label-string? #f) #f] [demand-callback ((is-a?/c menu-item%) . -> . any) (lambda (i) (void))] [checked any/c #f] - [shortcut-prefix (listof (one-of/c 'alt 'cmd 'meta 'ctl - 'shift 'option)) + [shortcut-prefix (listof (or/c 'alt 'cmd 'meta 'ctl + 'shift 'option)) (get-default-shortcut-prefix)])]{ Creates a new menu item in @racket[parent]. The item is initially diff --git a/collects/scribblings/gui/choice-class.scrbl b/collects/scribblings/gui/choice-class.scrbl index 34cbedddc8..5042809f7c 100644 --- a/collects/scribblings/gui/choice-class.scrbl +++ b/collects/scribblings/gui/choice-class.scrbl @@ -15,14 +15,14 @@ Whenever the selection of a choice item is changed by the user, the See also @racket[list-box%]. -@defconstructor[([label (or/c label-string? false/c)] +@defconstructor[([label (or/c label-string? #f)] [choices (listof label-string?)] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] [callback ((is-a?/c choice%) (is-a?/c control-event%) . -> . any) (lambda (c e) (void))] - [style (listof (one-of/c 'horizontal-label 'vertical-label - 'deleted)) + [style (listof (or/c 'horizontal-label 'vertical-label + 'deleted)) null] [selection exact-nonnegative-integer? 0] [font (is-a?/c font%) normal-control-font] diff --git a/collects/scribblings/gui/clipboard-client-class.scrbl b/collects/scribblings/gui/clipboard-client-class.scrbl index 2a6c438f43..cec10dff86 100644 --- a/collects/scribblings/gui/clipboard-client-class.scrbl +++ b/collects/scribblings/gui/clipboard-client-class.scrbl @@ -33,7 +33,7 @@ The @racket[format] string is typically four capital letters. (On } @defmethod[(get-data [format string?]) - (or/c bytes? string? false/c)]{ + (or/c bytes? string? #f)]{ Called when a process requests clipboard data while this client is the current one for the clipboard. The requested format is passed to the diff --git a/collects/scribblings/gui/column-control-event-class.scrbl b/collects/scribblings/gui/column-control-event-class.scrbl index 05124afbef..fd6a53676d 100644 --- a/collects/scribblings/gui/column-control-event-class.scrbl +++ b/collects/scribblings/gui/column-control-event-class.scrbl @@ -7,7 +7,7 @@ A @racket[column-control-event%] object contains information about a event on an @racket[list-box%] column header. @defconstructor[([column exact-nonnegative-integer?] - [event-type (one-of/c 'list-box-column)] + [event-type (or/c 'list-box-column)] [time-stamp exact-integer? 0])]{ The @racket[column] argument indicates the column that was clicked. diff --git a/collects/scribblings/gui/combo-field-class.scrbl b/collects/scribblings/gui/combo-field-class.scrbl index 2285ad410c..e092ab4d8f 100644 --- a/collects/scribblings/gui/combo-field-class.scrbl +++ b/collects/scribblings/gui/combo-field-class.scrbl @@ -12,15 +12,16 @@ A @racket[combo-field%] object is a @racket[text-field%] -@defconstructor[([label (or/c label-string? false/c)] +@defconstructor[([label (or/c label-string? #f)] [choices (listof label-string?)] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [callback ((is-a?/c combo-field%) (is-a?/c control-event%) . -> . any) + [callback ((is-a?/c combo-field%) (is-a?/c control-event%) + . -> . any) (lambda (c e) (void))] [init-value string ""] - [style (listof (one-of/c 'horizontal-label 'vertical-label - 'deleted)) + [style (listof (or/c 'horizontal-label 'vertical-label + 'deleted)) null] [font (is-a?/c font%) normal-control-font] [enabled any/c #t] diff --git a/collects/scribblings/gui/control-event-class.scrbl b/collects/scribblings/gui/control-event-class.scrbl index 5394c81058..1f602fe4ab 100644 --- a/collects/scribblings/gui/control-event-class.scrbl +++ b/collects/scribblings/gui/control-event-class.scrbl @@ -7,11 +7,11 @@ A @racket[control-event%] object contains information about a control event. An instance of @racket[control-event%] is always provided to a control or menu item callback procedure. -@defconstructor[([event-type (one-of/c 'button 'check-box 'choice - 'list-box 'list-box-dclick 'list-box-column - 'text-field 'text-field-enter - 'menu 'slider 'radio-box 'tab-panel - 'menu-popdown 'menu-popdown-none)] +@defconstructor[([event-type (or/c 'button 'check-box 'choice + 'list-box 'list-box-dclick 'list-box-column + 'text-field 'text-field-enter + 'menu 'slider 'radio-box 'tab-panel + 'menu-popdown 'menu-popdown-none)] [time-stamp exact-integer? 0])]{ The @racket[event-type] argument is one of the following: @@ -43,20 +43,20 @@ See @method[event% get-time-stamp] for information about } @defmethod[(get-event-type) - (one-of/c 'button 'check-box 'choice - 'list-box 'list-box-dclick 'text-field - 'text-field-enter 'menu 'slider 'radio-box - 'menu-popdown 'menu-popdown-none 'tab-panel)]{ + (or/c 'button 'check-box 'choice + 'list-box 'list-box-dclick 'text-field + 'text-field-enter 'menu 'slider 'radio-box + 'menu-popdown 'menu-popdown-none 'tab-panel)]{ Returns the type of the control event. See @racket[control-event%] for information about each event type symbol. } @defmethod[(set-event-type - [type (one-of/c 'button 'check-box 'choice - 'list-box 'list-box-dclick 'text-field - 'text-field-enter 'menu 'slider 'radio-box - 'menu-popdown 'menu-popdown-none 'tab-panel)]) + [type (or/c 'button 'check-box 'choice + 'list-box 'list-box-dclick 'text-field + 'text-field-enter 'menu 'slider 'radio-box + 'menu-popdown 'menu-popdown-none 'tab-panel)]) void?]{ Sets the type of the event. See diff --git a/collects/scribblings/gui/cursor-class.scrbl b/collects/scribblings/gui/cursor-class.scrbl index 70785e12fd..fd62c65ad2 100644 --- a/collects/scribblings/gui/cursor-class.scrbl +++ b/collects/scribblings/gui/cursor-class.scrbl @@ -18,8 +18,8 @@ A cursor is assigned to each window (or the window may use its [mask (is-a?/c bitmap%)] [hot-spot-x (integer-in 0 15) 0] [hot-spot-y (integer-in 0 15) 0]) - ([id (one-of/c 'arrow 'bullseye 'cross 'hand 'ibeam 'watch 'blank - 'size-n/s 'size-e/w 'size-ne/sw 'size-nw/se)]))]{ + ([id (or/c 'arrow 'bullseye 'cross 'hand 'ibeam 'watch 'blank + 'size-n/s 'size-e/w 'size-ne/sw 'size-nw/se)]))]{ The first case creates a cursor using an image bitmap and a mask bitmap. Both bitmaps must have depth 1 and size 16 by 16 diff --git a/collects/scribblings/gui/dialog-class.scrbl b/collects/scribblings/gui/dialog-class.scrbl index cd6c362bee..eb9483ba54 100644 --- a/collects/scribblings/gui/dialog-class.scrbl +++ b/collects/scribblings/gui/dialog-class.scrbl @@ -8,19 +8,19 @@ A dialog is a top-level window that is @defterm{modal}: while the all other top-level windows in the dialog's eventspace. @defconstructor[([label label-string?] - [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) false/c) #f] - [width (or/c (integer-in 0 10000) false/c) #f] - [height (or/c (integer-in 0 10000) false/c) #f] - [x (or/c (integer-in 0 10000) false/c) #f] - [y (or/c (integer-in 0 10000) false/c) #f] - [style (listof (one-of/c 'no-caption 'resize-border - 'no-sheet 'close-button)) + [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) #f] + [width (or/c (integer-in 0 10000) #f) #f] + [height (or/c (integer-in 0 10000) #f) #f] + [x (or/c (integer-in 0 10000) #f) #f] + [y (or/c (integer-in 0 10000) #f) #f] + [style (listof (or/c 'no-caption 'resize-border + 'no-sheet 'close-button)) null] [enabled any/c #t] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(center top)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] diff --git a/collects/scribblings/gui/editor-admin-class.scrbl b/collects/scribblings/gui/editor-admin-class.scrbl index 09459c2c36..2b671f1158 100644 --- a/collects/scribblings/gui/editor-admin-class.scrbl +++ b/collects/scribblings/gui/editor-admin-class.scrbl @@ -23,9 +23,9 @@ Creates a (useless) editor administrator. } -@defmethod[(get-dc [x (or/c (box/c real?) false/c) #f] - [y (or/c (box/c real?) false/c) #f]) - (or/c (is-a?/c dc<%>) false/c)]{ +@defmethod[(get-dc [x (or/c (box/c real?) #f) #f] + [y (or/c (box/c real?) #f) #f]) + (or/c (is-a?/c dc<%>) #f)]{ @methspec{ Returns either the drawing context into which the editor is displayed, @@ -52,10 +52,10 @@ Fills all boxes with @racket[0.0] and returns @racket[#f]. }} -@defmethod[(get-max-view [x (or/c (box/c real?) false/c)] - [y (or/c (box/c real?) false/c)] - [w (or/c (box/c (and/c real? (not/c negative?))) false/c)] - [h (or/c (box/c (and/c real? (not/c negative?))) false/c)] +@defmethod[(get-max-view [x (or/c (box/c real?) #f)] + [y (or/c (box/c real?) #f)] + [w (or/c (box/c (and/c real? (not/c negative?))) #f)] + [h (or/c (box/c (and/c real? (not/c negative?))) #f)] [full? any/c #f]) void?]{ @methspec{ @@ -75,10 +75,10 @@ Fills all boxes with @racket[0.0]. }} -@defmethod[(get-view [x (or/c (box/c real?) false/c)] - [y (or/c (box/c real?) false/c)] - [w (or/c (box/c (and/c real? (not/c negative?))) false/c)] - [h (or/c (box/c (and/c real? (not/c negative?))) false/c)] +@defmethod[(get-view [x (or/c (box/c real?) #f)] + [y (or/c (box/c real?) #f)] + [w (or/c (box/c (and/c real? (not/c negative?))) #f)] + [h (or/c (box/c (and/c real? (not/c negative?))) #f)] [full? any/c #f]) void?]{ @methspec{ @@ -122,7 +122,7 @@ Fills all boxes with @racket[0.0]. }} -@defmethod[(grab-caret [domain (one-of/c 'immediate 'display 'global) 'global]) +@defmethod[(grab-caret [domain (or/c 'immediate 'display 'global) 'global]) void?]{ @methspec{ @@ -245,7 +245,7 @@ Does nothing. [w (and/c real? (not/c negative?))] [h (and/c real? (not/c negative?))] [refresh? any/c #t] - [bias (one-of/c 'start 'end 'none) 'none]) + [bias (or/c 'start 'end 'none) 'none]) boolean?]{ @methspec{ diff --git a/collects/scribblings/gui/editor-canvas-class.scrbl b/collects/scribblings/gui/editor-canvas-class.scrbl index 51900728ed..807d478d46 100644 --- a/collects/scribblings/gui/editor-canvas-class.scrbl +++ b/collects/scribblings/gui/editor-canvas-class.scrbl @@ -9,17 +9,17 @@ An @racket[editor-canvas%] object manages and displays a @defconstructor[([parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [editor (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) false/c) #f] - [style (listof (one-of/c 'no-border 'control-border 'combo - 'no-hscroll 'no-vscroll - 'hide-hscroll 'hide-vscroll - 'auto-vscroll 'auto-hscroll - 'resize-corner 'no-focus 'deleted - 'transparent)) null] + [editor (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f) #f] + [style (listof (or/c 'no-border 'control-border 'combo + 'no-hscroll 'no-vscroll + 'hide-hscroll 'hide-vscroll + 'auto-vscroll 'auto-hscroll + 'resize-corner 'no-focus 'deleted + 'transparent)) null] [scrolls-per-page (integer-in 1 10000) 100] - [label (or/c label-string? false/c) #f] - [wheel-step (or/c (integer-in 1 10000) false/c) 3] - [line-count (or/c (integer-in 1 1000) false/c) #f] + [label (or/c label-string? #f) #f] + [wheel-step (or/c (integer-in 1 10000) #f) 3] + [line-count (or/c (integer-in 1 1000) #f) #f] [horizontal-inset (integer-in 0 1000) 5] [vertical-inset (integer-in 0 1000) 5] [enabled any/c #t] @@ -165,7 +165,7 @@ Enables or disables force-focus mode. In force-focus mode, the caret @defmethod[(get-editor) - (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) false/c)]{ + (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)]{ Returns the editor currently displayed by this canvas, or @racket[#f] if the canvas does not have an editor. @@ -174,7 +174,7 @@ Returns the editor currently displayed by this canvas, or @racket[#f] @defmethod[(get-line-count) - (or/c (integer-in 1 1000) false/c)]{ + (or/c (integer-in 1 1000) #f)]{ Returns a line count installed with @method[editor-canvas% set-line-count], or @racket[#f] if no minimum line count is set. @@ -270,7 +270,7 @@ on-display-size] method is called. [w (and/c real? (not/c negative?))] [h (and/c real? (not/c negative?))] [refresh? any/c] - [bias (one-of/c 'start 'end 'none) 'none]) + [bias (or/c 'start 'end 'none) 'none]) boolean?]{ Requests scrolling so that the given region in the currently displayed @@ -323,7 +323,7 @@ Enables or disables bottom-base scrolling, or gets the current enable -@defmethod[(set-editor [edit (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) false/c)] +@defmethod[(set-editor [edit (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)] [redraw? any/c #t]) void?]{ @@ -342,7 +342,7 @@ If the canvas has a line count installed with @method[editor-canvas% } -@defmethod[(set-line-count [count (or/c (integer-in 1 1000) false/c)]) +@defmethod[(set-line-count [count (or/c (integer-in 1 1000) #f)]) void?]{ Sets the canvas's graphical minimum height to display a particular @@ -370,8 +370,8 @@ Gets or sets the number of pixels within the canvas reserved above @defmethod*[([(wheel-step) - (or/c (integer-in 1 10000) false/c)] - [(wheel-step [step (or/c (integer-in 1 10000) false/c)]) + (or/c (integer-in 1 10000) #f)] + [(wheel-step [step (or/c (integer-in 1 10000) #f)]) void?])]{ Gets or sets the number of vertical scroll steps taken for one click diff --git a/collects/scribblings/gui/editor-data-class-class.scrbl b/collects/scribblings/gui/editor-data-class-class.scrbl index 3f924d9625..c5f26dc67f 100644 --- a/collects/scribblings/gui/editor-data-class-class.scrbl +++ b/collects/scribblings/gui/editor-data-class-class.scrbl @@ -22,7 +22,7 @@ internal use. } @defmethod[(read [f (is-a?/c editor-stream-in%)]) - (or/c (is-a?/c editor-data%) false/c)]{ + (or/c (is-a?/c editor-data%) #f)]{ Reads a new data object from the given stream, returning @racket[#f] if there is an error. diff --git a/collects/scribblings/gui/editor-data-class-list-intf.scrbl b/collects/scribblings/gui/editor-data-class-list-intf.scrbl index 98623ecaef..06cd55ca5d 100644 --- a/collects/scribblings/gui/editor-data-class-list-intf.scrbl +++ b/collects/scribblings/gui/editor-data-class-list-intf.scrbl @@ -18,7 +18,7 @@ exists in the list, this one will not be added. } @defmethod[(find [name string?]) - (or/c (is-a?/c snip-class%) false/c)]{ + (or/c (is-a?/c snip-class%) #f)]{ Finds a snip data class from the list with the given name, returning @racket[#f] if none can be found. @@ -31,7 +31,7 @@ Returns an index into the list for the specified class. } @defmethod[(nth [n exact-nonnegative-integer?]) - (or/c (is-a?/c editor-data-class%) false/c)]{ + (or/c (is-a?/c editor-data-class%) #f)]{ Returns the @racket[n]th class in the list (counting from 0), returning @racket[#f] if the list has @racket[n] or less classes. diff --git a/collects/scribblings/gui/editor-data-class.scrbl b/collects/scribblings/gui/editor-data-class.scrbl index 76a882bd83..c4c1620200 100644 --- a/collects/scribblings/gui/editor-data-class.scrbl +++ b/collects/scribblings/gui/editor-data-class.scrbl @@ -16,12 +16,12 @@ to @racket[#f]. } @defmethod[(get-dataclass) - (or/c (is-a?/c editor-data-class%) false/c)]{ + (or/c (is-a?/c editor-data-class%) #f)]{ Gets the class for this data. } @defmethod[(get-next) - (or/c (is-a?/c editor-data%) false/c)]{ + (or/c (is-a?/c editor-data%) #f)]{ Gets the next editor data element in a list of editor data elements. A @racket[#f] terminates the list. } @@ -30,7 +30,7 @@ A @racket[#f] terminates the list. void?]{Sets the class for this data. } -@defmethod[(set-next [v (or/c (is-a?/c editor-data%) false/c)]) +@defmethod[(set-next [v (or/c (is-a?/c editor-data%) #f)]) void?]{Sets the next editor data element in a list of editor data elements. A @racket[#f] terminates the list. } diff --git a/collects/scribblings/gui/editor-snip-class.scrbl b/collects/scribblings/gui/editor-snip-class.scrbl index a12469cfe2..acc53ce77b 100644 --- a/collects/scribblings/gui/editor-snip-class.scrbl +++ b/collects/scribblings/gui/editor-snip-class.scrbl @@ -9,7 +9,7 @@ An @racket[editor-snip%] object is a @racket[snip%] object that another editor. -@defconstructor[([editor (or/c (is-a?/c editor<%>) false/c) #f] +@defconstructor[([editor (or/c (is-a?/c editor<%>) #f) #f] [with-border? any/c #t] [left-margin exact-nonnegative-integer? 5] [top-margin exact-nonnegative-integer? 5] @@ -19,10 +19,10 @@ An @racket[editor-snip%] object is a @racket[snip%] object that [top-inset exact-nonnegative-integer? 1] [right-inset exact-nonnegative-integer? 1] [bottom-inset exact-nonnegative-integer? 1] - [min-width (or/c (and/c real? (not/c negative?)) (one-of/c 'none)) 'none] - [max-width (or/c (and/c real? (not/c negative?)) (one-of/c 'none)) 'none] - [min-height (or/c (and/c real? (not/c negative?)) (one-of/c 'none)) 'none] - [max-height (or/c (and/c real? (not/c negative?)) (one-of/c 'none)) 'none])]{ + [min-width (or/c (and/c real? (not/c negative?)) 'none) 'none] + [max-width (or/c (and/c real? (not/c negative?)) 'none) 'none] + [min-height (or/c (and/c real? (not/c negative?)) 'none) 'none] + [max-height (or/c (and/c real? (not/c negative?)) 'none) 'none])]{ If @racket[editor] is non-@racket[#f], then it will be used as the editor contained by the snip. See also @method[editor-snip% @@ -46,7 +46,7 @@ get-margin] for information about the inset and margin arguments. [editorx real?] [editory real?] [event (is-a?/c mouse-event%)]) - (or/c (is-a?/c cursor%) false/c)]{ + (or/c (is-a?/c cursor%) #f)]{ Gets a cursor from the embedded editor by calling its @method[editor<%> adjust-cursor] method. @@ -77,7 +77,7 @@ See also @method[editor-snip% set-align-top-line]. @defmethod[(get-editor) - (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) false/c)]{ + (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)]{ Returns the editor contained by the snip, or @racket[#f] is there is no editor. @@ -88,12 +88,12 @@ Returns the editor contained by the snip, or @racket[#f] is there is (get-extent [dc (is-a?/c dc<%>)] [x real?] [y real?] - [w (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [h (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [descent (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [space (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [lspace (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [rspace (or/c (box/c (and/c real? (not/c negative?))) false/c) #f]) + [w (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [h (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [descent (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [space (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [lspace (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [rspace (or/c (box/c (and/c real? (not/c negative?))) #f) #f]) void?]{ Calls its editor's @method[editor<%> get-extent] method, then adds the @@ -156,7 +156,7 @@ snip. @defmethod[(get-max-height) - (or/c (and/c real? (not/c negative?)) (one-of/c 'none))]{ + (or/c (and/c real? (not/c negative?)) 'none)]{ Gets the maximum display height of the snip; zero or @racket['none] indicates that there is no maximum. @@ -165,7 +165,7 @@ Gets the maximum display height of the snip; zero or @racket['none] @defmethod[(get-max-width) - (or/c (and/c real? (not/c negative?)) (one-of/c 'none))]{ + (or/c (and/c real? (not/c negative?)) 'none)]{ Gets the maximum display width of the snip; zero or @racket['none] indicates that there is no maximum. @@ -173,7 +173,7 @@ Gets the maximum display width of the snip; zero or @racket['none] } @defmethod[(get-min-height) - (or/c (and/c real? (not/c negative?)) (one-of/c 'none))]{ + (or/c (and/c real? (not/c negative?)) 'none)]{ Gets the minimum display height of the snip; zero or @racket['none] indicates that there is no minimum. @@ -181,7 +181,7 @@ Gets the minimum display height of the snip; zero or @racket['none] } @defmethod[(get-min-width) - (or/c (and/c real? (not/c negative?)) (one-of/c 'none))]{ + (or/c (and/c real? (not/c negative?)) 'none)]{ Gets the minimum display width of the snip; zero or @racket['none] indicates that there is no minimum. @@ -226,7 +226,7 @@ See also @method[editor-snip% get-align-top-line]. } -@defmethod[(set-editor [editor (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) false/c)]) +@defmethod[(set-editor [editor (or/c (or/c (is-a?/c text%) (is-a?/c pasteboard%)) #f)]) void?]{ Sets the editor contained by the snip, releasing the old editor in the @@ -268,7 +268,7 @@ Sets the current margins for the snip. The margin sets how much space } -@defmethod[(set-max-height [h (or/c (and/c real? (not/c negative?)) (one-of/c 'none))]) +@defmethod[(set-max-height [h (or/c (and/c real? (not/c negative?)) 'none)]) void?]{ @edsnipmax[@racket[height]] @@ -277,7 +277,7 @@ Zero or @racket['none] disables the limit. } -@defmethod[(set-max-width [w (or/c (and/c real? (not/c negative?)) (one-of/c 'none))]) +@defmethod[(set-max-width [w (or/c (and/c real? (not/c negative?)) 'none)]) void?]{ @edsnipmax[@racket[width]] The contained editor's width limits are not @@ -287,7 +287,7 @@ Zero or @racket['none] disables the limit. } -@defmethod[(set-min-height [h (or/c (and/c real? (not/c negative?)) (one-of/c 'none))]) +@defmethod[(set-min-height [h (or/c (and/c real? (not/c negative?)) 'none)]) void?]{ @edsnipmin[@racket[height] @elem{top}] @@ -296,7 +296,7 @@ Zero or @racket['none] disables the limit. } -@defmethod[(set-min-width [w (or/c (and/c real? (not/c negative?)) (one-of/c 'none))]) +@defmethod[(set-min-width [w (or/c (and/c real? (not/c negative?)) 'none)]) void?]{ @edsnipmin[@racket[width] @elem{left}] The contained editor's width diff --git a/collects/scribblings/gui/editor-stream-in-class.scrbl b/collects/scribblings/gui/editor-stream-in-class.scrbl index cfc2547377..1af50e0eb7 100644 --- a/collects/scribblings/gui/editor-stream-in-class.scrbl +++ b/collects/scribblings/gui/editor-stream-in-class.scrbl @@ -30,8 +30,8 @@ Reading from a bad stream always gives @racket[0]. } -@defmethod[(get-bytes [len (or/c (box/c exact-nonnegative-integer?) false/c) #f]) - (or/c bytes? false/c)]{ +@defmethod[(get-bytes [len (or/c (box/c exact-nonnegative-integer?) #f) #f]) + (or/c bytes? #f)]{ Like @method[editor-stream-in% get-unterminated-bytes], but the last read byte is assumed to be a nul terminator and discarded. Use this @@ -75,8 +75,8 @@ Returns the next floating-point value in the stream. } -@defmethod[(get-unterminated-bytes [len (or/c (box/c exact-nonnegative-integer?) false/c) #f]) - (or/c bytes? false/c)]{ +@defmethod[(get-unterminated-bytes [len (or/c (box/c exact-nonnegative-integer?) #f) #f]) + (or/c bytes? #f)]{ Returns the next byte string from the stream. This is the recommended way to read bytes back in from a stream; diff --git a/collects/scribblings/gui/editor-wordbreak-map-class.scrbl b/collects/scribblings/gui/editor-wordbreak-map-class.scrbl index 93078362ce..8f56a9fea7 100644 --- a/collects/scribblings/gui/editor-wordbreak-map-class.scrbl +++ b/collects/scribblings/gui/editor-wordbreak-map-class.scrbl @@ -43,7 +43,7 @@ All ASCII alpha-numeric characters are initialized with } @defmethod[(get-map [char char?]) - (listof (one-of/c 'caret 'line 'selection 'user1 'user2))]{ + (listof (or/c 'caret 'line 'selection 'user1 'user2))]{ Gets the mapping value for @racket[char]. See @racket[editor-wordbreak-map%] for more information. @@ -51,7 +51,7 @@ Gets the mapping value for @racket[char]. See } @defmethod[(set-map [char char?] - [value (listof (one-of/c 'caret 'line 'selection 'user1 'user2))]) + [value (listof (or/c 'caret 'line 'selection 'user1 'user2))]) void?]{ diff --git a/collects/scribblings/gui/eventspace-funcs.scrbl b/collects/scribblings/gui/eventspace-funcs.scrbl index a5f04987fb..e6ba831041 100644 --- a/collects/scribblings/gui/eventspace-funcs.scrbl +++ b/collects/scribblings/gui/eventspace-funcs.scrbl @@ -77,7 +77,7 @@ Returns a list of visible top-level frames and dialogs in the current } @defproc[(get-top-level-focus-window) - (or/c (is-a?/c frame%) (is-a?/c dialog%) false/c)]{ + (or/c (is-a?/c frame%) (is-a?/c dialog%) #f)]{ Returns the top level window in the current eventspace that has the keyboard focus (or contains the window with the keyboard focus), or @racket[#f] if no window in the current eventspace has the focus. @@ -85,7 +85,7 @@ Returns the top level window in the current eventspace that has the } @defproc[(get-top-level-edit-target-window) - (or/c (is-a?/c frame%) (is-a?/c dialog%) false/c)]{ + (or/c (is-a?/c frame%) (is-a?/c dialog%) #f)]{ Returns the top level window in the current eventspace that is visible and most recently had the keyboard focus (or contains the window that had the keyboard focus), or @racket[#f] if there is no visible window @@ -145,7 +145,7 @@ A second (optional) boolean argument indicates whether the callback @defproc*[([(yield) boolean?] - [(yield [v (or/c (one-of/c 'wait) evt?)]) + [(yield [v (or/c 'wait evt?)]) any/c])]{ @;@index{pause}@index{wait} Yields control to event dispatching. See diff --git a/collects/scribblings/gui/frame-class.scrbl b/collects/scribblings/gui/frame-class.scrbl index 515305f9be..56fb1d6596 100644 --- a/collects/scribblings/gui/frame-class.scrbl +++ b/collects/scribblings/gui/frame-class.scrbl @@ -8,19 +8,19 @@ A frame is a top-level container window. It has a title bar (which status line. @defconstructor[([label label-string?] - [parent (or/c (is-a?/c frame%) false/c) #f] - [width (or/c (integer-in 0 10000) false/c) #f] - [height (or/c (integer-in 0 10000) false/c) #f] - [x (or/c (integer-in -10000 10000) false/c) #f] - [y (or/c (integer-in -10000 10000) false/c) #f] - [style (listof (one-of/c 'no-resize-border 'no-caption - 'no-system-menu 'hide-menu-bar - 'toolbar-button 'float 'metal)) null] + [parent (or/c (is-a?/c frame%) #f) #f] + [width (or/c (integer-in 0 10000) #f) #f] + [height (or/c (integer-in 0 10000) #f) #f] + [x (or/c (integer-in -10000 10000) #f) #f] + [y (or/c (integer-in -10000 10000) #f) #f] + [style (listof (or/c 'no-resize-border 'no-caption + 'no-system-menu 'hide-menu-bar + 'toolbar-button 'float 'metal)) null] [enabled any/c #t] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(center top)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] @@ -108,7 +108,7 @@ See also @method[frame% set-status-text]. } @defmethod[(get-menu-bar) - (or/c (is-a?/c menu-bar%) false/c)]{ + (or/c (is-a?/c menu-bar%) #f)]{ Returns the frame's menu bar, or @racket[#f] if none has been created for the frame. diff --git a/collects/scribblings/gui/gauge-class.scrbl b/collects/scribblings/gui/gauge-class.scrbl index 0d141b333a..da5c6bb74e 100644 --- a/collects/scribblings/gui/gauge-class.scrbl +++ b/collects/scribblings/gui/gauge-class.scrbl @@ -10,13 +10,13 @@ range, inclusive. Use @method[gauge% set-value] to set the value of the gauge. -@defconstructor[([label (or/c label-string? false/c)] +@defconstructor[([label (or/c label-string? #f)] [range (integer-in 1 1000000)] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [style (listof (one-of/c 'horizontal 'vertical - 'vertical-label 'horizontal-label - 'deleted)) + [style (listof (or/c 'horizontal 'vertical + 'vertical-label 'horizontal-label + 'deleted)) '(horizontal)] [font (is-a?/c font%) normal-control-font] [enabled any/c #t] diff --git a/collects/scribblings/gui/group-box-panel-class.scrbl b/collects/scribblings/gui/group-box-panel-class.scrbl index 19e5cfce7a..3d5104c206 100644 --- a/collects/scribblings/gui/group-box-panel-class.scrbl +++ b/collects/scribblings/gui/group-box-panel-class.scrbl @@ -14,15 +14,15 @@ Unlike most panel classes, a group-box panel's horizontal and vertical @defconstructor[([label label-string?] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [style (listof (one-of/c 'deleted)) null] + [style (listof (or/c 'deleted)) null] [font (is-a?/c font%) small-control-font] [enabled any/c #t] [vert-margin (integer-in 0 1000) 2] [horiz-margin (integer-in 0 1000) 2] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(center top)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] diff --git a/collects/scribblings/gui/horizontal-pane-class.scrbl b/collects/scribblings/gui/horizontal-pane-class.scrbl index 1f604dba23..cfb7ff5f59 100644 --- a/collects/scribblings/gui/horizontal-pane-class.scrbl +++ b/collects/scribblings/gui/horizontal-pane-class.scrbl @@ -12,8 +12,8 @@ A horizontal pane arranges its subwindows in a single row. See also [horiz-margin (integer-in 0 1000) 0] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(left center)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] diff --git a/collects/scribblings/gui/horizontal-panel-class.scrbl b/collects/scribblings/gui/horizontal-panel-class.scrbl index 644d36b4bc..677ff8fa7a 100644 --- a/collects/scribblings/gui/horizontal-panel-class.scrbl +++ b/collects/scribblings/gui/horizontal-panel-class.scrbl @@ -8,16 +8,16 @@ A horizontal panel arranges its subwindows in a single row. See also @defconstructor[([parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [style (listof (one-of/c 'border 'deleted - 'hscroll 'auto-hscroll - 'vscroll 'auto-vscroll)) null] + [style (listof (or/c 'border 'deleted + 'hscroll 'auto-hscroll + 'vscroll 'auto-vscroll)) null] [enabled any/c #t] [vert-margin (integer-in 0 1000) 0] [horiz-margin (integer-in 0 1000) 0] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(left center)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] diff --git a/collects/scribblings/gui/image-snip-class.scrbl b/collects/scribblings/gui/image-snip-class.scrbl index 9cf0db7abf..759272c2ec 100644 --- a/collects/scribblings/gui/image-snip-class.scrbl +++ b/collects/scribblings/gui/image-snip-class.scrbl @@ -9,10 +9,10 @@ An @racket[image-snip%] is a snip that can display bitmap images @defconstructor*/make[(([file (or/c path-string? input-port? #f) #f] - [kind (one-of/c 'unknown 'unknown/mask 'unknown/alpha - 'gif 'gif/mask 'gif/alpha - 'jpeg 'png 'png/mask 'png/alpha - 'xbm 'xpm 'bmp 'pict) 'unknown] + [kind (or/c 'unknown 'unknown/mask 'unknown/alpha + 'gif 'gif/mask 'gif/alpha + 'jpeg 'png 'png/mask 'png/alpha + 'xbm 'xpm 'bmp 'pict) 'unknown] [relative-path? any/c #f] [inline? any/c #t]) ([bitmap (is-a?/c bitmap%)] @@ -74,10 +74,10 @@ relative to the owning editor's path}] } @defmethod[(get-filetype) - (one-of/c 'unknown 'unknown/mask 'unknown/alpha - 'gif 'gif/mask 'gif/alpha - 'jpeg 'png 'png/mask 'png/alpha - 'xbm 'xpm 'bmp 'pict)]{ + (or/c 'unknown 'unknown/mask 'unknown/alpha + 'gif 'gif/mask 'gif/alpha + 'jpeg 'png 'png/mask 'png/alpha + 'xbm 'xpm 'bmp 'pict)]{ Returns the kind used to load the currently loaded, non-inlined file, or @racket['unknown] if a file is not loaded or if a file was loaded @@ -86,10 +86,10 @@ Returns the kind used to load the currently loaded, non-inlined file, } @defmethod[(load-file [file (or/c path-string? input-port? #f)] - [kind (one-of/c 'unknown 'unknown/mask 'unknown/alpha - 'gif 'gif/mask 'gif/alpha - 'jpeg 'png 'png/mask 'png/alpha - 'xbm 'xpm 'bmp 'pict) 'unknown] + [kind (or/c 'unknown 'unknown/mask 'unknown/alpha + 'gif 'gif/mask 'gif/alpha + 'jpeg 'png 'png/mask 'png/alpha + 'xbm 'xpm 'bmp 'pict) 'unknown] [relative-path? any/c #f] [inline? any/c #t]) void?]{ diff --git a/collects/scribblings/gui/key-event-class.scrbl b/collects/scribblings/gui/key-event-class.scrbl index 910ede0434..e783551e53 100644 --- a/collects/scribblings/gui/key-event-class.scrbl +++ b/collects/scribblings/gui/key-event-class.scrbl @@ -205,28 +205,28 @@ Returns @racket[#t] if the Meta (Unix), Alt (Windows), or Command (Mac OS } @defmethod[(get-other-altgr-key-code) - (or/c char? key-code-symbol? false/c)]{ + (or/c char? key-code-symbol? #f)]{ See @method[key-event% get-other-shift-key-code]. } @defmethod[(get-other-caps-key-code) - (or/c char? key-code-symbol? false/c)]{ + (or/c char? key-code-symbol? #f)]{ See @method[key-event% get-other-shift-key-code]. } @defmethod[(get-other-shift-altgr-key-code) - (or/c char? key-code-symbol? false/c)]{ + (or/c char? key-code-symbol? #f)]{ See @method[key-event% get-other-shift-key-code]. } @defmethod[(get-other-shift-key-code) - (or/c char? key-code-symbol? false/c)]{ + (or/c char? key-code-symbol? #f)]{ Since keyboard mappings vary, it is sometimes useful in key mappings for a program to know the result that the keyboard would have @@ -338,7 +338,7 @@ Sets whether the Meta (Unix), Alt (Windows), or Command (Mac OS X) key } -@defmethod[(set-other-altgr-key-code [code (or/c char? key-code-symbol? false/c)]) +@defmethod[(set-other-altgr-key-code [code (or/c char? key-code-symbol? #f)]) void?]{ Sets the key code produced by @method[key-event% @@ -346,7 +346,7 @@ get-other-altgr-key-code]. } -@defmethod[(set-other-caps-key-code [code (or/c char? key-code-symbol? false/c)]) +@defmethod[(set-other-caps-key-code [code (or/c char? key-code-symbol? #f)]) void?]{ Sets the key code produced by @method[key-event% @@ -354,7 +354,7 @@ Sets the key code produced by @method[key-event% } -@defmethod[(set-other-shift-altgr-key-code [code (or/c char? key-code-symbol? false/c)]) +@defmethod[(set-other-shift-altgr-key-code [code (or/c char? key-code-symbol? #f)]) void?]{ Sets the key code produced by @method[key-event% @@ -362,7 +362,7 @@ Sets the key code produced by @method[key-event% } -@defmethod[(set-other-shift-key-code [code (or/c char? key-code-symbol? false/c)]) +@defmethod[(set-other-shift-key-code [code (or/c char? key-code-symbol? #f)]) void?]{ Sets the key code produced by @method[key-event% diff --git a/collects/scribblings/gui/labelled-menu-item-intf.scrbl b/collects/scribblings/gui/labelled-menu-item-intf.scrbl index 1145f0af29..4fa78d6d43 100644 --- a/collects/scribblings/gui/labelled-menu-item-intf.scrbl +++ b/collects/scribblings/gui/labelled-menu-item-intf.scrbl @@ -22,7 +22,7 @@ Enables or disables the menu item. If the item is a submenu (or menu } @defmethod[(get-help-string) - (or/c label-string? false/c)]{ + (or/c label-string? #f)]{ Returns the help string for the menu item, or @racket[#f] if the item has no help string. @@ -85,7 +85,7 @@ Calls the @racket[demand-callback] procedure that was provided when the }} -@defmethod[(set-help-string [help (or/c label-string? false/c)]) +@defmethod[(set-help-string [help (or/c label-string? #f)]) void?]{ Sets the help string for the menu item. Use @racket[#f] to remove the diff --git a/collects/scribblings/gui/list-box-class.scrbl b/collects/scribblings/gui/list-box-class.scrbl index a4cb1ce27b..c9b430cc8d 100644 --- a/collects/scribblings/gui/list-box-class.scrbl +++ b/collects/scribblings/gui/list-box-class.scrbl @@ -29,19 +29,20 @@ A list box can have multiple columns with optional column headers. An See also @racket[choice%]. -@defconstructor[([label (or/c label-string? false/c)] +@defconstructor[([label (or/c label-string? #f)] [choices (listof label-string?)] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [callback ((is-a?/c list-box%) (is-a?/c control-event%) . -> . any) + [callback ((is-a?/c list-box%) (is-a?/c control-event%) + . -> . any) (lambda (c e) (void))] - [style (listof (one-of/c 'single 'multiple 'extended - 'vertical-label 'horizontal-label - 'variable-columns 'column-headers - 'clickable-headers 'reorderable-headers - 'deleted)) + [style (listof (or/c 'single 'multiple 'extended + 'vertical-label 'horizontal-label + 'variable-columns 'column-headers + 'clickable-headers 'reorderable-headers + 'deleted)) '(single)] - [selection (or/c exact-nonnegative-integer? false/c) #f] + [selection (or/c exact-nonnegative-integer? #f) #f] [font (is-a?/c font%) view-control-font] [label-font (is-a?/c font%) normal-control-font] [enabled any/c #t] diff --git a/collects/scribblings/gui/list-control-intf.scrbl b/collects/scribblings/gui/list-control-intf.scrbl index 47dd3f9276..3c03527170 100644 --- a/collects/scribblings/gui/list-control-intf.scrbl +++ b/collects/scribblings/gui/list-control-intf.scrbl @@ -37,7 +37,7 @@ Removes all user-selectable items from the control. } @defmethod[(find-string [s string?]) - (or/c exact-nonnegative-integer? false/c)]{ + (or/c exact-nonnegative-integer? #f)]{ Finds a user-selectable item matching the given string. If no matching choice is found, @racket[#f] is returned, otherwise the index of the matching choice is returned (items are indexed from @racket[0]). @@ -52,7 +52,7 @@ Returns the number of user-selectable items in the control (which is } @defmethod[(get-selection) - (or/c exact-nonnegative-integer? false/c)]{ + (or/c exact-nonnegative-integer? #f)]{ Returns the index of the currently selected item (items are indexed from @racket[0]). If the choice item currently contains no choices or no selections, @racket[#f] is returned. If multiple selections are @@ -71,7 +71,7 @@ Returns the item for the given index (items are indexed from } @defmethod[(get-string-selection) - (or/c (and/c immutable? label-string?) false/c)]{ + (or/c (and/c immutable? label-string?) #f)]{ Returns the currently selected item. If the control currently contains no choices, @racket[#f] is returned. If multiple selections are allowed and multiple items are selected, the first selection is diff --git a/collects/scribblings/gui/menu-bar-class.scrbl b/collects/scribblings/gui/menu-bar-class.scrbl index 9f4d24d805..a0aea5185c 100644 --- a/collects/scribblings/gui/menu-bar-class.scrbl +++ b/collects/scribblings/gui/menu-bar-class.scrbl @@ -10,7 +10,7 @@ A @racket[menu-bar%] object is created for a particular -@defconstructor[([parent (or/c (is-a?/c frame%) (one-of/c 'root))] +@defconstructor[([parent (or/c (is-a?/c frame%) 'root)] [demand-callback ((is-a?/c menu-bar%) . -> . any) (lambda (m) (void))])]{ Creates a menu bar in the specified frame. The menu bar is initially diff --git a/collects/scribblings/gui/menu-class.scrbl b/collects/scribblings/gui/menu-class.scrbl index 1d8b7ce9e6..ff9d6b1646 100644 --- a/collects/scribblings/gui/menu-class.scrbl +++ b/collects/scribblings/gui/menu-class.scrbl @@ -11,7 +11,7 @@ A @racket[menu%] object is a submenu within a @racket[menu%] or @defconstructor[([label label-string?] [parent (or/c (is-a?/c menu%) (is-a?/c popup-menu%) (is-a?/c menu-bar%))] - [help-string (or/c label-string? false/c) #f] + [help-string (or/c label-string? #f) #f] [demand-callback ((is-a?/c menu%) . -> . any) (lambda (m) (void))])]{ Creates a new menu with the given label. diff --git a/collects/scribblings/gui/menu-item-class.scrbl b/collects/scribblings/gui/menu-item-class.scrbl index f4c5a458b9..827d1d0bf6 100644 --- a/collects/scribblings/gui/menu-item-class.scrbl +++ b/collects/scribblings/gui/menu-item-class.scrbl @@ -11,12 +11,12 @@ A @racket[menu-item%] is a plain string-labelled menu item. Its @defconstructor[([label label-string?] [parent (or/c (is-a?/c menu%) (is-a?/c popup-menu%))] [callback ((is-a?/c menu-item%) (is-a?/c control-event%) . -> . any)] - [shortcut (or/c char? symbol? false/c) #f] - [help-string (or/c label-string? false/c) #f] + [shortcut (or/c char? symbol? #f) #f] + [help-string (or/c label-string? #f) #f] [demand-callback ((is-a?/c menu-item%) . -> . any) (lambda (i) (void))] - [shortcut-prefix (listof (one-of/c 'alt 'cmd 'meta 'ctl - 'shift 'option)) + [shortcut-prefix (listof (or/c 'alt 'cmd 'meta 'ctl + 'shift 'option)) (get-default-shortcut-prefix)])]{ Creates a new menu item in @racket[parent]. The item is initially diff --git a/collects/scribblings/gui/message-class.scrbl b/collects/scribblings/gui/message-class.scrbl index 41ba38e43d..db33c2513a 100644 --- a/collects/scribblings/gui/message-class.scrbl +++ b/collects/scribblings/gui/message-class.scrbl @@ -9,10 +9,10 @@ A message control is a static line of text or a static bitmap. The @defconstructor[([label (or/c label-string? (is-a?/c bitmap%) - (one-of/c 'app 'caution 'stop))] + (or/c 'app 'caution 'stop))] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [style (listof (one-of/c 'deleted)) null] + [style (listof (or/c 'deleted)) null] [font (is-a?/c font%) normal-control-font] [enabled any/c #t] [vert-margin (integer-in 0 1000) 2] diff --git a/collects/scribblings/gui/miscwin-funcs.scrbl b/collects/scribblings/gui/miscwin-funcs.scrbl index 1d681bb50c..441b46b541 100644 --- a/collects/scribblings/gui/miscwin-funcs.scrbl +++ b/collects/scribblings/gui/miscwin-funcs.scrbl @@ -53,7 +53,7 @@ The get operation always returns @racket[#"????"] and @racket[#"????"] for Windows. } -@defproc[(find-graphical-system-path [what (one-of/c 'init-file 'x-display)]) +@defproc[(find-graphical-system-path [what (or/c 'init-file 'x-display)]) (or/c path? #f)]{ Finds a platform-specific (and possibly user- or machine-specific) @@ -88,7 +88,7 @@ The result depends on @racket[what], and a @racket[#f] result is only @defproc[(get-default-shortcut-prefix) - (listof (one-of/c 'alt 'cmd 'meta 'ctl 'shift 'option))]{ + (listof (or/c 'alt 'cmd 'meta 'ctl 'shift 'option))]{ Returns an immutable list specifying the default prefix for menu shortcuts. See also @xmethod[selectable-menu-item<%> get-shortcut-prefix]. diff --git a/collects/scribblings/gui/pane-class.scrbl b/collects/scribblings/gui/pane-class.scrbl index 5741bfaa9e..8bd1806fef 100644 --- a/collects/scribblings/gui/pane-class.scrbl +++ b/collects/scribblings/gui/pane-class.scrbl @@ -21,8 +21,8 @@ See also @racket[grow-box-spacer-pane%]. [horiz-margin (integer-in 0 1000) 0] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(center top)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] diff --git a/collects/scribblings/gui/panel-class.scrbl b/collects/scribblings/gui/panel-class.scrbl index 5c1e457caa..015f51224d 100644 --- a/collects/scribblings/gui/panel-class.scrbl +++ b/collects/scribblings/gui/panel-class.scrbl @@ -17,16 +17,16 @@ A @racket[panel%] object has a degenerate placement strategy for @defconstructor[([parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [style (listof (one-of/c 'border 'deleted - 'hscroll 'auto-hscroll - 'vscroll 'auto-vscroll)) null] + [style (listof (or/c 'border 'deleted + 'hscroll 'auto-hscroll + 'vscroll 'auto-vscroll)) null] [enabled any/c #t] [vert-margin (integer-in 0 1000) 0] [horiz-margin (integer-in 0 1000) 0] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(center center)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] diff --git a/collects/scribblings/gui/pasteboard-class.scrbl b/collects/scribblings/gui/pasteboard-class.scrbl index 7921552bc1..53b59c65c0 100644 --- a/collects/scribblings/gui/pasteboard-class.scrbl +++ b/collects/scribblings/gui/pasteboard-class.scrbl @@ -62,7 +62,7 @@ Does nothing. @defmethod[#:mode pubment (after-insert [snip (is-a?/c snip%)] - [before (or/c (is-a?/c snip%) false/c)] + [before (or/c (is-a?/c snip%) #f)] [x real?] [y real?]) void?]{ @@ -272,7 +272,7 @@ Returns @racket[#t]. @defmethod[#:mode pubment (can-insert? [snip (is-a?/c snip%)] - [before (or/c (is-a?/c snip%) false/c)] + [before (or/c (is-a?/c snip%) #f)] [x real?] [y real?]) boolean?]{ @@ -580,8 +580,8 @@ See also @method[pasteboard% delete]. } -@defmethod[(find-next-selected-snip [start (or/c (is-a?/c snip%) false/c)]) - (or/c (is-a?/c snip%) false/c)]{ +@defmethod[(find-next-selected-snip [start (or/c (is-a?/c snip%) #f)]) + (or/c (is-a?/c snip%) #f)]{ Returns the next selected snip in the editor, starting the search after @racket[start]. (@|seesniporderdiscuss|) If @racket[start] is @racket[#f], @@ -595,8 +595,8 @@ Returns the next selected snip in the editor, starting the search @defmethod[(find-snip [x real?] [y real?] - [after (or/c (is-a?/c snip%) false/c) #f]) - (or/c (is-a?/c snip%) false/c)]{ + [after (or/c (is-a?/c snip%) #f) #f]) + (or/c (is-a?/c snip%) #f)]{ Finds the frontmost snip (after a given snip) that intersects a given @techlink{location}. @|seesniporderdiscuss| @@ -655,7 +655,7 @@ Returns whether selection dots are drawn around the edge of selected ([(insert [snip (is-a?/c snip%)]) void?] [(insert [snip (is-a?/c snip%)] - [before (or/c (is-a?/c snip%) false/c)] + [before (or/c (is-a?/c snip%) #f)] [x real?] [y real?]) void?] @@ -664,7 +664,7 @@ Returns whether selection dots are drawn around the edge of selected [y real?]) void?] [(insert [snip (is-a?/c snip%)] - [before (or/c (is-a?/c snip%) false/c)]) + [before (or/c (is-a?/c snip%) #f)]) void?])]{ Inserts @racket[snip] at @techlink{location} @math{(@racket[x], @@ -873,7 +873,7 @@ If @racket[snip] accepts events, it is designated as the caret owner @defmethod[#:mode pubment (on-insert [snip (is-a?/c snip%)] - [before (or/c (is-a?/c snip%) false/c)] + [before (or/c (is-a?/c snip%) #f)] [x real?] [y real?]) void?]{ @@ -1099,7 +1099,7 @@ Attempts to resize a given snip. If the snip allows resizing, @defmethod[(set-after [snip (is-a?/c snip%)] - [after (or/c (is-a?/c snip%) false/c)]) + [after (or/c (is-a?/c snip%) #f)]) void?]{ Changes the depth of @racket[snip] moving it just behind @@ -1113,7 +1113,7 @@ See also @method[pasteboard% raise], @method[pasteboard% lower], and @defmethod[(set-before [snip (is-a?/c snip%)] - [before (or/c (is-a?/c snip%) false/c)]) + [before (or/c (is-a?/c snip%) #f)]) void?]{ Changes the depth of @racket[snip] moving it just in front of diff --git a/collects/scribblings/gui/popup-menu-class.scrbl b/collects/scribblings/gui/popup-menu-class.scrbl index 57d2329093..39e508928f 100644 --- a/collects/scribblings/gui/popup-menu-class.scrbl +++ b/collects/scribblings/gui/popup-menu-class.scrbl @@ -13,7 +13,7 @@ however, displays a single value that the user selects from a popup control, and it is not accessible to the programmer. -@defconstructor[([title (or/c label-string? false/c) #f] +@defconstructor[([title (or/c label-string? #f) #f] [popdown-callback ((is-a?/c popup-menu%) (is-a?/c control-event%) . -> . any) (lambda (p e) (void))] @@ -55,7 +55,7 @@ Returns the font used for the popup menu's items, which is optionally @defmethod[(get-popup-target) - (or/c (is-a?/c window<%>) (is-a?/c editor<%>) false/c)]{ + (or/c (is-a?/c window<%>) (is-a?/c editor<%>) #f)]{ Returns the context in which the popup menu is currently displayed, or @racket[#f] if it is not popped up in any window. diff --git a/collects/scribblings/gui/printer-dc-class.scrbl b/collects/scribblings/gui/printer-dc-class.scrbl index 12fd6a15d9..0fb2398321 100644 --- a/collects/scribblings/gui/printer-dc-class.scrbl +++ b/collects/scribblings/gui/printer-dc-class.scrbl @@ -20,7 +20,7 @@ When a @racket[printer-dc%] object is created, the user gets If the user cancels the dialog, the @method[dc<%> ok?] method of the object returns @racket[#f]. -@defconstructor[([parent (or/c (is-a?/c frame%) (is-a?/c dialog%) false/c) #f])]{ +@defconstructor[([parent (or/c (is-a?/c frame%) (is-a?/c dialog%) #f) #f])]{ If @racket[parent] is not @racket[#f], it is used as the parent window of the configuration dialog. diff --git a/collects/scribblings/gui/radio-box-class.scrbl b/collects/scribblings/gui/radio-box-class.scrbl index 777b1ce97a..fd0ac95e3f 100644 --- a/collects/scribblings/gui/radio-box-class.scrbl +++ b/collects/scribblings/gui/radio-box-class.scrbl @@ -17,16 +17,16 @@ Whenever the user changes the selected radio button, the radio box's -@defconstructor[([label (or/c label-string? false/c)] +@defconstructor[([label (or/c label-string? #f)] [choices (or/c (listof label-string?) (listof (is-a?/c bitmap%)))] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] [callback ((is-a?/c radio-box%) (is-a?/c control-event%) . -> . any) (lambda (r e) (void))] - [style (listof (one-of/c 'horizontal 'vertical - 'vertical-label 'horizontal-label - 'deleted)) + [style (listof (or/c 'horizontal 'vertical + 'vertical-label 'horizontal-label + 'deleted)) '(vertical)] [selection (or/c exact-nonnegative-integer? #f) 0] [font (is-a?/c font%) normal-control-font] diff --git a/collects/scribblings/gui/readable-snip-intf.scrbl b/collects/scribblings/gui/readable-snip-intf.scrbl index 1b09b2e346..886a53751c 100644 --- a/collects/scribblings/gui/readable-snip-intf.scrbl +++ b/collects/scribblings/gui/readable-snip-intf.scrbl @@ -18,9 +18,9 @@ Since @racket[read] and @racket[read-syntax] build on containing the snip. @defmethod[(read-special [source any/c] - [line (or/c exact-nonnegative-integer? false/c)] - [column (or/c exact-nonnegative-integer? false/c)] - [position (or/c exact-nonnegative-integer? false/c)]) + [line (or/c exact-nonnegative-integer? #f)] + [column (or/c exact-nonnegative-integer? #f)] + [position (or/c exact-nonnegative-integer? #f)]) any/c]{ The arguments are the same as the arguments to a procedure returned by diff --git a/collects/scribblings/gui/scroll-event-class.scrbl b/collects/scribblings/gui/scroll-event-class.scrbl index f541dce73a..7149a8b0ff 100644 --- a/collects/scribblings/gui/scroll-event-class.scrbl +++ b/collects/scribblings/gui/scroll-event-class.scrbl @@ -13,10 +13,10 @@ See -@defconstructor[([event-type (one-of/c 'top 'bottom 'line-up 'line-down - 'page-up 'page-down 'thumb) +@defconstructor[([event-type (or/c 'top 'bottom 'line-up 'line-down + 'page-up 'page-down 'thumb) 'thumb] - [direction (one-of/c 'horizontal 'vertical) 'vertical] + [direction (or/c 'horizontal 'vertical) 'vertical] [position (integer-in 0 10000) 0] [time-stamp exact-integer? 0])]{ @@ -27,7 +27,7 @@ See the corresponding @racket[get-] and @racket[set-] methods for } @defmethod[(get-direction) - (one-of/c 'horizontal 'vertical)]{ + (or/c 'horizontal 'vertical)]{ Gets the identity of the scrollbar that was modified by the event, either the horizontal scrollbar or the vertical scrollbar, as @@ -37,7 +37,8 @@ Gets the identity of the scrollbar that was modified by the event, } @defmethod[(get-event-type) - (one-of/c 'top 'bottom 'line-up 'line-down 'page-up 'page-down 'thumb)]{ + (or/c 'top 'bottom 'line-up 'line-down + 'page-up 'page-down 'thumb)]{ Returns the type of the event, one of the following: @@ -61,7 +62,7 @@ Returns the position of the scrollbar after the action triggering the } -@defmethod[(set-direction [direction (one-of/c 'horizontal 'vertical)]) +@defmethod[(set-direction [direction (or/c 'horizontal 'vertical)]) void?]{ Sets the identity of the scrollbar that was modified by the event, @@ -71,8 +72,8 @@ Sets the identity of the scrollbar that was modified by the event, } -@defmethod[(set-event-type [type (one-of/c 'top 'bottom 'line-up 'line-down - 'page-up 'page-down 'thumb)]) +@defmethod[(set-event-type [type (or/c 'top 'bottom 'line-up 'line-down + 'page-up 'page-down 'thumb)]) void?]{ Sets the type of the event. See @method[scroll-event% get-event-type] diff --git a/collects/scribblings/gui/selectable-menu-item-intf.scrbl b/collects/scribblings/gui/selectable-menu-item-intf.scrbl index 5d41f0b1c1..23c6b6eb5e 100644 --- a/collects/scribblings/gui/selectable-menu-item-intf.scrbl +++ b/collects/scribblings/gui/selectable-menu-item-intf.scrbl @@ -22,7 +22,7 @@ Invokes the menu item's callback procedure, which is supplied when an } @defmethod[(get-shortcut) - (or/c char? symbol? false/c)]{ + (or/c char? symbol? #f)]{ Gets the keyboard shortcut character or virtual key for the menu item. This character or key is combined with the shortcut prefix, @@ -43,7 +43,7 @@ For a list of allowed key symbols, see @xmethod[key-event% } @defmethod[(get-shortcut-prefix) - (listof (one-of/c 'alt 'cmd 'meta 'ctl 'shift 'option))]{ + (listof (or/c 'alt 'cmd 'meta 'ctl 'shift 'option))]{ Returns a list of symbols that indicates the keyboard prefix used for the menu item's keyboard shortcut. The allowed symbols for the list are the following: @@ -88,7 +88,7 @@ An empty list can be used for a shortcut prefix. However, the default } -@defmethod[(set-shortcut [shortcut (or/c char? symbol? false/c)]) +@defmethod[(set-shortcut [shortcut (or/c char? symbol? #f)]) void?]{ Sets the keyboard shortcut character for the menu item. See @@ -99,7 +99,7 @@ keyboard shortcut. } -@defmethod[(set-shortcut-prefix [prefix (listof (one-of/c 'alt 'cmd 'meta 'ctl 'shift 'option))]) +@defmethod[(set-shortcut-prefix [prefix (listof (or/c 'alt 'cmd 'meta 'ctl 'shift 'option))]) void?]{ Sets a list of symbols to indicates the keyboard prefix used for the diff --git a/collects/scribblings/gui/slider-class.scrbl b/collects/scribblings/gui/slider-class.scrbl index e325fe3fb9..3c48cef6ba 100644 --- a/collects/scribblings/gui/slider-class.scrbl +++ b/collects/scribblings/gui/slider-class.scrbl @@ -14,16 +14,16 @@ Whenever the user changes the value of a slider, its callback -@defconstructor[([label (or/c label-string? false/c)] +@defconstructor[([label (or/c label-string? #f)] [min-value (integer-in -10000 10000)] [max-value (integer-in -10000 10000)] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] [callback ((is-a?/c slider%) (is-a?/c control-event%) . -> . any) (lambda (b e) (void))] [init-value (integer-in -10000 10000) min-value] - [style (listof (one-of/c 'horizontal 'vertical 'plain - 'vertical-label 'horizontal-label - 'deleted)) + [style (listof (or/c 'horizontal 'vertical 'plain + 'vertical-label 'horizontal-label + 'deleted)) '(horizontal)] [font (is-a?/c font%) normal-control-font] [enabled any/c #t] diff --git a/collects/scribblings/gui/snip-admin-class.scrbl b/collects/scribblings/gui/snip-admin-class.scrbl index 8386ed6df9..992555f63b 100644 --- a/collects/scribblings/gui/snip-admin-class.scrbl +++ b/collects/scribblings/gui/snip-admin-class.scrbl @@ -27,7 +27,7 @@ Creates a (useless) editor administrator. } @defmethod[(get-dc) - (or/c (is-a?/c dc<%>) false/c)]{ + (or/c (is-a?/c dc<%>) #f)]{ Gets a drawing context suitable for determining display size information. If the snip is not displayed, @racket[#f] is returned. @@ -42,11 +42,11 @@ Returns the editor that this administrator reports to (directly or } -@defmethod[(get-view [x (or/c (box/c real?) false/c)] - [y (or/c (box/c real?) false/c)] - [w (or/c (box/c (and/c real? (not/c negative?))) false/c)] - [h (or/c (box/c (and/c real? (not/c negative?))) false/c)] - [snip (or/c (is-a?/c snip%) false/c) #f]) +@defmethod[(get-view [x (or/c (box/c real?) #f)] + [y (or/c (box/c real?) #f)] + [w (or/c (box/c (and/c real? (not/c negative?))) #f)] + [h (or/c (box/c (and/c real? (not/c negative?))) #f)] + [snip (or/c (is-a?/c snip%) #f) #f]) void?]{ @methspec{ @@ -78,8 +78,8 @@ Fills all boxes with @racket[0.0]. }} -@defmethod[(get-view-size [h (or/c (box/c (and/c real? (not/c negative?))) false/c)] - [w (or/c (box/c (and/c real? (not/c negative?))) false/c)]) +@defmethod[(get-view-size [h (or/c (box/c (and/c real? (not/c negative?))) #f)] + [w (or/c (box/c (and/c real? (not/c negative?))) #f)]) void?]{ @methspec{ @@ -243,7 +243,7 @@ Does nothing. [w (and/c real? (not/c negative?))] [h (and/c real? (not/c negative?))] [refresh? any/c] - [bias (one-of/c 'start 'end 'none) 'none]) + [bias (or/c 'start 'end 'none) 'none]) boolean?]{ @methspec{ @@ -283,7 +283,7 @@ Returns @racket[#f]. }} @defmethod[(set-caret-owner [snip (is-a?/c snip%)] - [domain (one-of/c 'immediate 'display 'global)]) + [domain (or/c 'immediate 'display 'global)]) void?]{ @methspec{ diff --git a/collects/scribblings/gui/snip-class-class.scrbl b/collects/scribblings/gui/snip-class-class.scrbl index 5659e384c7..7aa85b5293 100644 --- a/collects/scribblings/gui/snip-class-class.scrbl +++ b/collects/scribblings/gui/snip-class-class.scrbl @@ -60,7 +60,7 @@ Returns the version of this snip class. When attempting to load a file } @defmethod[(read [f (is-a?/c editor-stream-in%)]) - (or/c (is-a?/c snip%) false/c)]{ + (or/c (is-a?/c snip%) #f)]{ @methspec{ diff --git a/collects/scribblings/gui/snip-class-list-intf.scrbl b/collects/scribblings/gui/snip-class-list-intf.scrbl index b56bc961a0..d53375db4e 100644 --- a/collects/scribblings/gui/snip-class-list-intf.scrbl +++ b/collects/scribblings/gui/snip-class-list-intf.scrbl @@ -19,7 +19,7 @@ Adds a snip class to the list. If a class with the same name already } @defmethod[(find [name string?]) - (or/c (is-a?/c snip-class%) false/c)]{ + (or/c (is-a?/c snip-class%) #f)]{ Finds a snip class from the list with the given name, returning @racket[#f] if none is found. @@ -34,7 +34,7 @@ Returns an index into the list for the specified class. } @defmethod[(nth [n exact-nonnegative-integer?]) - (or/c (is-a?/c snip-class%) false/c)]{ + (or/c (is-a?/c snip-class%) #f)]{ Returns the @racket[n]th class in the list, or @racket[#f] if the list has @racket[n] classes or less. diff --git a/collects/scribblings/gui/snip-class.scrbl b/collects/scribblings/gui/snip-class.scrbl index b139382a00..4f8a71d53a 100644 --- a/collects/scribblings/gui/snip-class.scrbl +++ b/collects/scribblings/gui/snip-class.scrbl @@ -90,7 +90,7 @@ Creates a plain snip of length 1 with the @racket["Basic"] style of [editorx real?] [editory real?] [event (is-a?/c mouse-event%)]) - (or/c (is-a?/c cursor%) false/c)]{ + (or/c (is-a?/c cursor%) #f)]{ @methspec{ @@ -122,10 +122,10 @@ The drawing context and snip's @techlink{location}s in drawing context } -@defmethod[(can-do-edit-operation? [op (one-of/c 'undo 'redo 'clear 'cut 'copy - 'paste 'kill 'select-all - 'insert-text-box 'insert-pasteboard-box - 'insert-image)] +@defmethod[(can-do-edit-operation? [op (or/c 'undo 'redo 'clear 'cut 'copy + 'paste 'kill 'select-all + 'insert-text-box 'insert-pasteboard-box + 'insert-image)] [recursive? any/c #t]) boolean?]{ @@ -147,10 +147,10 @@ Creates and returns a copy of this snip. The @method[snip% copy] } -@defmethod[(do-edit-operation [op (one-of/c 'undo 'redo 'clear 'cut 'copy - 'paste 'kill 'select-all - 'insert-text-box 'insert-pasteboard-box - 'insert-image)] +@defmethod[(do-edit-operation [op (or/c 'undo 'redo 'clear 'cut 'copy + 'paste 'kill 'select-all + 'insert-text-box 'insert-pasteboard-box + 'insert-image)] [recursive? any/c #t] [time exact-integer? 0]) void?]{ @@ -265,7 +265,7 @@ Returns @racket[0]. }} @defmethod[(get-admin) - (or/c (is-a?/c snip-admin%) false/c)]{ + (or/c (is-a?/c snip-admin%) #f)]{ Returns the administrator for this snip. (The administrator can be @racket[#f] even if the snip is owned but not visible in the editor.) @@ -283,12 +283,12 @@ Returns the snip's @techlink{count} (i.e., number of @techlink{item}s @defmethod[(get-extent [dc (is-a?/c dc<%>)] [x real?] [y real?] - [w (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [h (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [descent (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [space (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [lspace (or/c (box/c (and/c real? (not/c negative?))) false/c) #f] - [rspace (or/c (box/c (and/c real? (not/c negative?))) false/c) #f]) + [w (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [h (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [descent (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [space (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [lspace (or/c (box/c (and/c real? (not/c negative?))) #f) #f] + [rspace (or/c (box/c (and/c real? (not/c negative?))) #f) #f]) void?]{ @methspec{ @@ -532,7 +532,7 @@ Returns @racket[#t] if the @racket[snip] and @this-obj[] are from the @defmethod[(merge-with [prev (is-a?/c snip%)]) - (or/c (is-a?/c snip%) false/c)]{ + (or/c (is-a?/c snip%) #f)]{ @methspec{ @@ -557,7 +557,7 @@ Returns @racket[#f]. @defmethod[(next) - (or/c (is-a?/c snip%) false/c)]{ + (or/c (is-a?/c snip%) #f)]{ Returns the next snip in the editor owning this snip, or @racket[#f] if this is the last snip. @@ -677,7 +677,7 @@ Returns @racket[0.0]. @defmethod[(previous) - (or/c (is-a?/c snip%) false/c)]{ + (or/c (is-a?/c snip%) #f)]{ Returns the previous snip in the editor owning this snip, or @racket[#f] if this is the first snip. @@ -727,7 +727,7 @@ Returns @racket[#f]. }} -@defmethod[(set-admin [admin (or/c (is-a?/c snip-admin%) false/c)]) +@defmethod[(set-admin [admin (or/c (is-a?/c snip-admin%) #f)]) void?]{ Sets the snip's administrator. Only an administrator should call this diff --git a/collects/scribblings/gui/style-delta-class.scrbl b/collects/scribblings/gui/style-delta-class.scrbl index 766a9280d6..79576611aa 100644 --- a/collects/scribblings/gui/style-delta-class.scrbl +++ b/collects/scribblings/gui/style-delta-class.scrbl @@ -219,7 +219,7 @@ Gets the multiplicative color shift for the background (applied before } @defmethod[(get-face) - (or/c string? false/c)]{ + (or/c string? #f)]{ Gets the delta's font face string. If this string is @racket[#f] and the family is @indexed-racket['base] when the delta is applied to a style, @@ -486,7 +486,7 @@ For the case that a string color name is supplied, see } -@defmethod[(set-face [v (or/c string? false/c)]) +@defmethod[(set-face [v (or/c string? #f)]) void?]{See @method[style-delta% get-face]. See also @method[style-delta% set-delta-face]. diff --git a/collects/scribblings/gui/style-intf.scrbl b/collects/scribblings/gui/style-intf.scrbl index cada230cc4..7fa53c4c61 100644 --- a/collects/scribblings/gui/style-intf.scrbl +++ b/collects/scribblings/gui/style-intf.scrbl @@ -12,7 +12,7 @@ See also @|stylediscuss|. @defmethod[(get-alignment) - (one-of/c 'top 'center 'bottom)]{ + (or/c 'top 'center 'bottom)]{ Returns the style's alignment: @racket['top], @racket['center], or @racket['bottom]. @@ -29,7 +29,7 @@ Returns the style's background color. @defmethod[(get-base-style) - (or/c (is-a?/c style<%>) false/c)]{ + (or/c (is-a?/c style<%>) #f)]{ Returns the style's base style. See @|stylediscuss| for more information. The return value is @racket[#f] only for the basic style @@ -46,7 +46,7 @@ Mutates @racket[delta], changing it to match the style's delta, if the style is } @defmethod[(get-face) - (or/c string? false/c)]{ + (or/c string? #f)]{ Returns the style's face name. See @racket[font%]. @@ -54,8 +54,8 @@ Returns the style's face name. See @racket[font%]. @defmethod[(get-family) - (one-of/c 'default 'decorative 'roman 'script - 'swiss 'modern 'symbol 'system)]{ + (or/c 'default 'decorative 'roman 'script + 'swiss 'modern 'symbol 'system)]{ Returns the style's font family. See @racket[font%]. @@ -76,7 +76,7 @@ Returns the style's foreground color. } @defmethod[(get-name) - (or/c string? false/c)]{ + (or/c string? #f)]{ Returns the style's name, or @racket[#f] if it is unnamed. Style names are only set through the style's @racket[style-list%] object. @@ -107,14 +107,14 @@ Returns @racket[#t] if the style size is in pixels, instead of points, } @defmethod[(get-smoothing) - (one-of/c 'default 'partly-smoothed 'smoothed 'unsmoothed)]{ + (or/c 'default 'partly-smoothed 'smoothed 'unsmoothed)]{ Returns the style's font smoothing. See @racket[font%]. } @defmethod[(get-style) - (one-of/c 'normal 'italic 'slant)]{ + (or/c 'normal 'italic 'slant)]{ Returns the style's font style. See @racket[font%]. @@ -166,7 +166,7 @@ Returns @racket[#t] if the style is underlined or @racket[#f] } @defmethod[(get-weight) - (one-of/c 'normal 'bold 'light)]{ + (or/c 'normal 'bold 'light)]{ Returns the style's font weight. See @racket[font%]. @@ -205,7 +205,7 @@ the style's font, etc. See @|stylediscuss| for more information. } @defmethod[(switch-to [dc (is-a?/c dc<%>)] - [old-style (or/c (is-a?/c style<%>) false/c)]) + [old-style (or/c (is-a?/c style<%>) #f)]) void?]{ Sets the font, pen color, etc. of the given drawing context. If diff --git a/collects/scribblings/gui/style-list-class.scrbl b/collects/scribblings/gui/style-list-class.scrbl index 346a04f19c..97c911b2c4 100644 --- a/collects/scribblings/gui/style-list-class.scrbl +++ b/collects/scribblings/gui/style-list-class.scrbl @@ -47,7 +47,7 @@ a new style in this list. } @defmethod[(find-named-style [name string?]) - (or/c (is-a?/c style<%>) false/c)]{ + (or/c (is-a?/c style<%>) #f)]{ Finds a style by name. If no such style can be found, @racket[#f] is returned. @@ -97,7 +97,7 @@ notify-on-change]. @defmethod[(index-to-style [i exact-nonnegative-integer?]) - (or/c (is-a?/c style<%>) false/c)]{ + (or/c (is-a?/c style<%>) #f)]{ Returns the style associated with the given index, or @racket[#f] for a bad index. See also @method[style-list% style-to-index]. @@ -158,7 +158,7 @@ Like @method[style-list% new-named-style], except that if the name is } @defmethod[(style-to-index [style (is-a?/c style<%>)]) - (or/c exact-nonnegative-integer? false/c)]{ + (or/c exact-nonnegative-integer? #f)]{ Returns the index for a particular style. The index for a style's base style (and shift style, if it is a join style) is guaranteed to be diff --git a/collects/scribblings/gui/system-menu-funcs.scrbl b/collects/scribblings/gui/system-menu-funcs.scrbl index 3475b37646..9436a4d3df 100644 --- a/collects/scribblings/gui/system-menu-funcs.scrbl +++ b/collects/scribblings/gui/system-menu-funcs.scrbl @@ -87,8 +87,8 @@ or has no effect (when called with a handler). @defproc*[([(application-preferences-handler) - (or/c (-> any) false/c)] - [(application-preferences-handler [handler-thunk (or/c (-> any) false/c)]) + (or/c (-> any) #f)] + [(application-preferences-handler [handler-thunk (or/c (-> any) #f)]) void?])]{ When the current eventspace is the initial eventspace, this procedure retrieves or installs a thunk that is called when the user selects diff --git a/collects/scribblings/gui/tab-panel-class.scrbl b/collects/scribblings/gui/tab-panel-class.scrbl index cdac282913..40d486e03b 100644 --- a/collects/scribblings/gui/tab-panel-class.scrbl +++ b/collects/scribblings/gui/tab-panel-class.scrbl @@ -21,15 +21,15 @@ The @racket[tab-panel%] class does not implement the virtual [callback ((is-a?/c tab-panel%) (is-a?/c control-event%) . -> . any) (lambda (b e) (void))] - [style (listof (one-of/c 'no-border 'deleted)) null] + [style (listof (or/c 'no-border 'deleted)) null] [font (is-a?/c font%) normal-control-font] [enabled any/c #t] [vert-margin (integer-in 0 1000) 0] [horiz-margin (integer-in 0 1000) 0] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(center top)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] @@ -91,7 +91,7 @@ Returns the number of tabs on the panel. } @defmethod[(get-selection) - (or/c exact-nonnegative-integer? false/c)]{ + (or/c exact-nonnegative-integer? #f)]{ Returns the index (counting from 0) of the currently selected tab. If the panel has no tabs, the result is @racket[#f]. diff --git a/collects/scribblings/gui/text-field-class.scrbl b/collects/scribblings/gui/text-field-class.scrbl index 2fd4421091..05f388c044 100644 --- a/collects/scribblings/gui/text-field-class.scrbl +++ b/collects/scribblings/gui/text-field-class.scrbl @@ -36,16 +36,16 @@ The keymap for the text field's editor is initialized by calling the @racket[current-text-keymap-initializer] parameter. -@defconstructor[([label (or/c label-string? false/c)] +@defconstructor[([label (or/c label-string? #f)] [parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] [callback ((is-a?/c text-field%) (is-a?/c control-event%) . -> . any) (lambda (t e) (void))] [init-value string? ""] - [style (listof (one-of/c 'single 'multiple 'hscroll 'password - 'vertical-label 'horizontal-label - 'deleted)) + [style (listof (or/c 'single 'multiple 'hscroll 'password + 'vertical-label 'horizontal-label + 'deleted)) '(single)] [font (is-a?/c font%) normal-control-font] [enabled any/c #t] diff --git a/collects/scribblings/gui/timer-class.scrbl b/collects/scribblings/gui/timer-class.scrbl index cf8428b980..e71611e97b 100644 --- a/collects/scribblings/gui/timer-class.scrbl +++ b/collects/scribblings/gui/timer-class.scrbl @@ -23,7 +23,7 @@ See @secref["eventspaceinfo"] for more information about event @defconstructor[([notify-callback (-> any) void] - [interval (or/c (integer-in 0 1000000000) false/c) #f] + [interval (or/c (integer-in 0 1000000000) #f) #f] [just-once? any/c #f])]{ The @racket[notify-callback] thunk is called by the default diff --git a/collects/scribblings/gui/top-level-window-intf.scrbl b/collects/scribblings/gui/top-level-window-intf.scrbl index d097f85a43..d2edf67091 100644 --- a/collects/scribblings/gui/top-level-window-intf.scrbl +++ b/collects/scribblings/gui/top-level-window-intf.scrbl @@ -34,7 +34,7 @@ Calls @method[top-level-window<%> can-close?] and returns the result. }} -@defmethod[(center [direction (one-of/c 'horizontal 'vertical 'both) 'both]) +@defmethod[(center [direction (or/c 'horizontal 'vertical 'both) 'both]) void?]{ Centers the window on the screen if it has no parent. If it has a @@ -48,7 +48,7 @@ If @racket[direction] is @racket['horizontal], the window is centered } @defmethod[(get-edit-target-object) - (or/c (or/c (is-a?/c window<%>) (is-a?/c editor<%>)) false/c)]{ + (or/c (or/c (is-a?/c window<%>) (is-a?/c editor<%>)) #f)]{ @index['("keyboard focus" "last active")]{Like} @method[top-level-window<%> get-edit-target-window], but if an editor @@ -61,7 +61,7 @@ See also @method[top-level-window<%> get-focus-object]. } @defmethod[(get-edit-target-window) - (or/c (is-a?/c window<%>) false/c)]{ + (or/c (is-a?/c window<%>) #f)]{ @index['("keyboard focus" "last active")]{Returns} the window that most recently had the keyboard focus, either the top-level window or @@ -81,7 +81,7 @@ Returns the window's eventspace. } @defmethod[(get-focus-object) - (or/c (or/c (is-a?/c window<%>) (is-a?/c editor<%>)) false/c)]{ + (or/c (or/c (is-a?/c window<%>) (is-a?/c editor<%>)) #f)]{ @index["keyboard focus"]{Like} @method[top-level-window<%> get-focus-window], but if an editor canvas has the focus and it also @@ -94,7 +94,7 @@ See also @method[top-level-window<%> get-edit-target-object]. } @defmethod[(get-focus-window) - (or/c (is-a?/c window<%>) false/c)]{ + (or/c (is-a?/c window<%>) #f)]{ @index["keyboard focus"]{Returns} the window that has the keyboard focus, either the top-level window or one of its children. If neither @@ -315,7 +315,7 @@ Sets the size of the window (in pixels), but only if the given size is @defmethod[(set-icon [icon (is-a?/c bitmap%)] [mask (is-a?/c bitmap%) #f] - [which (one-of/c 'small 'large 'both) 'both]) + [which (or/c 'small 'large 'both) 'both]) void?]{ Sets the large or small icon bitmap for the window. Future changes to diff --git a/collects/scribblings/gui/vertical-pane-class.scrbl b/collects/scribblings/gui/vertical-pane-class.scrbl index b91a535041..614df98378 100644 --- a/collects/scribblings/gui/vertical-pane-class.scrbl +++ b/collects/scribblings/gui/vertical-pane-class.scrbl @@ -14,8 +14,8 @@ A vertical pane arranges its subwindows in a single column. See also @racket[pan [horiz-margin (integer-in 0 1000) 0] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(center top)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] diff --git a/collects/scribblings/gui/vertical-panel-class.scrbl b/collects/scribblings/gui/vertical-panel-class.scrbl index ab0a2d3e2d..3d538c4c83 100644 --- a/collects/scribblings/gui/vertical-panel-class.scrbl +++ b/collects/scribblings/gui/vertical-panel-class.scrbl @@ -11,16 +11,16 @@ A vertical panel arranges its subwindows in a single column. See @defconstructor[([parent (or/c (is-a?/c frame%) (is-a?/c dialog%) (is-a?/c panel%) (is-a?/c pane%))] - [style (listof (one-of/c 'border 'deleted - 'hscroll 'auto-hscroll - 'vscroll 'auto-vscroll)) null] + [style (listof (or/c 'border 'deleted + 'hscroll 'auto-hscroll + 'vscroll 'auto-vscroll)) null] [enabled any/c #t] [vert-margin (integer-in 0 1000) 0] [horiz-margin (integer-in 0 1000) 0] [border (integer-in 0 1000) 0] [spacing (integer-in 0 1000) 0] - [alignment (list/c (one-of/c 'left 'center 'right) - (one-of/c 'top 'center 'bottom)) + [alignment (list/c (or/c 'left 'center 'right) + (or/c 'top 'center 'bottom)) '(center top)] [min-width (integer-in 0 10000) _graphical-minimum-width] [min-height (integer-in 0 10000) _graphical-minimum-height] diff --git a/collects/scribblings/gui/window-intf.scrbl b/collects/scribblings/gui/window-intf.scrbl index 65e790ffbc..f363a5d4ca 100644 --- a/collects/scribblings/gui/window-intf.scrbl +++ b/collects/scribblings/gui/window-intf.scrbl @@ -160,10 +160,10 @@ See also @defmethod[(get-label) (or/c label-string? (is-a?/c bitmap%) - (one-of/c 'app 'caution 'stop) + (or/c 'app 'caution 'stop) (list/c (is-a?/c bitmap%) label-string? - (one-of/c 'left 'top 'right 'bottom)) + (or/c 'left 'top 'right 'bottom)) #f)]{ Gets a window's label, if any. Control windows generally display their diff --git a/collects/scribblings/gui/wxme.scrbl b/collects/scribblings/gui/wxme.scrbl index d350ff4511..9378e425a0 100644 --- a/collects/scribblings/gui/wxme.scrbl +++ b/collects/scribblings/gui/wxme.scrbl @@ -95,7 +95,7 @@ any) is consumed.} @defproc[(register-lib-mapping! [str string?] - [mod-path (cons/c (one-of/c 'lib) (listof string?))]) + [mod-path (cons/c 'lib (listof string?))]) void?]{ Maps a snip-class name to a quoted module path that provides a @@ -106,7 +106,7 @@ contains only alpha-numeric ASCII characters, @litchar{.}, @defproc[(string->lib-path [str string?] [gui? any/c]) - (cons/c (one-of/c 'lib) (listof string?))]{ + (cons/c 'lib (listof string?))]{ Returns a quoted module path for @racket[str] for either @racket[editor<%>] mode when @racket[gui?] is true, or @@ -198,9 +198,9 @@ An interface to be implemented by values returned from a snip reader. The only method is @method[readable<%> read-special]. @defmethod[(read-special [source any/c] - [line (or/c exact-nonnegative-integer? false/c)] - [column (or/c exact-nonnegative-integer? false/c)] - [position (or/c exact-nonnegative-integer? false/c)]) + [line (or/c exact-nonnegative-integer? #f)] + [column (or/c exact-nonnegative-integer? #f)] + [position (or/c exact-nonnegative-integer? #f)]) any/c]{ Like @method[readable-snip<%> read-special], but for non-graphical @@ -385,17 +385,17 @@ in case old code still needs them. In other words, the methods below are provided for backwards compatibility with earlier verisons of Racket. -@defmethod[(get-data) (or/c bytes? false/c)]{ +@defmethod[(get-data) (or/c bytes? #f)]{ Returns bytes for a PNG, XBM,or XPM file for the image.} -@defmethod[(get-w) (or/c exact-nonnegative-integer? (one-of/c -1))]{ +@defmethod[(get-w) (or/c exact-nonnegative-integer? -1)]{ Returns the display width of the image, which may differ from the width of the actual image specified as data or by a filename; -1 means that the image data's width should be used.} -@defmethod[(get-h) (or/c exact-nonnegative-integer? (one-of/c -1))]{ +@defmethod[(get-h) (or/c exact-nonnegative-integer? -1)]{ Returns the display height of the image, which may differ from the height of the actual image specified as data or by a filename; -1 @@ -430,16 +430,16 @@ A text-mode reader for comment boxes.}] Instantiated for DrRacket comment boxes in a @tech{WXME} stream for text mode. -@defmethod[(get-data) false/c]{ +@defmethod[(get-data) #f]{ No data is available. } @defmethod[(read-special [source any/c] - [line (or/c exact-nonnegative-integer? false/c)] - [column (or/c exact-nonnegative-integer? false/c)] - [position (or/c exact-nonnegative-integer? false/c)]) + [line (or/c exact-nonnegative-integer? #f)] + [column (or/c exact-nonnegative-integer? #f)] + [position (or/c exact-nonnegative-integer? #f)]) any/c]{ Generates a special comment using @racket[make-special-comment]. The @@ -470,9 +470,9 @@ Returns @racket[#t] if whitespace is elimited from the contained XML literal, @racket[#f] otherwise.} @defmethod[(read-special [source any/c] - [line (or/c exact-nonnegative-integer? false/c)] - [column (or/c exact-nonnegative-integer? false/c)] - [position (or/c exact-nonnegative-integer? false/c)]) + [line (or/c exact-nonnegative-integer? #f)] + [column (or/c exact-nonnegative-integer? #f)] + [position (or/c exact-nonnegative-integer? #f)]) any/c]{ Generates a @racket[quasiquote] S-expression that enclosed the XML, @@ -504,9 +504,9 @@ Returns @racket[#t] if the box corresponds to a splicing unquote, @racket[#f] for a non-splicing unquote.} @defmethod[(read-special [source any/c] - [line (or/c exact-nonnegative-integer? false/c)] - [column (or/c exact-nonnegative-integer? false/c)] - [position (or/c exact-nonnegative-integer? false/c)]) + [line (or/c exact-nonnegative-integer? #f)] + [column (or/c exact-nonnegative-integer? #f)] + [position (or/c exact-nonnegative-integer? #f)]) any/c]{ Generates an S-expression for the code in the box.} @@ -530,14 +530,14 @@ A text-mode reader for text boxes.}] Instantiated for DrRacket text boxes in a @tech{WXME} stream for text mode. -@defmethod[(get-data) false/c]{ +@defmethod[(get-data) #f]{ No data is available.} @defmethod[(read-special [source any/c] - [line (or/c exact-nonnegative-integer? false/c)] - [column (or/c exact-nonnegative-integer? false/c)] - [position (or/c exact-nonnegative-integer? false/c)]) + [line (or/c exact-nonnegative-integer? #f)] + [column (or/c exact-nonnegative-integer? #f)] + [position (or/c exact-nonnegative-integer? #f)]) any/c]{ Generates a string containing the text.} @@ -612,7 +612,7 @@ generates instances of @racket[test-case%].}] Instantiated for old-style DrRacket test-case boxes in a @tech{WXME} stream for text mode. -@defmethod[(get-comment) (or/c false/c input-port?)]{ +@defmethod[(get-comment) (or/c #f input-port?)]{ Returns a port for the comment field, if any.} @@ -624,11 +624,11 @@ Returns a port for the ``test'' field.} Returns a port for the ``expected'' field.} -@defmethod[(get-should-raise) (or/c false/c input-port?)]{ +@defmethod[(get-should-raise) (or/c #f input-port?)]{ Returns a port for the ``should raise'' field, if any.} -@defmethod[(get-error-message) (or/c false/c input-port?)]{ +@defmethod[(get-error-message) (or/c #f input-port?)]{ Returns a port for the ``error msg'' field, if any.}