From 6041d9a58f26a16700abcc025e342958483e2f78 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 28 Aug 2006 09:51:23 +0000 Subject: [PATCH] remove on-scroll in editor-canvas svn: r4170 original commit: 5d5245b9c33aaefed7ed6661e9816a46b5ca4669 --- collects/mred/private/mrcanvas.ss | 4 ++-- collects/mred/private/wxcanvas.ss | 1 + 2 files changed, 3 insertions(+), 2 deletions(-) diff --git a/collects/mred/private/mrcanvas.ss b/collects/mred/private/mrcanvas.ss index 03fd9ea9..c86399c4 100644 --- a/collects/mred/private/mrcanvas.ss +++ b/collects/mred/private/mrcanvas.ss @@ -27,7 +27,7 @@ (define canvas<%> (interface (subwindow<%>) min-client-width min-client-height - on-char on-event on-paint on-scroll on-tab-in + on-char on-event on-paint on-tab-in warp-pointer get-dc set-canvas-background get-canvas-background set-resize-corner)) @@ -43,7 +43,6 @@ [on-char (lambda (e) (send wx do-on-char e))] [on-event (lambda (e) (send wx do-on-event e))] [on-paint (lambda () (when wx (send wx do-on-paint)))] - [on-scroll (lambda (e) (send wx do-on-scroll e))] [on-tab-in (lambda () (void))] [min-client-width (param (lambda () wx) min-client-width)] @@ -98,6 +97,7 @@ (check-callback cwho paint-callback) (check-label-string/false cwho label))) (public + [on-scroll (lambda (e) (send wx do-on-scroll e))] [swap-gl-buffers (lambda () (send (send (send wx get-dc) get-gl-context) swap-buffers))] [with-gl-context (lambda (thunk) (send (send (send wx get-dc) get-gl-context) call-as-current thunk))] diff --git a/collects/mred/private/wxcanvas.ss b/collects/mred/private/wxcanvas.ss index f9b7f880..d4dcb4c2 100644 --- a/collects/mred/private/wxcanvas.ss +++ b/collects/mred/private/wxcanvas.ss @@ -33,6 +33,7 @@ (if mred (as-exit (lambda () (send mred on-event e))) (as-exit (lambda () (super on-event e)))))))] + ;; only called for canvas%, not editor-canvas%: [on-scroll (entry-point (lambda (e) (let ([mred (get-mred)])