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

Make has-alpha-channel? return a boolean.

Browse Source 
This method used to violate the documented contract.
This commit is contained in:
Asumu Takikawa 2012-03-29 22:47:20 -04:00
parent 2e1d59f7b2
commit 5340309080
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/racket/draw/private/bitmap.rkt
View File

@ -265,7 +265,7 @@
(def/public (get-height) (max 1 height))
(def/public (get-depth) (if b&w? 1 32))
(def/public (is-color?) (not b&w?))
(def/public (has-alpha-channel?) alpha-channel?)
(def/public (has-alpha-channel?) (and alpha-channel? #t))
(define/private (check-alternate who)
(when alt?