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

fix cross-canvas-editor-admin call to do-scroll-to

Browse Source 
svn: r14500
This commit is contained in:
Matthew Flatt 2009-04-13 23:11:08 +00:00
parent 4883d8bb1d
commit 09bec206d6
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/mred/private/wxme/editor-canvas.ss
View File

@ -1046,7 +1046,7 @@
(let ([v (do-scroll-to localx localy w h refresh? bias #t #t #f)]) (let ([v (do-scroll-to localx localy w h refresh? bias #t #t #f)])
(and v (car v)))) (and v (car v))))
(define/private (do-scroll-to localx localy w h refresh? bias prev? next? only-focus?) (define/public (do-scroll-to localx localy w h refresh? bias prev? next? only-focus?)
(and canvas (and canvas
(or (and (not (send canvas is-focus-on?)) (or (and (not (send canvas is-focus-on?))
(or (or

3
collects/mred/private/wxme/private.ss
View File

@ -107,7 +107,8 @@
;; editor-canvas-editor-admin% ;; editor-canvas-editor-admin%
(define-local-member-name (define-local-member-name
do-get-canvas) do-get-canvas
do-scroll-to)
;; editor-stream% ;; editor-stream%
(define-local-member-name (define-local-member-name