drop recorded dc drawing actions on `erase'

2010-12-14 14:53:26 -07:00 · 2010-12-14 14:53:26 -07:00 · fc9d1694f6
commit fc9d1694f6
parent 1a190c08f6
1 changed files with 3 additions and 1 deletions
--- 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