From f60bcc7dc13f991d6742b3ac824f467bba8abea4 Mon Sep 17 00:00:00 2001
From: Keith Lazuka <klazuka@gmail.com>
Date: Tue, 6 Oct 2009 16:49:23 -0400
Subject: [PATCH] cap: explicitly set the image's component-type

---
 extra/cap/cap.factor | 1 +
 1 file changed, 1 insertion(+)

diff --git a/extra/cap/cap.factor b/extra/cap/cap.factor
index f43787673a..8beea056cf 100644
--- a/extra/cap/cap.factor
+++ b/extra/cap/cap.factor
@@ -23,6 +23,7 @@ IN: cap
 : screenshot ( window -- bitmap )
     [ <image> ] dip
     [ gl-screenshot >>bitmap ] [ dim>> >>dim ] bi
+    ubyte-components >>component-type
     RGBA >>component-order
     t >>upside-down?
     normalize-image ;