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

remove on-scroll in editor-canvas

Browse Source 
svn: r4170
This commit is contained in:
Matthew Flatt 2006-08-28 09:51:23 +00:00
parent 86900d573a
commit 5d5245b9c3
2 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -27,7 +27,7 @@
(define canvas<%> (define canvas<%>
(interface (subwindow<%>) (interface (subwindow<%>)
min-client-width min-client-height 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 warp-pointer get-dc
set-canvas-background get-canvas-background set-canvas-background get-canvas-background
set-resize-corner)) set-resize-corner))
@ -43,7 +43,6 @@
[on-char (lambda (e) (send wx do-on-char e))] [on-char (lambda (e) (send wx do-on-char e))]
[on-event (lambda (e) (send wx do-on-event e))] [on-event (lambda (e) (send wx do-on-event e))]
[on-paint (lambda () (when wx (send wx do-on-paint)))] [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))] [on-tab-in (lambda () (void))]
[min-client-width (param (lambda () wx) min-client-width)] [min-client-width (param (lambda () wx) min-client-width)]
@ -98,6 +97,7 @@
(check-callback cwho paint-callback) (check-callback cwho paint-callback)
(check-label-string/false cwho label))) (check-label-string/false cwho label)))
(public (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))] [swap-gl-buffers (lambda () (send (send (send wx get-dc) get-gl-context) swap-buffers))]
[with-gl-context (lambda (thunk) [with-gl-context (lambda (thunk)
(send (send (send wx get-dc) get-gl-context) call-as-current thunk))] (send (send (send wx get-dc) get-gl-context) call-as-current thunk))]

1
collects/mred/private/wxcanvas.ss
View File

@ -33,6 +33,7 @@
(if mred (if mred
(as-exit (lambda () (send mred on-event e))) (as-exit (lambda () (send mred on-event e)))
(as-exit (lambda () (super on-event e)))))))] (as-exit (lambda () (super on-event e)))))))]
;; only called for canvas%, not editor-canvas%:
[on-scroll (entry-point [on-scroll (entry-point
(lambda (e) (lambda (e)
(let ([mred (get-mred)]) (let ([mred (get-mred)])