First attempt at ui.text.pango

[factor.git] / basis / core-graphics / core-graphics.factor

diff --git a/basis/core-graphics/core-graphics.factor b/basis/core-graphics/core-graphics.factor
index 4a53f5a05cb88ee045d555d2996fe8601cac8d69..5e95e2e36eeb1b639a7a6c706b714d9e35b34e28 100644 (file)
--- a/basis/core-graphics/core-graphics.factor
+++ b/basis/core-graphics/core-graphics.factor
@@ -126,4 +126,5 @@ PRIVATE>
     ] initialize-alien ;
 
 : make-bitmap-image ( dim quot -- image )
-    '[ <CGBitmapContext> &CGContextRelease @ ] make-memory-bitmap ; inline
+    '[ <CGBitmapContext> &CGContextRelease @ ] make-memory-bitmap
+    ARGB >>component-order ; inline