fixed some more bugs found by random testing

svn: r18478

collects/mred/private/syntax.ss

@@ -4,7 +4,7 @@
          (for-syntax scheme/base))
 
 (provide defclass defclass*
-         def/public def/override define/top case-args
+         def/public def/override def/override-final define/top case-args
          maybe-box? any? bool? nonnegative-real? make-or-false make-box make-list make-alts 
          make-literal symbol-in make-procedure
          method-name init-name
@@ -26,6 +26,8 @@
   #`(def/thing define/public #,stx))
 (define-syntax (def/override stx)
   #`(def/thing define/override #,stx))
+(define-syntax (def/override-final stx)
+  #`(def/thing define/override-final #,stx))
 (define-syntax (define/top stx)
   #`(def/thing define #,stx))
 

collects/mred/private/wxme/text.ss

@@ -749,7 +749,7 @@
         (not s-admin)
         (send s-admin refresh-delayed?)))
 
-  (def/override (in-edit-sequence?)
+  (def/override-final (in-edit-sequence?)
     (delay-refresh . > . 0))
 
   (def/override (locations-computed?)

collects/scribblings/gui/editor-intf.scrbl

@@ -905,7 +905,7 @@ See also @method[editor<%> local-to-global].
 
 }
 
-@defmethod[(in-edit-sequence?)
+@defmethod[#:mode 'public-final (in-edit-sequence?)
            boolean?]{
 
 Returns @scheme[#t] if updating on this editor is currently delayed

collects/scribblings/gui/pasteboard-class.scrbl

@@ -611,14 +611,12 @@ The @scheme[x] and @scheme[y] arguments are in editor coordinates. If
 }
 
 
-@defmethod[(get-center [x (box/c real?)]
-                       [y (box/c real?)])
-           void?]{
+@defmethod[(get-center) (values real? real?)]{
 
 Returns the center of the pasteboard in pasteboard coordinates.
 
-The @scheme[x] box is filled with the x-coordinate of the center and
-@scheme[y] is filled with the y-coordinate of the center.
+The first result is the x-coordinate of the center and
+the second result is the y-coordinate of the center.
 
 }