]> gitweb.factorcode.org Git - factor.git/commitdiff
windows.offscreen: generalize the declared effect of with-memory-dc
authorJoe Groff <arcata@gmail.com>
Sat, 13 Mar 2010 03:59:21 +0000 (19:59 -0800)
committerJoe Groff <arcata@gmail.com>
Sat, 13 Mar 2010 03:59:21 +0000 (19:59 -0800)
basis/windows/offscreen/offscreen.factor

index e38477c98c7bdf60ca018da592ba93b1da9dec53..4b4847f964c8011cf8f6f6fba512ef90bc5f8862 100644 (file)
@@ -46,7 +46,7 @@ IN: windows.offscreen
         ubyte-components >>component-type
         t >>upside-down? ;
 
-: with-memory-dc ( quot: ( hDC -- ) -- )
+: with-memory-dc ( ..a quot: ( ..a hDC -- ..b ) -- ..b )
     [ [ f CreateCompatibleDC &DeleteDC ] dip call ] with-destructors ; inline
 
 :: make-bitmap-image ( dim dc quot -- image )