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

fixed some more bugs found by random testing

Browse Source 
svn: r18478
This commit is contained in:
Robby Findler 2010-03-06 01:35:19 +00:00
parent 87f978e59e
commit 7c3025ecde
4 changed files with 8 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/mred/private/syntax.ss
View File

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

2
collects/mred/private/wxme/text.ss
View File

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

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

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

8
collects/scribblings/gui/pasteboard-class.scrbl
View File

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