Finish converting scheme' -> racket'.

Everything compiles fine now even if the compatibility bindings are
gone.

original commit: a38f384a002ccf6c3cbaab813fe080ca226e4a59
This commit is contained in:
Eli Barzilay 2011-06-27 22:24:08 -04:00
parent 73e0722fcd
commit b60716e547
19 changed files with 88 additions and 81 deletions

View File

@ -16,9 +16,9 @@ get-background-add].
void?]{
Gets all of the additive values.
@boxisfill[(scheme r) @elem{the additive value for the red component of the color}]
@boxisfill[(scheme g) @elem{the additive value for the green component of the color}]
@boxisfill[(scheme b) @elem{the additive value for the blue component of the color}]
@boxisfill[@racket[r] @elem{the additive value for the red component of the color}]
@boxisfill[@racket[g] @elem{the additive value for the green component of the color}]
@boxisfill[@racket[b] @elem{the additive value for the blue component of the color}]
}
@defmethod[(get-b)

View File

@ -1,4 +1,4 @@
#readerscribble/reader
#reader scribble/reader
(module blurbs scheme/base
(require scribble/struct
scribble/manual
@ -47,14 +47,14 @@
(define-syntax bitmaplabeluse
(syntax-rules ()
[(_ id) @bitmapuseinfo["If" (scheme id) "a bitmap" " and" "the"]]))
[(_ id) @bitmapuseinfo["If" @racket[id] "a bitmap" " and" "the"]]))
(define-syntax bitmaplabelusearray
(syntax-rules ()
[(_ id) @bitmapuseinfo["If" (scheme id) "a list of bitmaps" " and" "a"]]))
[(_ id) @bitmapuseinfo["If" @racket[id] "a list of bitmaps" " and" "a"]]))
(define-syntax bitmaplabeluseisbm
(syntax-rules ()
[(_ id) @bitmapuseinfo["Since" (scheme id) "a bitmap" "" "the"]]))
[(_ id) @bitmapuseinfo["Since" @racket[id] "a bitmap" "" "the"]]))
(define bitmapiforiglabel
@elem{The bitmap label is installed only
if the control was originally created with a bitmap label.})

View File

