cap: explicitly set the image's component-type

diff --git a/extra/cap/cap.factor b/extra/cap/cap.factor
index f43787673a4d35f4902c0fa578483265f2e49a3f..8beea056cfa633b04c57384b23090a9cae179805 100644 (file)
--- 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 ;