[bknr-cvs] r2340 - branches/bos/projects/bos/m2

[hhubner at common-lisp.net]

Author: hhubner
Date: Thu Jan 17 12:09:12 2008
New Revision: 2340

Modified:
   branches/bos/projects/bos/m2/map.lisp
Log:
If no background image is available, just skip the :background operation.


Modified: branches/bos/projects/bos/m2/map.lisp
==============================================================================
--- branches/bos/projects/bos/m2/map.lisp	(original)
+++ branches/bos/projects/bos/m2/map.lisp	Thu Jan 17 12:09:12 2008
@@ -118,8 +118,9 @@
     original-image))
 
 (defmethod image-tile-process ((tile image-tile) (operation (eql :background)))
-  (with-store-image (original-image (image-tile-original-image tile))
-    (copy-image original-image *default-image* 0 0 0 0 (image-width) (image-height))))
+  (when (image-tile-original-image tile)
+    (with-store-image (original-image (image-tile-original-image tile))
+      (copy-image original-image *default-image* 0 0 0 0 (image-width) (image-height)))))
 
 (defmethod image-tile-process ((tile image-tile) (operation (eql :areas)))
   (do-rows (y)