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

changed some one-of/c's to or/c's

Browse Source 
svn: r18185
This commit is contained in:
Robby Findler 2010-02-19 15:03:12 +00:00
parent 94666a89cd
commit 94880b4733
3 changed files with 113 additions and 113 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
collects/scribblings/gui/editor-intf.scrbl
View File

@ -260,9 +260,9 @@ Propagates the request to any snip with the editor-local focus.
}} }}
@defmethod[(can-do-edit-operation? [op (one-of/c 'undo 'redo 'clear 'cut 'copy 'paste @defmethod[(can-do-edit-operation? [op (or/c 'undo 'redo 'clear 'cut 'copy 'paste
'kill 'select-all 'insert-text-box 'kill 'select-all 'insert-text-box
'insert-pasteboard-box 'insert-image)] 'insert-pasteboard-box 'insert-image)]
[recursive? any/c #t]) [recursive? any/c #t])
boolean?]{ boolean?]{
@methspec{ @methspec{
@ -282,8 +282,8 @@ locked, etc.
@defmethod[#:mode pubment @defmethod[#:mode pubment
(can-load-file? [filename path?] (can-load-file? [filename path?]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr)]) 'text 'text-force-cr)])
boolean?]{ boolean?]{
@methspec{ @methspec{
@ -308,8 +308,8 @@ Returns @scheme[#t].
@defmethod[#:mode pubment @defmethod[#:mode pubment
(can-save-file? [filename path?] (can-save-file? [filename path?]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr)]) 'text 'text-force-cr)])
boolean?]{ boolean?]{
@methspec{ @methspec{
@ -462,9 +462,9 @@ Returns the name of a style to be used for newly inserted text,
See @xmethod[text% do-copy] or @xmethod[pasteboard% do-copy].} See @xmethod[text% do-copy] or @xmethod[pasteboard% do-copy].}
@defmethod[(do-edit-operation [op (one-of/c 'undo 'redo 'clear 'cut 'copy 'paste @defmethod[(do-edit-operation [op (or/c 'undo 'redo 'clear 'cut 'copy 'paste
'kill 'select-all 'insert-text-box 'kill 'select-all 'insert-text-box
'insert-pasteboard-box 'insert-image)] 'insert-pasteboard-box 'insert-image)]
[recursive? any/c #t] [recursive? any/c #t]
[time (and/c exact? integer?) 0]) [time (and/c exact? integer?) 0])
void?]{ void?]{
@ -700,7 +700,7 @@ See also @method[editor<%> set-caret-owner].
@defmethod[(get-inactive-caret-threshold) @defmethod[(get-inactive-caret-threshold)
(one-of/c 'no-caret 'show-inactive-caret 'show-caret)]{ (or/c 'no-caret 'show-inactive-caret 'show-caret)]{
Returns the threshold for painting an inactive selection. This Returns the threshold for painting an inactive selection. This
threshold is compared with the @scheme[draw-caret] argument to threshold is compared with the @scheme[draw-caret] argument to
@ -928,7 +928,7 @@ Inserts data into the editor. A snip cannot be inserted into multiple
} }
@defmethod[(insert-box [type (one-of/c 'text 'pasteboard) 'text]) @defmethod[(insert-box [type (or/c 'text 'pasteboard) 'text])
void?]{ void?]{
Inserts a box (a sub-editor) into the editor by calling Inserts a box (a sub-editor) into the editor by calling
@ -941,13 +941,13 @@ inserts the resulting snip into the editor.
@defmethod*[([(insert-file [filename path-string?] @defmethod*[([(insert-file [filename path-string?]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr) 'guess] 'text 'text-force-cr) 'guess]
[show-errors? any/c #t]) [show-errors? any/c #t])
boolean?] boolean?]
[(insert-file [port input-port?] [(insert-file [port input-port?]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr) 'guess] 'text 'text-force-cr) 'guess]
[show-errors? any/c #t]) [show-errors? any/c #t])
boolean?])]{ boolean?])]{
@ -967,7 +967,7 @@ The @scheme[show-errors?] argument is no longer used.
@defmethod[(insert-image [filename (or/c path-string? #f) #f] @defmethod[(insert-image [filename (or/c path-string? #f) #f]
[type (one-of/c 'unknown 'gif 'jpeg 'xbm 'xpm 'bmp 'pict) 'unknown] [type (or/c 'unknown 'gif 'jpeg 'xbm 'xpm 'bmp 'pict) 'unknown]
[relative-path? any/c #f] [relative-path? any/c #f]
[inline? any/c #t]) [inline? any/c #t])
void?]{ void?]{
@ -989,10 +989,10 @@ calling
} }
@defmethod[(insert-port [port input-port?] @defmethod[(insert-port [port input-port?]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr) 'guess] 'text 'text-force-cr) 'guess]
[replace-styles? any/c #t]) [replace-styles? any/c #t])
(one-of/c 'standard 'text 'text-force-cr)]{ (or/c 'standard 'text 'text-force-cr)]{
Use @method[editor<%> insert-file], instead. Use @method[editor<%> insert-file], instead.
@ -1081,8 +1081,8 @@ See also @method[editor<%> cut].
@defmethod[(load-file [filename (or/c path-string? #f) #f] @defmethod[(load-file [filename (or/c path-string? #f) #f]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr) 'guess] 'text 'text-force-cr) 'guess]
[show-errors? any/c #t]) [show-errors? any/c #t])
boolean?]{ boolean?]{
@ -1442,8 +1442,8 @@ Either passes this event on to a caret-owning snip, selects a new
@defmethod[#:mode pubment @defmethod[#:mode pubment
(on-load-file [filename path?] (on-load-file [filename path?]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr)]) 'text 'text-force-cr)])
void?]{ void?]{
@methspec{ @methspec{
@ -1503,7 +1503,7 @@ Either lets the keymap handle the event or calls
}} }}
@defmethod[(on-new-box [type (one-of/c 'text 'pasteboard)]) @defmethod[(on-new-box [type (or/c 'text 'pasteboard)])
(is-a?/c snip%)]{ (is-a?/c snip%)]{
@methspec{ @methspec{
@ -1524,7 +1524,7 @@ Creates a @scheme[editor-snip%] with either a sub-editor from
@defmethod[(on-new-image-snip [filename path?] @defmethod[(on-new-image-snip [filename path?]
[kind (one-of/c 'unknown 'gif 'jpeg 'xbm 'xpm 'bmp 'pict)] [kind (or/c 'unknown 'gif 'jpeg 'xbm 'xpm 'bmp 'pict)]
[relative-path? any/c] [relative-path? any/c]
[inline? any/c]) [inline? any/c])
(is-a?/c image-snip%)]{ (is-a?/c image-snip%)]{
@ -1552,7 +1552,7 @@ Returns @scheme[(make-object image-snip% filename kind relative-path? inline?)].
[bottom real?] [bottom real?]
[dx real?] [dx real?]
[dy real?] [dy real?]
[draw-caret (one-of/c 'no-caret 'show-inactive-caret 'show-caret)]) [draw-caret (or/c 'no-caret 'show-inactive-caret 'show-caret)])
void?]{ void?]{
@methspec{ @methspec{
@ -1602,8 +1602,8 @@ Does nothing.
@defmethod[#:mode pubment @defmethod[#:mode pubment
(on-save-file [filename path?] (on-save-file [filename path?]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr)]) 'text 'text-force-cr)])
void?]{ void?]{
@methspec{ @methspec{
@ -1712,7 +1712,7 @@ To extend or re-implement copying, override the @xmethod[text%
@defmethod[(print [interactive? any/c #t] @defmethod[(print [interactive? any/c #t]
[fit-on-page? any/c #t] [fit-on-page? any/c #t]
[output-mode (one-of/c 'standard 'postscript) 'standard] [output-mode (or/c 'standard 'postscript) 'standard]
[parent (or/c (or/c (is-a?/c frame%) (is-a?/c dialog%)) #f) #f] [parent (or/c (or/c (is-a?/c frame%) (is-a?/c dialog%)) #f) #f]
[force-ps-page-bbox? any/c #t] [force-ps-page-bbox? any/c #t]
[as-eps? any/c #f]) [as-eps? any/c #f])
@ -1891,7 +1891,7 @@ See also @method[editor<%> add-undo].
[y real?] [y real?]
[width (and/c real? (not/c negative?))] [width (and/c real? (not/c negative?))]
[height (and/c real? (not/c negative?))] [height (and/c real? (not/c negative?))]
[draw-caret (one-of/c 'no-caret 'show-inactive-caret 'show-caret)] [draw-caret (or/c 'no-caret 'show-inactive-caret 'show-caret)]
[background (or/c (is-a?/c color%) #f)]) [background (or/c (is-a?/c color%) #f)])
void?]{ void?]{
@ -1973,8 +1973,8 @@ If @scheme[redraw-now?] is @scheme[#f], the editor will require
@defmethod[(save-file [filename (or/c path-string? #f) #f] @defmethod[(save-file [filename (or/c path-string? #f) #f]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr) 'same] 'text 'text-force-cr) 'same]
[show-errors? any/c #t]) [show-errors? any/c #t])
boolean?]{ boolean?]{
@ -2004,8 +2004,8 @@ The @scheme[show-errors?] argument is no longer used.
@defmethod[(save-port [port output-port?] @defmethod[(save-port [port output-port?]
[format (one-of/c 'guess 'same 'copy 'standard [format (or/c 'guess 'same 'copy 'standard
'text 'text-force-cr) 'same] 'text 'text-force-cr) 'same]
[show-errors? any/c #t]) [show-errors? any/c #t])
boolean?]{ boolean?]{
@ -2025,7 +2025,7 @@ The @scheme[show-errors?] argument is no longer used.
[width (and/c real? (not/c negative?))] [width (and/c real? (not/c negative?))]
[height (and/c real? (not/c negative?))] [height (and/c real? (not/c negative?))]
[refresh? any/c] [refresh? any/c]
[bias (one-of/c 'start 'end 'none)]) [bias (or/c 'start 'end 'none)])
boolean?]{ boolean?]{
Causes the editor to be scrolled so that a given @techlink{location} Causes the editor to be scrolled so that a given @techlink{location}
@ -2061,7 +2061,7 @@ For @scheme[text%] objects: @|FCA| @|EVD|
[width (and/c real? (not/c negative?))] [width (and/c real? (not/c negative?))]
[height (and/c real? (not/c negative?))] [height (and/c real? (not/c negative?))]
[refresh? any/c] [refresh? any/c]
[bias (one-of/c 'start 'end 'none) 'none]) [bias (or/c 'start 'end 'none) 'none])
boolean?]{ boolean?]{
Called (indirectly) by snips within the editor: it causes the editor Called (indirectly) by snips within the editor: it causes the editor
@ -2120,7 +2120,7 @@ get-admin]}]
@defmethod[(set-caret-owner [snip (or/c (is-a?/c snip%) #f)] @defmethod[(set-caret-owner [snip (or/c (is-a?/c snip%) #f)]
[domain (one-of/c 'immediate 'display 'global) 'immediate]) [domain (or/c 'immediate 'display 'global) 'immediate])
void?]{ void?]{
Attempts to give the keyboard focus to @scheme[snip]. If @scheme[snip] is Attempts to give the keyboard focus to @scheme[snip]. If @scheme[snip] is
@ -2195,7 +2195,7 @@ This method is also called when the filename changes through any
} }
@defmethod[(set-inactive-caret-threshold [threshold (one-of/c 'no-caret 'show-inactive-caret 'show-caret)]) @defmethod[(set-inactive-caret-threshold [threshold (or/c 'no-caret 'show-inactive-caret 'show-caret)])
void?]{ void?]{
Sets the threshold for painting an inactive selection. See Sets the threshold for painting an inactive selection. See

120
collects/scribblings/gui/style-delta-class.scrbl
View File

@ -129,28 +129,28 @@ The family and face settings in a style delta are interdependent:
@defconstructor*/make[(([change-command (one-of/c 'change-nothing @defconstructor*/make[(([change-command (or/c 'change-nothing
'change-normal 'change-normal
'change-toggle-underline 'change-toggle-underline
'change-toggle-size-in-pixels 'change-toggle-size-in-pixels
'change-normal-color 'change-normal-color
'change-bold) 'change-bold)
'change-nothing]) 'change-nothing])
([change-command (one-of/c 'change-family ([change-command (or/c 'change-family
'change-style 'change-style
'change-toggle-style 'change-toggle-style
'change-weight 'change-weight
'change-toggle-weight 'change-toggle-weight
'change-smoothing 'change-smoothing
'change-toggle-smoothing 'change-toggle-smoothing
'change-alignment)] 'change-alignment)]
[v symbol]) [v symbol])
([change-command (one-of/c 'change-size ([change-command (or/c 'change-size
'change-bigger 'change-bigger
'change-smaller)] 'change-smaller)]
[v (integer-in 0 255)]) [v (integer-in 0 255)])
([change-command (one-of/c 'change-underline ([change-command (or/c 'change-underline
'change-size-in-pixels)] 'change-size-in-pixels)]
[v any/c]))]{ [v any/c]))]{
The initialization arguments are passed on to The initialization arguments are passed on to
@ -186,14 +186,14 @@ Returns @scheme[#t] if the given delta is equivalent to this one in
} }
@defmethod[(get-alignment-off) @defmethod[(get-alignment-off)
(one-of/c 'base 'top 'center 'bottom)]{ (or/c 'base 'top 'center 'bottom)]{
See @scheme[style-delta%]. See @scheme[style-delta%].
} }
@defmethod[(get-alignment-on) @defmethod[(get-alignment-on)
(one-of/c 'base 'top 'center 'bottom)]{ (or/c 'base 'top 'center 'bottom)]{
See @scheme[style-delta%]. See @scheme[style-delta%].
@ -232,8 +232,8 @@ See also @method[style-delta% get-family].
} }
@defmethod[(get-family) @defmethod[(get-family)
(one-of/c 'base 'default 'decorative 'roman 'script (or/c 'base 'default 'decorative 'roman 'script
'swiss 'modern 'symbol 'system)]{ 'swiss 'modern 'symbol 'system)]{
Returns the delta's font family. The possible values are Returns the delta's font family. The possible values are
@itemize[ @itemize[
@ -301,24 +301,24 @@ Gets the multiplicative font size shift (applied before the additive factor).
} }
@defmethod[(get-smoothing-off) @defmethod[(get-smoothing-off)
(one-of/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)]{ (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)]{
See @scheme[style-delta%]. See @scheme[style-delta%].
} }
@defmethod[(get-smoothing-on) @defmethod[(get-smoothing-on)
(one-of/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)]{See (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(get-style-off) @defmethod[(get-style-off)
(one-of/c 'base 'normal 'italic 'slant)]{See (or/c 'base 'normal 'italic 'slant)]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(get-style-on) @defmethod[(get-style-on)
(one-of/c 'base 'normal 'italic 'slant)]{See (or/c 'base 'normal 'italic 'slant)]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@ -343,50 +343,50 @@ See @scheme[style-delta%].
} }
@defmethod[(get-weight-off) @defmethod[(get-weight-off)
(one-of/c 'base 'normal 'bold 'light)]{See (or/c 'base 'normal 'bold 'light)]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(get-weight-on) @defmethod[(get-weight-on)
(one-of/c 'base 'normal 'bold 'light)]{See (or/c 'base 'normal 'bold 'light)]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(set-alignment-off [v (one-of/c 'base 'top 'center 'bottom)]) @defmethod[(set-alignment-off [v (or/c 'base 'top 'center 'bottom)])
void?]{See void?]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(set-alignment-on [v (one-of/c 'base 'top 'center 'bottom)]) @defmethod[(set-alignment-on [v (or/c 'base 'top 'center 'bottom)])
void?]{See void?]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod*[([(set-delta [change-command (one-of/c 'change-nothing @defmethod*[([(set-delta [change-command (or/c 'change-nothing
'change-normal 'change-normal
'change-toggle-underline 'change-toggle-underline
'change-toggle-size-in-pixels 'change-toggle-size-in-pixels
'change-normal-color 'change-normal-color
'change-bold) 'change-bold)
'change-nothing]) 'change-nothing])
(is-a?/c style-delta%)] (is-a?/c style-delta%)]
[(set-delta [change-command (one-of/c 'change-family [(set-delta [change-command (or/c 'change-family
'change-style 'change-style
'change-toggle-style 'change-toggle-style
'change-weight 'change-weight
'change-toggle-weight 'change-toggle-weight
'change-smoothing 'change-smoothing
'change-toggle-smoothing 'change-toggle-smoothing
'change-alignment)] 'change-alignment)]
[param symbol]) [param symbol])
(is-a?/c style-delta%)] (is-a?/c style-delta%)]
[(set-delta [change-command (one-of/c 'change-size [(set-delta [change-command (or/c 'change-size
'change-bigger 'change-bigger
'change-smaller)] 'change-smaller)]
[param (integer-in 0 255)]) [param (integer-in 0 255)])
(is-a?/c style-delta%)] (is-a?/c style-delta%)]
[(set-delta [change-command (one-of/c 'change-underline [(set-delta [change-command (or/c 'change-underline
'change-size-in-pixels)] 'change-size-in-pixels)]
[on? any/c]) [on? any/c])
(is-a?/c style-delta%)])]{ (is-a?/c style-delta%)])]{
@ -455,8 +455,8 @@ For the case that a string color name is supplied, see
} }
@defmethod[(set-delta-face [name string?] @defmethod[(set-delta-face [name string?]
[family (one-of/c 'base 'default 'decorative 'roman [family (or/c 'base 'default 'decorative 'roman
'script 'swiss 'modern 'symbol 'system) 'script 'swiss 'modern 'symbol 'system)
'default]) 'default])
(is-a?/c style-delta%)]{ (is-a?/c style-delta%)]{
@ -493,8 +493,8 @@ For the case that a string color name is supplied, see
} }
@defmethod[(set-family [v (one-of/c 'base 'default 'decorative 'roman 'script @defmethod[(set-family [v (or/c 'base 'default 'decorative 'roman 'script
'swiss 'modern 'symbol 'system)]) 'swiss 'modern 'symbol 'system)])
void?]{ void?]{
Sets the delta's font family. See Sets the delta's font family. See
@method[style-delta% get-family]. @method[style-delta% get-family].
@ -521,22 +521,22 @@ after the multiplicative factor).
before the additive factor). before the additive factor).
} }
@defmethod[(set-smoothing-off [v (one-of/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)]) @defmethod[(set-smoothing-off [v (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)])
void?]{See void?]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(set-smoothing-on [v (one-of/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)]) @defmethod[(set-smoothing-on [v (or/c 'base 'default 'partly-smoothed 'smoothed 'unsmoothed)])
void?]{See void?]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(set-style-off [v (one-of/c 'base 'normal 'italic 'slant)]) @defmethod[(set-style-off [v (or/c 'base 'normal 'italic 'slant)])
void?]{See void?]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(set-style-on [v (one-of/c 'base 'normal 'italic 'slant)]) @defmethod[(set-style-on [v (or/c 'base 'normal 'italic 'slant)])
void?]{See void?]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@ -561,12 +561,12 @@ before the additive factor).
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(set-weight-off [v (one-of/c 'base 'normal 'bold 'light)]) @defmethod[(set-weight-off [v (or/c 'base 'normal 'bold 'light)])
void?]{See void?]{See
@scheme[style-delta%]. @scheme[style-delta%].
} }
@defmethod[(set-weight-on [v (one-of/c 'base 'normal 'bold 'light)]) @defmethod[(set-weight-on [v (or/c 'base 'normal 'bold 'light)])
void?]{See void?]{See
@scheme[style-delta%]. @scheme[style-delta%].
}} }}

28
collects/scribblings/gui/text-class.scrbl
View File

@ -519,7 +519,7 @@ Given a @techlink{location} in the editor, returns the line at the
} }
@defmethod[(find-newline [direction (one-of/c 'forward 'backward) 'forward] @defmethod[(find-newline [direction (or/c 'forward 'backward) 'forward]
[start (or/c exact-nonnegative-integer? 'start) 'start] [start (or/c exact-nonnegative-integer? 'start) 'start]
[end (or/c exact-nonnegative-integer? 'eof) 'eof]) [end (or/c exact-nonnegative-integer? 'eof) 'eof])
(or/c exact-nonnegative-integer? #f)]{ (or/c exact-nonnegative-integer? #f)]{
@ -590,7 +590,7 @@ See @method[text% find-position] for a discussion of
@defmethod[(find-snip [pos exact-nonnegative-integer?] @defmethod[(find-snip [pos exact-nonnegative-integer?]
[direction (one-of/c 'before-or-none 'before 'after 'after-or-none)] [direction (or/c 'before-or-none 'before 'after 'after-or-none)]
[s-pos (or/c (box/c exact-nonnegative-integer?) #f) #f]) [s-pos (or/c (box/c exact-nonnegative-integer?) #f) #f])
(or/c (is-a?/c snip%) #f)]{ (or/c (is-a?/c snip%) #f)]{
@ -622,7 +622,7 @@ can be any of the following:
@defmethod[(find-string [str string?] @defmethod[(find-string [str string?]
[direction (one-of/c 'forward 'backward) 'forward] [direction (or/c 'forward 'backward) 'forward]
[start (or/c exact-nonnegative-integer? 'start) 'start] [start (or/c exact-nonnegative-integer? 'start) 'start]
[end (or/c exact-nonnegative-integer? 'eof) 'eof] [end (or/c exact-nonnegative-integer? 'eof) 'eof]
[get-start? any/c #t] [get-start? any/c #t]
@ -654,7 +654,7 @@ If @scheme[case-sensitive?] is @scheme[#f], then an uppercase and lowercase
@defmethod[(find-string-all [str string?] @defmethod[(find-string-all [str string?]
[direction (one-of/c 'forward 'backward) 'forward] [direction (or/c 'forward 'backward) 'forward]
[start (or/c exact-nonnegative-integer? 'start) 'start] [start (or/c exact-nonnegative-integer? 'start) 'start]
[end (or/c exact-nonnegative-integer? 'eof) 'eof] [end (or/c exact-nonnegative-integer? 'eof) 'eof]
[get-start? any/c #t] [get-start? any/c #t]
@ -670,7 +670,7 @@ Finds all occurrences of a string using @method[text% find-string]. If
@defmethod[(find-wordbreak [start (or/c (box/c exact-nonnegative-integer?) #f)] @defmethod[(find-wordbreak [start (or/c (box/c exact-nonnegative-integer?) #f)]
[end (or/c (box/c exact-nonnegative-integer?) #f)] [end (or/c (box/c exact-nonnegative-integer?) #f)]
[reason (one-of/c 'caret 'line 'selection 'user1 'user2)]) [reason (or/c 'caret 'line 'selection 'user1 'user2)])
void?]{ void?]{
Finds wordbreaks in the editor using the current wordbreak procedure. Finds wordbreaks in the editor using the current wordbreak procedure.
@ -789,7 +789,7 @@ Returns the ending @techlink{position} of the current selection. See
@defmethod[(get-file-format) @defmethod[(get-file-format)
(one-of/c 'standard 'text 'text-force-cr)]{ (or/c 'standard 'text 'text-force-cr)]{
Returns the format of the last file saved from or loaded into this Returns the format of the last file saved from or loaded into this
editor. See also @method[editor<%> load-file]. editor. See also @method[editor<%> load-file].
@ -1259,9 +1259,9 @@ then this method ignores the editor's maximum width and any automatic
} }
@defmethod[(move-position [code (one-of/c 'home 'end 'right 'left 'up 'down)] @defmethod[(move-position [code (or/c 'home 'end 'right 'left 'up 'down)]
[extend? any/c #f] [extend? any/c #f]
[kind (one-of/c 'simple 'word 'page 'line) 'simple]) [kind (or/c 'simple 'word 'page 'line) 'simple])
void?]{ void?]{
Moves the current selection. Moves the current selection.
@ -1720,7 +1720,7 @@ Removes all clickbacks installed for exactly the range @scheme[start]
@defmethod[(scroll-to-position [start exact-nonnegative-integer?] @defmethod[(scroll-to-position [start exact-nonnegative-integer?]
[at-eol? any/c #f] [at-eol? any/c #f]
[end (or/c exact-nonnegative-integer? 'same) 'same] [end (or/c exact-nonnegative-integer? 'same) 'same]
[bias (one-of/c 'start 'end 'none) 'none]) [bias (or/c 'start 'end 'none) 'none])
boolean?]{ boolean?]{
Scrolls the editor so that a given @techlink{position} is visible. Scrolls the editor so that a given @techlink{position} is visible.
@ -1836,7 +1836,7 @@ If @scheme[call-on-down?] is not @scheme[#f], the clickback is called
See also @|clickbackdiscuss|. See also @|clickbackdiscuss|.
} }
@defmethod[(set-file-format [format (one-of/c 'standard 'text 'text-force-cr)]) @defmethod[(set-file-format [format (or/c 'standard 'text 'text-force-cr)])
void?]{ void?]{
Set the format of the file saved from this editor. Set the format of the file saved from this editor.
@ -1875,7 +1875,7 @@ Enables or disables overwrite mode. See @method[text%
@defmethod[(set-paragraph-alignment [paragraph exact-nonnegative-integer?] @defmethod[(set-paragraph-alignment [paragraph exact-nonnegative-integer?]
[alignment (one-of/c 'left 'center 'right)]) [alignment (or/c 'left 'center 'right)])
void?]{ void?]{
Sets a paragraph-specific horizontal alignment. The alignment is only Sets a paragraph-specific horizontal alignment. The alignment is only
@ -1917,7 +1917,7 @@ The first line of the paragraph is indented by @scheme[first-left] points
[end (or/c exact-nonnegative-integer? 'same) 'same] [end (or/c exact-nonnegative-integer? 'same) 'same]
[at-eol? any/c #f] [at-eol? any/c #f]
[scroll? any/c #t] [scroll? any/c #t]
[seltype (one-of/c 'default 'x 'local) 'default]) [seltype (or/c 'default 'x 'local) 'default])
void?]{ void?]{
Sets the current selection in the editor. Sets the current selection in the editor.
@ -1956,12 +1956,12 @@ See also @scheme[editor-set-x-selection-mode].
} }
@defmethod[(set-position-bias-scroll [bias (one-of/c 'start-only 'start 'none 'end 'end-only)] @defmethod[(set-position-bias-scroll [bias (or/c 'start-only 'start 'none 'end 'end-only)]
[start exact-nonnegative-integer?] [start exact-nonnegative-integer?]
[end (or/c exact-nonnegative-integer? 'same) 'same] [end (or/c exact-nonnegative-integer? 'same) 'same]
[ateol? any/c #f] [ateol? any/c #f]
[scroll? any/c #t] [scroll? any/c #t]
[seltype (one-of/c 'default 'x 'local) 'default]) [seltype (or/c 'default 'x 'local) 'default])
void?]{ void?]{
Like @method[text% set-position], but a scrolling bias can be specified. Like @method[text% set-position], but a scrolling bias can be specified.