From fc9d1694f65912657a335a23e7d466bbf23a7293 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 14 Dec 2010 14:53:26 -0700 Subject: [PATCH] drop recorded dc drawing actions on `erase' --- collects/racket/draw/private/record-dc.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/racket/draw/private/record-dc.rkt b/collects/racket/draw/private/record-dc.rkt index 0167709245..80ce418ef2 100644 --- a/collects/racket/draw/private/record-dc.rkt +++ b/collects/racket/draw/private/record-dc.rkt @@ -184,7 +184,9 @@ (define/record (clear)) - (define/record (erase)) + (define/override (erase) + (super erase) + (set! procs null)) (define/record (draw-arc x y width height