Fixed bugs found with random testing.

svn: r18465

original commit: ff0eb1757af20224777ddd3e5e0e4bbb158bca7e

collects/scribblings/gui/editor-intf.scrbl

@@ -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)]{
 
 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%)])
-           void?]{
+           boolean?]{
 
 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

collects/scribblings/gui/snip-class.scrbl

@@ -120,8 +120,7 @@ The drawing context and snip's @techlink{location}s in drawing context
 }
 
 
-@defmethod[#:mode pubment 
-           (can-do-edit-operation? [op (one-of/c 'undo 'redo 'clear 'cut 'copy 
+@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)]

collects/scribblings/gui/style-list-class.scrbl

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