From 16f0b0c3f08ee6842bcf2909c368f3612cab97b8 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Thu, 31 May 2012 05:55:44 -0600 Subject: [PATCH] racket/gui: fix `canvas%' implementation `on-paint' Broken in the conversion from `class100'. --- collects/mred/private/mrcanvas.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/mred/private/mrcanvas.rkt b/collects/mred/private/mrcanvas.rkt index 5d225b7a4f..a2d6abbf2f 100644 --- a/collects/mred/private/mrcanvas.rkt +++ b/collects/mred/private/mrcanvas.rkt @@ -204,8 +204,11 @@ (public get-scroll-pos set-scroll-pos get-scroll-range set-scroll-range get-scroll-page set-scroll-page) + (define/override (on-paint) + (if (eq? paint-cb default-paint-cb) + (super on-paint) + (paint-cb this (get-dc)))) (define no-clear? (memq 'no-autoclear style)) - (inherit on-paint) (define/public (refresh-now [do-paint (lambda (dc) (on-paint))] #:flush? [flush? #t]) (let ([dc (get-dc)])