From 09bec206d61b0f240fcb9ce6d32cd1b18c347e9f Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 13 Apr 2009 23:11:08 +0000 Subject: [PATCH] fix cross-canvas-editor-admin call to do-scroll-to svn: r14500 --- collects/mred/private/wxme/editor-canvas.ss | 2 +- collects/mred/private/wxme/private.ss | 3 ++- 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/wxme/editor-canvas.ss b/collects/mred/private/wxme/editor-canvas.ss index db19417a49..17c4eb3334 100644 --- a/collects/mred/private/wxme/editor-canvas.ss +++ b/collects/mred/private/wxme/editor-canvas.ss @@ -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 diff --git a/collects/mred/private/wxme/private.ss b/collects/mred/private/wxme/private.ss index 672312a5ab..b7fba6ba78 100644 --- a/collects/mred/private/wxme/private.ss +++ b/collects/mred/private/wxme/private.ss @@ -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