steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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

db4
Joe Groff 2009-06-25 09:15:04 -05:00
parent 327311b7a2
commit b6abd4a90c
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/windows/offscreen/offscreen.factor
View File

@ -42,6 +42,7 @@ IN: windows.offscreen
swap >>dim swap >>dim
swap >>bitmap swap >>bitmap
BGRX >>component-order BGRX >>component-order
ubyte-components >>component-type
t >>upside-down? ; t >>upside-down? ;
: with-memory-dc ( quot: ( hDC -- ) -- ) : with-memory-dc ( quot: ( hDC -- ) -- )
@ -50,4 +51,4 @@ IN: windows.offscreen
:: make-bitmap-image ( dim dc quot -- image ) :: make-bitmap-image ( dim dc quot -- image )
dim dc make-bitmap [ &DeleteObject drop ] dip dim dc make-bitmap [ &DeleteObject drop ] dip
quot dip quot dip
dim bitmap>image ; inline dim bitmap>image ; inline