Whoops! Thanks. Roby
On Friday, December 24, 2010, <mfl...@racket-lang.org> wrote: > mflatt has updated `master' from 9c12f7aaa5 to 735c4e660c. > http://git.racket-lang.org/plt/9c12f7aaa5..735c4e660c > > =====[ 2 Commits ]====================================================== > > Directory summary: > 30.9% collects/mred/private/wx/cocoa/ > 69.0% collects/racket/snip/private/ > > ~~~~~~~~~~ > > a3adf07 Matthew Flatt <mfl...@racket-lang.org> 2010-12-24 20:00 > : > | clean up pre-drawing of canvases for a frame to show > : > M collects/mred/private/wx/cocoa/canvas.rkt | 2 +- > > ~~~~~~~~~~ > > 735c4e6 Matthew Flatt <mfl...@racket-lang.org> 2010-12-24 20:02 > : > | fix check on snip% `other-equal-to?' > : > M collects/racket/snip/private/snip.rkt | 2 +- > > =====[ Overall Diff ]=================================================== > > collects/mred/private/wx/cocoa/canvas.rkt > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > --- OLD/collects/mred/private/wx/cocoa/canvas.rkt > +++ NEW/collects/mred/private/wx/cocoa/canvas.rkt > @@ -407,7 +407,7 @@ > > (define/override (show-children) > (super show-children) > - (fix-dc) > + ;; (fix-dc) ; inteferes with `paint-children'' > (resume-all-reg-blits)) > > (define/override (fixup-locations-children) > > collects/racket/snip/private/snip.rkt > ~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~ > --- OLD/collects/racket/snip/private/snip.rkt > +++ NEW/collects/racket/snip/private/snip.rkt > @@ -326,7 +326,7 @@ > > (def/public (equal-to? [snip% that] [any? recur]) > (send that other-equal-to? this recur)) > - (def/public (other-equal-to? [image-snip% that] [any? recur]) (eq? this > that)) > + (def/public (other-equal-to? [snip% that] [any? recur]) (eq? this that)) > (define/public (equal-hash-code-of recur) (eq-hash-code this)) > (define/public (equal-secondary-hash-code-of recur) 1)) > > _________________________________________________ For list-related administrative tasks: http://lists.racket-lang.org/listinfo/dev