From 7d60fcc5989134f95a57299615e94be2fbdfabd7 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 10 Feb 2009 18:52:28 -0600
Subject: [PATCH] clean up some image code

---
 extra/images/backend/backend.factor |  7 +++----
 extra/images/viewer/viewer.factor   | 11 +++++++----
 2 files changed, 10 insertions(+), 8 deletions(-)

diff --git a/extra/images/backend/backend.factor b/extra/images/backend/backend.factor
index 796e9a3a66..2e626b73e6 100644
--- a/extra/images/backend/backend.factor
+++ b/extra/images/backend/backend.factor
@@ -5,7 +5,6 @@ images.bitmap math ;
 IN: images.backend
 
 SINGLETONS: BGR RGB BGRA RGBA ABGR ARGB RGBX XRGB BGRX XBGR ;
-! RGBA
 
 TUPLE: image dim component-order bitmap ;
 
@@ -42,9 +41,9 @@ GENERIC: normalize-scan-line-order ( image -- image )
 
 M: image normalize-scan-line-order ;
 M: bitmap-image normalize-scan-line-order
-    dup
-    [ bitmap>> ] [ dim>> first 4 * ] bi <sliced-groups> reverse concat
-    >>bitmap ;
+    dup dim>> '[
+        _ first 4 * <sliced-groups> reverse concat
+    ] change-bitmap ;
     
 : normalize-image ( image -- image )
     normalize-component-order
diff --git a/extra/images/viewer/viewer.factor b/extra/images/viewer/viewer.factor
index f99c34f509..92277dfdef 100644
--- a/extra/images/viewer/viewer.factor
+++ b/extra/images/viewer/viewer.factor
@@ -25,10 +25,13 @@ M: image-gadget draw-gadget* ( gadget -- )
 : image-window ( path -- gadget )
     [ <image> <image-gadget> dup ] [ open-window ] bi ;
 
-GENERIC: image. ( image -- )
+GENERIC: image. ( object -- )
 
-M: string image. ( image -- ) <image> <image-gadget> gadget. ;
+: default-image. ( path -- )
+    <image-gadget> gadget. ;
 
-M: pathname image. ( image -- ) <image> <image-gadget> gadget. ;
+M: string image. ( image -- ) <image> default-image. ;
 
-M: image image. ( image -- ) <image-gadget> gadget. ;
+M: pathname image. ( image -- ) <image> default-image. ;
+
+M: image image. ( image -- ) default-image. ;