From 8d4891a5af65d45bcfad20f1fbddedd34c7db8d4 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@factorcode.org>
Date: Thu, 8 Sep 2011 23:08:16 -0700
Subject: [PATCH] core-graphics: set premultiplied-alpha? in make-bitmap-image.
 Fixes #73

---
 basis/core-graphics/core-graphics.factor | 3 ++-
 basis/images/cocoa/cocoa.factor          | 3 +--
 2 files changed, 3 insertions(+), 3 deletions(-)

diff --git a/basis/core-graphics/core-graphics.factor b/basis/core-graphics/core-graphics.factor
index 45a6ddc72b..e64cf2ab2d 100644
--- a/basis/core-graphics/core-graphics.factor
+++ b/basis/core-graphics/core-graphics.factor
@@ -155,4 +155,5 @@ PRIVATE>
 : make-bitmap-image ( dim quot -- image )
     '[ <CGBitmapContext> &CGContextRelease @ ] make-memory-bitmap
     ARGB >>component-order
-    ubyte-components >>component-type ; inline
+    ubyte-components >>component-type
+    t >>premultiplied-alpha? ; inline
diff --git a/basis/images/cocoa/cocoa.factor b/basis/images/cocoa/cocoa.factor
index c170b0d897..a308d3f475 100644
--- a/basis/images/cocoa/cocoa.factor
+++ b/basis/images/cocoa/cocoa.factor
@@ -57,8 +57,7 @@ PRIVATE>
     image CGImageGetHeight :> h
     { w h } [
         0 0 w h <CGRect> image CGContextDrawImage
-    ] make-bitmap-image
-    t >>premultiplied-alpha? ;
+    ] make-bitmap-image ;
 
 M: ns-image stream>image
     drop stream-contents <CGImage> CGImage>image ;