@ -30,7 +30,9 @@ Whenever a check box is clicked by the user, the check box's value is
Creates a check box with a string or bitmap label. @bitmaplabeluse[label]
@labelstripped[(scheme label) @elem{ (when @racket[label] is a string)} @elem{effectively click the check box}]
@labelstripped[@racket[label]
@elem{ (when @racket[label] is a string)}
@elem{effectively click the check box}]
The @racket[callback] procedure is called (with the event type
@indexed-racket['check-box]) whenever the user clicks the check box.

View File

@ -37,7 +37,8 @@ See also @racket[list-box%].
Creates a choice item. If @racket[label] is a string, it is used as the
label for the choice item.
@labelstripped[(scheme label) @elem{} @elem{move the keyboard focus to the choice item}]
@labelstripped[@racket[label]
@elem{} @elem{move the keyboard focus to the choice item}]
The @racket[choices] list specifies the initial list of user-selectable
items for the control. The initial set of choices determines the

View File

@ -34,7 +34,8 @@ A @racket[combo-field%] object is a @racket[text-field%]
If @racket[label] is not @racket[#f], it is used as the combo label.
Otherwise, the combo does not display its label.
@labelstripped[(scheme label) @elem{} @elem{move the keyboard focus to the combo}]
@labelstripped[@racket[label]
@elem{} @elem{move the keyboard focus to the combo}]
The @racket[choices] list specifies the initial list of items for the
combo's popup menu. The

View File

@ -39,8 +39,8 @@ The origin of the drawing context is also returned, translated into
returned origin is reliable only while the editor is being drawn, or
while it receives a mouse or keyboard event.
@boxisfillnull[(scheme x) @elem{the x-origin of the DC in editor coordinates}]
@boxisfillnull[(scheme y) @elem{the y-origin of the DC in editor coordinates}]
@boxisfillnull[@racket[x] @elem{the x-origin of the DC in editor coordinates}]
@boxisfillnull[@racket[y] @elem{the y-origin of the DC in editor coordinates}]
See also @xmethod[editor<%> editor-location-to-dc-location] and
@xmethod[editor<%> dc-location-to-editor-location].
@ -100,10 +100,10 @@ The calculation of the editor's visible region is based on the current
is hidden, obscured by other windows, or moved off the edge of the
screen.
@boxisfillnull[(scheme x) @elem{the left edge of the visible region in editor coordinates}]
@boxisfillnull[(scheme y) @elem{the top edge of the visible region in editor coordinates}]
@boxisfillnull[(scheme w) @elem{the width of the visible region, which may be larger than the editor itself}]
@boxisfillnull[(scheme h) @elem{the height of the visible region, which may be larger than the editor itself}]
@boxisfillnull[@racket[x] @elem{the left edge of the visible region in editor coordinates}]
@boxisfillnull[@racket[y] @elem{the top edge of the visible region in editor coordinates}]
@boxisfillnull[@racket[w] @elem{the width of the visible region, which may be larger than the editor itself}]
@boxisfillnull[@racket[h] @elem{the height of the visible region, which may be larger than the editor itself}]
If an editor is fully visible and @racket[full?] is @racket[#f], then
@racket[x] and @racket[y] will both be filled with @racket[0].

View File

@ -599,8 +599,8 @@ For a text editor, the reported descent includes the editor's
void?]{
Gets the current extent of the editor's graphical representation.
@boxisfillnull[(scheme w) @elem{the editor's width}]
@boxisfillnull[(scheme h) @elem{the editor's height}]
@boxisfillnull[@racket[w] @elem{the editor's width}]
@boxisfillnull[@racket[h] @elem{the editor's height}]
For a text editor, the reported extent includes the editor's
padding (see @method[text% set-padding]).
@ -636,7 +636,7 @@ If the editor is displayed in a single canvas, then the canvas's
Returns the path name of the last file saved from or loaded into this
editor, @racket[#f] if the editor has no filename.
@boxisfill[(scheme temp) @elem{@racket[#t] if the filename is temporary or
@boxisfill[@racket[temp] @elem{@racket[#t] if the filename is temporary or
@racket[#f] otherwise}]
}
@ -799,8 +799,8 @@ Returns @racket[#f].
Gets the @techlink{location} of the given snip. If the snip is found in
the editor, @racket[#t] is returned; otherwise, @racket[#f] is returned.
@boxisfillnull[(scheme x) @elem{the x-coordinate of the snip's @techlink{location}}]
@boxisfillnull[(scheme y) @elem{the y-coordinate of the snip's @techlink{location}}]
@boxisfillnull[@racket[x] @elem{the x-coordinate of the snip's @techlink{location}}]
@boxisfillnull[@racket[y] @elem{the y-coordinate of the snip's @techlink{location}}]
If @racket[bottom-right?] is not @racket[#f], the values in the
@racket[x] and @racket[y] boxes are for the snip's bottom right
@ -846,8 +846,8 @@ Returns the visible area into which the editor is currently being
displayed (according to the editor's administrator). See also
@method[editor-admin% get-view] .
@boxisfillnull[(scheme w) @elem{the visible area width}]
@boxisfillnull[(scheme h) @elem{the visible area height}]
@boxisfillnull[@racket[w] @elem{the visible area width}]
@boxisfillnull[@racket[h] @elem{the visible area height}]
@|OVD|
@ -865,9 +865,9 @@ Converts the given coordinates from top-level @techlink{display} coordinates
same calculation is performed by
@method[editor<%> dc-location-to-editor-location].
@boxisfillnull[(scheme x) @elem{the translated x-coordinate of the value initially
@boxisfillnull[@racket[x] @elem{the translated x-coordinate of the value initially
in @racket[x]}]
@boxisfillnull[(scheme y) @elem{the translated x-coordinate of the value initially
@boxisfillnull[@racket[y] @elem{the translated x-coordinate of the value initially
in @racket[y]}]
@|OVD|
@ -1123,9 +1123,9 @@ Converts the given coordinates from editor @techlink{location}
canvas coordinates). The same calculation is performed by
@method[editor<%> editor-location-to-dc-location].
@boxisfillnull[(scheme x) @elem{the translated x-coordinate of the value initially
@boxisfillnull[@racket[x] @elem{the translated x-coordinate of the value initially
in @racket[x]}]
@boxisfillnull[(scheme y) @elem{the translated x-coordinate of the value initially
@boxisfillnull[@racket[y] @elem{the translated x-coordinate of the value initially
in @racket[y]}]
@|OVD|

View File

@ -129,10 +129,10 @@ If the editor is a text editor, then @racket[1] is normally subtracted
Gets the current border insets for the snip. The inset sets how much space
is left between the edge of the snip and the border.
@boxisfill[(scheme l) @elem{left inset}]
@boxisfill[(scheme t) @elem{top inset}]
@boxisfill[(scheme r) @elem{right inset}]
@boxisfill[(scheme b) @elem{bottom inset}]
@boxisfill[@racket[l] @elem{left inset}]
@boxisfill[@racket[t] @elem{top inset}]
@boxisfill[@racket[r] @elem{right inset}]
@boxisfill[@racket[b] @elem{bottom inset}]
}
@ -147,10 +147,10 @@ Gets the current margins for the snip. The margin sets how much space
is left between the edge of the editor's contents and the edge of the
snip.
@boxisfill[(scheme l) @elem{left margin}]
@boxisfill[(scheme t) @elem{top margin}]
@boxisfill[(scheme r) @elem{right margin}]
@boxisfill[(scheme b) @elem{bottom margin}]
@boxisfill[@racket[l] @elem{left margin}]
@boxisfill[@racket[t] @elem{top margin}]
@boxisfill[@racket[r] @elem{right margin}]
@boxisfill[@racket[b] @elem{bottom margin}]
}
@ -271,7 +271,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))])
void?]{
@edsnipmax[(scheme height)]
@edsnipmax[@racket[height]]
Zero or @racket['none] disables the limit.
@ -280,7 +280,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))])
void?]{
@edsnipmax[(scheme width)] The contained editor's width limits are not
@edsnipmax[@racket[width]] The contained editor's width limits are not
changed by this method.
Zero or @racket['none] disables the limit.
@ -290,7 +290,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))])
void?]{
@edsnipmin[(scheme height) @elem{top}]
@edsnipmin[@racket[height] @elem{top}]
Zero or @racket['none] disables the limit.
@ -299,7 +299,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))])
void?]{
@edsnipmin[(scheme width) @elem{left}] The contained editor's width
@edsnipmin[@racket[width] @elem{left}] The contained editor's width
limits are not changed by this method.
Zero or @racket['none] disables the limit.

View File

@ -25,7 +25,7 @@ An in-stream base---possibly an @racket[editor-stream-in-bytes-base%]
Reads data from the stream, returning itself.
Reading from a bad stream always gives @racket[0].
@boxisfill[(scheme v) @elem{the next integer or floating-point value in the stream}]
@boxisfill[@racket[v] @elem{the next integer or floating-point value in the stream}]
}
@ -40,7 +40,7 @@ Like @method[editor-stream-in% get-unterminated-bytes], but the last
@method[editor-stream-in% get-unterminated-bytes] when data is
written with an explicit byte count.
@boxisfillnull[(scheme len) @elem{the length of the byte string plus one (to indicate the terminator)}]
@boxisfillnull[@racket[len] @elem{the length of the byte string plus one (to indicate the terminator)}]
}
@ -54,7 +54,7 @@ Returns the next integer value in the stream.
@defmethod[(get-fixed [v (box/c exact-integer?)])
(is-a?/c editor-stream-in%)]{
@boxisfill[(scheme v) @elem{a fixed-size integer from the stream obtained through
@boxisfill[@racket[v] @elem{a fixed-size integer from the stream obtained through
@method[editor-stream-in% get-fixed-exact]}]
}
@ -90,7 +90,7 @@ Note that when @method[editor-stream-out% put] is not given a byte
length, it includes an extra byte for a nul terminator; use
@method[editor-stream-in% get-bytes] to read such byte strings.
@boxisfillnull[(scheme len) @elem{the length of the byte string}]
@boxisfillnull[@racket[len] @elem{the length of the byte string}]
}

View File

@ -30,7 +30,7 @@ of the gauge.
If @racket[label] is a string, it is used as the gauge label; otherwise
the gauge does not display a label.
@labelsimplestripped[(scheme label) @elem{gauge}]
@labelsimplestripped[@racket[label] @elem{gauge}]
The @racket[range] argument is an integer specifying the maximum value of
the gauge (inclusive). The minimum gauge value is always @racket[0].

View File

@ -68,7 +68,7 @@ Returns the name of the currently loaded, non-inlined file, or
@racket[#f] if a file is not loaded or if a file was loaded with
inlining (the default).
@boxisfillnull[(scheme relative-path) @elem{@racket[#t] if the loaded file's path is
@boxisfillnull[@racket[relative-path] @elem{@racket[#t] if the loaded file's path is
relative to the owning editor's path}]
}

View File

@ -58,7 +58,8 @@ See also @racket[choice%].
If @racket[label] is not @racket[#f], it is used as the list box
label. Otherwise, the list box will not display its label.
@labelstripped[(scheme label) @elem{} @elem{move the keyboard focus to the list box}]
@labelstripped[@racket[label] @elem{}
@elem{move the keyboard focus to the list box}]
The @racket[choices] list specifies the initial list of items
to appear in the list box. If the list box has multiple columns,

View File

@ -31,7 +31,7 @@ Creates a string or bitmap message initially showing @racket[label].
@racket['caution] is a caution-sign icon, and @racket['stop] is a
stop-sign icon.
@labelsimplestripped[(scheme label) @elem{message}]
@labelsimplestripped[@racket[label] @elem{message}]
@DeletedStyleNote[@racket[style] @racket[parent]]{message}

View File

@ -19,9 +19,9 @@ See also @method[style-delta% get-foreground-mult] and
Gets all of the scaling values.
@boxisfill[(scheme r) @elem{the scaling value for the red component of the color}]
@boxisfill[(scheme g) @elem{the scaling value for the green component of the color}]
@boxisfill[(scheme b) @elem{the scaling value for the blue component of the color}]
@boxisfill[@racket[r] @elem{the scaling value for the red component of the color}]
@boxisfill[@racket[g] @elem{the scaling value for the green component of the color}]
@boxisfill[@racket[b] @elem{the scaling value for the blue component of the color}]
}

View File

@ -42,7 +42,8 @@ Creates a radio button set with string or bitmap labels. The
@racket[choices] list specifies the radio button labels; the list of
choices must be homogeneous, either all strings or all bitmaps.
@labelstripped[(scheme label) @elem{} @elem{move the keyboard focus to the radio box}]
@labelstripped[@racket[label]
@elem{} @elem{move the keyboard focus to the radio box}]
Each string in @racket[choices] can also contain a @litchar{&}, which
creates a mnemonic for clicking the corresponding radio button. As

View File

@ -37,7 +37,8 @@ Whenever the user changes the value of a slider, its callback
If @racket[label] is a string, it is used as the label for the slider.
Otherwise, the slider does not display its label.
@labelstripped[(scheme label) @elem{} @elem{move the keyboard focus to the slider}]
@labelstripped[@racket[label]
@elem{} @elem{move the keyboard focus to the slider}]
The @racket[min-value] and @racket[max-value] arguments specify the
range of the slider, inclusive. The @racket[init-value] argument

View File

@ -374,11 +374,11 @@ Does nothing.
@methspec{
Returns the current tab-position array as a list.
@boxisfillnull[(scheme length) @elem{the length of the tab array (and therefore the returned
@boxisfillnull[@racket[length] @elem{the length of the tab array (and therefore the returned
list)}]
@boxisfillnull[(scheme tab-width) @elem{the width used for tabs past the
@boxisfillnull[@racket[tab-width] @elem{the width used for tabs past the
end of the tab array}]
@boxisfillnull[(scheme in-units) @elem{@racket[#t] if the tabs are specified in
@boxisfillnull[@racket[in-units] @elem{@racket[#t] if the tabs are specified in
canvas units or @racket[#f] if they are specified in space-widths}]
}

View File

@ -525,7 +525,7 @@ See also @method[text% delete].
Given a @techlink{location} in the editor, returns the line at the
@techlink{location}. @|LineNumbering|
@boxisfillnull[(scheme on-it?) @elem{@racket[#t] if the line actually
@boxisfillnull[@racket[on-it?] @elem{@racket[#t] if the line actually
touches this @techlink{position}, or @racket[#f] otherwise}] (A large
enough @racket[y] will always return the last line number, but will
set @racket[on-it?] to @racket[#f].)
@ -567,10 +567,10 @@ Given a @techlink{location} in the editor, returns the @techlink{position} at th
@techlink{location}.
See @|ateoldiscuss| for a discussion of the @racket[at-eol?] argument.
@boxisfillnull[(scheme on-it?) @elem{@racket[#t] if the line actually touches this
@boxisfillnull[@racket[on-it?] @elem{@racket[#t] if the line actually touches this
@techlink{position}, or @racket[#f] otherwise}]
@boxisfillnull[(scheme edge-close?) @elem{it will be filled in with a value
@boxisfillnull[@racket[edge-close?] @elem{it will be filled in with a value
indicating how close the point is to the vertical edges of the @techlink{item}
when the point falls on the @techlink{item}}] If the point is closest to the left
edge of the @techlink{item}, the value will be negative; otherwise, the value
@ -594,7 +594,7 @@ Given a @techlink{location} within a line of the editor, returns the
@techlink{position} at the @techlink{location}. @|LineNumbering|
See @|ateoldiscuss| for a discussion of the @racket[at-eol?] argument.
@boxisfillnull[(scheme on-it?) @elem{@racket[#t] if the line actually
@boxisfillnull[@racket[on-it?] @elem{@racket[#t] if the line actually
touches this @techlink{position}, or @racket[#f] otherwise}]
See @method[text% find-position] for a discussion of
@ -632,7 +632,7 @@ can be any of the following:
]
@boxisfillnull[(scheme s-pos) @elem{the @techlink{position} where the returned snip starts}]
@boxisfillnull[@racket[s-pos] @elem{the @techlink{position} where the returned snip starts}]
}
@ -864,8 +864,8 @@ the same number and that number will be where the insertion point is.
See also @method[text% get-start-position]
and @method[text% get-end-position].
@boxisfillnull[(scheme start) @elem{the starting @techlink{position} of the selection}]
@boxisfillnull[(scheme end) @elem{the ending @techlink{position} of the selection}]
@boxisfillnull[@racket[start] @elem{the starting @techlink{position} of the selection}]
@boxisfillnull[@racket[end] @elem{the ending @techlink{position} of the selection}]
}
@ -921,9 +921,9 @@ Gets a snip's @techlink{position} and top left @techlink{location} in editor
coordinates. The return value is @racket[#t] if the snip is found,
@racket[#f] otherwise.
@boxisfillnull[(scheme pos) @elem{starting @techlink{position} of @racket[snip]}]
@boxisfillnull[(scheme x) @elem{left @techlink{location} of @racket[snip] in editor coordinates}]
@boxisfillnull[(scheme y) @elem{top @techlink{location} of @racket[snip] in editor coordinates}]
@boxisfillnull[@racket[pos] @elem{starting @techlink{position} of @racket[snip]}]
@boxisfillnull[@racket[x] @elem{left @techlink{location} of @racket[snip] in editor coordinates}]
@boxisfillnull[@racket[y] @elem{top @techlink{location} of @racket[snip] in editor coordinates}]
When @techlink{location} information is requested: @|OVD| @|FCA|
@ -968,11 +968,11 @@ See also @method[text% set-styles-sticky].
Returns the current tab-position array as a list.
@boxisfillnull[(scheme length) @elem{the length of the tab array (and therefore the returned
@boxisfillnull[@racket[length] @elem{the length of the tab array (and therefore the returned
list)}]
@boxisfillnull[(scheme tab-width) @elem{the width used for tabs past the
@boxisfillnull[@racket[tab-width] @elem{the width used for tabs past the
end of the tab array}]
@boxisfillnull[(scheme in-units) @elem{@racket[#t] if the tabs are specified in
@boxisfillnull[@racket[in-units] @elem{@racket[#t] if the tabs are specified in
canvas units or @racket[#f] if they are specified in space-widths}]
See also
@ -1024,8 +1024,8 @@ The reported baseline distance includes the editor's
Returns the range of lines which are currently visible (or partially
visible) to the user. @|LineNumbering|
@boxisfillnull[(scheme start) @elem{first line visible to the user}]
@boxisfillnull[(scheme end) @elem{last line visible to the user}]
@boxisfillnull[@racket[start] @elem{first line visible to the user}]
@boxisfillnull[@racket[end] @elem{last line visible to the user}]
If the editor is displayed by multiple canvases and @racket[all?] is
@racket[#t], then the computed range includes all visible lines in all
@ -1045,8 +1045,8 @@ If the editor is displayed by multiple canvases and @racket[all?] is
Returns the range of @techlink{position}s that are currently visible (or
partially visible) to the user.
@boxisfillnull[(scheme start) @elem{first @techlink{position} visible to the user}]
@boxisfillnull[(scheme end) @elem{last @techlink{position} visible to the user}]
@boxisfillnull[@racket[start] @elem{first @techlink{position} visible to the user}]
@boxisfillnull[@racket[end] @elem{last @techlink{position} visible to the user}]
If the editor is displayed by multiple canvases and @racket[all?] is
@racket[#t], then the computed range includes all visible @techlink{position}s in
@ -1179,7 +1179,7 @@ Returns the number of the last line in the editor. Lines are numbered
starting with @racket[0], so this is one less than the number of lines
in the editor.
@LineToPara[(scheme last-paragraph)]
@LineToPara[@racket[last-paragraph]]
@|FCAMW| @|EVD|
}
@ -1219,7 +1219,7 @@ If the line ends with invisible @techlink{item}s (such as a carriage
@techlink{position} before the invisible @techlink{item}s is
returned.
@LineToPara[(scheme paragraph-end-position)]
@LineToPara[@racket[paragraph-end-position]]
@|FCAMW| @|EVD|
@ -1247,7 +1247,7 @@ If @racket[top?] is not @racket[#f], the @techlink{location} for the
top of the line is returned; otherwise, the @techlink{location} for
the bottom of the line is returned.
@LineToPara[(scheme paragraph-location)]
@LineToPara[@racket[paragraph-location]]
@|OVD| @|FCA|
@ -1277,7 +1277,7 @@ If the line starts with invisible @techlink{item}s and @racket[visible?] is not
@racket[#f], the first @techlink{position} past the invisible @techlink{item}s is
returned.
@LineToPara[(scheme paragraph-start-position)]
@LineToPara[@racket[paragraph-start-position]]
@|FCAMW|
@ -1672,7 +1672,7 @@ See @|timediscuss| for a discussion of the @racket[time] argument. If
Returns the line number of the line containing a given @techlink{position}. @|LineNumbering|
@LineToPara[(scheme position-paragraph)]
@LineToPara[@racket[position-paragraph]]
See @|ateoldiscuss| for a discussion of @racket[at-eol?].
@ -1691,9 +1691,9 @@ See @|ateoldiscuss| for a discussion of @racket[at-eol?].
Returns the @techlink{location} of a given @techlink{position}. See also @method[text% position-locations].
@boxisfillnull[(scheme x) @elem{the x-@techlink{location} of the @techlink{position} @racket[start] in editor
@boxisfillnull[@racket[x] @elem{the x-@techlink{location} of the @techlink{position} @racket[start] in editor
coordinates} ]
@boxisfillnull[(scheme y) @elem{the y-@techlink{location} (top or bottom; see below) of the
@boxisfillnull[@racket[y] @elem{the y-@techlink{location} (top or bottom; see below) of the
@techlink{position} @racket[start] in editor coordinates}]
See @|ateoldiscuss| for a discussion of @racket[at-eol?].

View File

@ -59,7 +59,7 @@ The keymap for the text field's editor is initialized by calling the
If @racket[label] is not @racket[#f], it is used as the text field
label. Otherwise, the text field does not display its label.
@labelstripped[(scheme label) @elem{} @elem{move the keyboard focus to the text field}]
@labelstripped[@racket[label] @elem{} @elem{move the keyboard focus to the text field}]
The @racket[callback] procedure is called when the user changes the
text in the text field or presses the Enter key (and Enter is not