[racket-dev] [plt] Push #21805: master branch updated

From: Robby Findler (robby at eecs.northwestern.edu)
Date: Fri Dec 24 21:21:40 EST 2010

Whoops! Thanks.

Roby

On Friday, December 24, 2010,  <mflatt at 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 <mflatt at 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 <mflatt at 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))
>
>


Posted on the dev mailing list.