Fixed bugs found with random testing.

svn: r18465

original commit: ff0eb1757af20224777ddd3e5e0e4bbb158bca7e
This commit is contained in:
Casey Klein 2010-03-04 16:37:12 +00:00
parent 6ae884f074
commit d8ffd52d7a
3 changed files with 6 additions and 6 deletions

View File

@ -661,7 +661,7 @@ If the editor is displayed in a single canvas, then the canvas's
}} }}
@defmethod[(get-filename [temp (box/c (or/c any/c #f)) #f]) @defmethod[(get-filename [temp (box/c (or/c any/c #f)) (box #f)])
(or/c path-string? #f)]{ (or/c path-string? #f)]{
Returns the path name of the last file saved from or loaded into this Returns the path name of the last file saved from or loaded into this
@ -1933,7 +1933,7 @@ See also @method[editor<%> in-edit-sequence?].
@defmethod[(release-snip [snip (is-a?/c snip%)]) @defmethod[(release-snip [snip (is-a?/c snip%)])
void?]{ boolean?]{
Requests that the specified snip be deleted and released from the Requests that the specified snip be deleted and released from the
editor. If this editor is not the snip's owner or if the snip cannot editor. If this editor is not the snip's owner or if the snip cannot

View File

@ -120,8 +120,7 @@ The drawing context and snip's @techlink{location}s in drawing context
} }
@defmethod[#:mode pubment @defmethod[(can-do-edit-operation? [op (one-of/c 'undo 'redo 'clear 'cut 'copy
(can-do-edit-operation? [op (one-of/c 'undo 'redo 'clear 'cut 'copy
'paste 'kill 'select-all 'paste 'kill 'select-all
'insert-text-box 'insert-pasteboard-box 'insert-text-box 'insert-pasteboard-box
'insert-image)] 'insert-image)]

View File

@ -21,8 +21,9 @@ The root style, named @scheme["Basic"], is automatically created.
} }
@defmethod[(basic-style) @defmethod[#:mode public-final
(is-a?/c style<%>)]{ (basic-style)
(is-a?/c style<%>)]{
Returns the root style. Each style list has its own root style. Returns the root style. Each style list has its own root style.