diff --git a/collects/handin-client/client-gui.rkt b/collects/handin-client/client-gui.rkt index ce78530a2f..ed7f1016f9 100644 --- a/collects/handin-client/client-gui.rkt +++ b/collects/handin-client/client-gui.rkt @@ -704,13 +704,13 @@ (make-object bitmap% (quotient w 2) (quotient h 2)))] [mdc (make-object bitmap-dc% bm2)]) (send mdc draw-bitmap-section-smooth bm - 0 0 + 0 0 (quotient w 2) (quotient h 2) 0 0 w h) (send mdc set-bitmap #f) (when mbm2 (send mdc set-bitmap mbm2) (send mdc draw-bitmap-section-smooth (send bm get-loaded-mask) - 0 0 + 0 0 (quotient w 2) (quotient h 2) 0 0 w h) (send mdc set-bitmap #f) (send bm2 set-loaded-mask mbm2)) diff --git a/collects/scribblings/draw/bitmap-dc-class.scrbl b/collects/scribblings/draw/bitmap-dc-class.scrbl index bf3d9ee55c..ac591d7c98 100644 --- a/collects/scribblings/draw/bitmap-dc-class.scrbl +++ b/collects/scribblings/draw/bitmap-dc-class.scrbl @@ -30,6 +30,8 @@ Creates a new memory DC. If @scheme[bitmap] is not @scheme[#f], it is @defmethod[(draw-bitmap-section-smooth [source (is-a?/c bitmap%)] [dest-x real?] [dest-y real?] + [dest-width (and/c real? (not/c negative?))] + [dest-height (and/c real? (not/c negative?))] [src-x real?] [src-y real?] [src-width (and/c real? (not/c negative?))]