From: Joe Groff <arcata@gmail.com>
Date: Thu, 25 Jun 2009 14:15:04 +0000 (-0500)
Subject: windows.offscreen:make-bitmap-image wasn't filling in the component-type of the image... 
X-Git-Tag: 0.97~6041^2~10
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=b6abd4a90cc0dfde3e204013626df4bed4523fe3

windows.offscreen:make-bitmap-image wasn't filling in the component-type of the image object it makes
---

diff --git a/basis/windows/offscreen/offscreen.factor b/basis/windows/offscreen/offscreen.factor
index 6e65958220..fea7240bf6 100755
--- a/basis/windows/offscreen/offscreen.factor
+++ b/basis/windows/offscreen/offscreen.factor
@@ -42,6 +42,7 @@ IN: windows.offscreen
         swap >>dim
         swap >>bitmap
         BGRX >>component-order
+        ubyte-components >>component-type
         t >>upside-down? ;
 
 : with-memory-dc ( quot: ( hDC -- ) -- )
@@ -50,4 +51,4 @@ IN: windows.offscreen
 :: make-bitmap-image ( dim dc quot -- image )
     dim dc make-bitmap [ &DeleteObject drop ] dip
     quot dip
-    dim bitmap>image ; inline
\ No newline at end of file
+    dim bitmap>image ; inline