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)])
(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
(or (and (not (send canvas is-focus-on?))
(or

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

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