suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

racket/draw: fix serializaiton of bitmap drawing in record-dc%

Browse Source 
Closes PR 14349
This commit is contained in:
Matthew Flatt 2014-02-13 15:13:02 -07:00
parent 70f484ba77
commit 47d913b451
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
pkgs/draw-pkgs/draw-lib/racket/draw/private/record-dc.rkt
View File

@ -325,7 +325,7 @@
(apply values (if (eq? (car l) 'scale)
(cdr l)
(cons 1.0 l))))
(define bm (make-object bitmap% w h (not color?) alpha? #:backing-scale s))
(define bm (make-object bitmap% w h (not color?) alpha? s))
(define (scale v) (inexact->exact (ceiling (* s v))))
(send bm set-argb-pixels 0 0 (scale w) (scale h) bstr #:unscaled? #t)
bm)))

2
pkgs/gui-pkgs/gui-test/tests/gracket/draw.rkt
View File

@ -1321,7 +1321,7 @@
(set! screen-bitmap? (= 4 (send self get-selection)))
(set! compat-bitmap? (= 5 (send self get-selection)))
(set! scaled-bitmap? (= 6 (send self get-selection)))
(set! use-record? (<= 7 (send self get-selection) 6))
(set! use-record? (<= 7 (send self get-selection) 8))
(set! serialize-record? (= 8 (send self get-selection)))
(set! use-bad? (< 9 (send self get-selection)))
(send canvas refresh)))