images.cocoa: set premultiplied-alpha? on loaded images

2011-09-03 11:30:27 -07:00 · 2011-09-03 11:30:27 -07:00 · b841a33ad8
parent 81f56b1dba
commit b841a33ad8
1 changed files with 2 additions and 1 deletions
--- a/basis/images/cocoa/cocoa.factor
+++ b/basis/images/cocoa/cocoa.factor
@ -57,7 +57,8 @@ PRIVATE>
    image CGImageGetHeight :> h
    { w h } [
        0 0 w h <CGRect> image CGContextDrawImage
-    ] make-bitmap-image ;
+    ] make-bitmap-image
+    t >>premultiplied-alpha? ;

 M: ns-image stream>image
    drop stream-contents <CGImage> CGImage>image ;