[mcclim-cvs] CVS mcclim/Extensions/Images

[thenriksen]

Update of /project/mcclim/cvsroot/mcclim/Extensions/Images
In directory clnet:/tmp/cvs-serv14506/Extensions/Images

Modified Files:
	gif.lisp 
Log Message:
Handle GIFs with no transparency.


--- /project/mcclim/cvsroot/mcclim/Extensions/Images/gif.lisp	2008/01/07 14:18:15	1.2
+++ /project/mcclim/cvsroot/mcclim/Extensions/Images/gif.lisp	2008/01/09 10:20:23	1.3
@@ -26,8 +26,9 @@
          (pattern-array (make-array (list (skippy:height first-image)
                                           (skippy:width first-image))))
          (designs (coerce (loop with color-table = (skippy:color-table data-stream)
+                               with transparency-index = (skippy:transparency-index first-image)
                              for i below (skippy:color-table-size color-table)
-                             when (= i (skippy:transparency-index first-image))
+                             when (and transparency-index (= i transparency-index))
                              collect +transparent-ink+
                              else collect
                              (multiple-value-bind (r g b)