From 863262ece7f6ce2aa4215dbee90b5dba49001e0d Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Sat, 3 Sep 2011 11:30:27 -0700 Subject: [PATCH] images.cocoa: set premultiplied-alpha? on loaded images --- basis/images/cocoa/cocoa.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/images/cocoa/cocoa.factor b/basis/images/cocoa/cocoa.factor index a308d3f475..c170b0d897 100644 --- 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 image CGContextDrawImage - ] make-bitmap-image ; + ] make-bitmap-image + t >>premultiplied-alpha? ; M: ns-image stream>image drop stream-contents CGImage>image ;