From e48435d13a4c9ee28ed0dd83bc031a28c53c1741 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Thu, 6 Dec 2012 03:38:40 +0000
Subject: if image is set to blank, then use filler image and post error
 message

svn path=/trunk/externals/moonlib/; revision=16650
---
 image.tcl | 11 +++++++++++
 1 file changed, 11 insertions(+)

(limited to 'image.tcl')

diff --git a/image.tcl b/image.tcl
index 7f4f22c..8bed3dc 100644
--- a/image.tcl
+++ b/image.tcl
@@ -13,3 +13,14 @@ proc ::moonlib::image::create_photo {obj_id img filename} {
         ::pdwindow::logpost $obj_id 1 "[image]: error reading '$filename':\n$fid\n"
     }
 }
+
+image create photo ::moonlib::image::noimage -data {
+    R0lGODlhDwARANU8AAAAAP6xDv/yHP6kDP6oCv7FEP/pGUY6J/7KEP7CD//tG/6sCurp6FVLM+/v
+    7vzhGP7SE/61DtfW05pwG/7ZFXFjOmNWM31yXv65Dv69D/nuIu+9Em5hRmlcO1FELv///1tILLWW
+    I/b29v/kGOubD/7cFteMEYBdJoiAbpKMeJuYjWNXQF9UOrq4stmYEui/FoqEc3VoRZWQfMCBEtbG
+    MO3VHe6qEObUOZiDQ+2wEcJ/EnluWf///wAAAAAAAAAAACH5BAEAADwALAAAAAAPABEAQAa1QJ5Q
+    JIt1Kh1OSiTkNSAQgBRRSEgBgcChKWxdOLsWl5eiKQRoheFBQSQKExjvMsFErtLBYHIRqnAaaAIG
+    axQvFio8Fg94ACWNGB4oIQWVCRFZCwQEeyhCDAcumpwDJgcMXBIVN4FqNSErEkIOCoGCBiNtCBsH
+    DiwPhApqIyUQVRk5HhUUVx8AUVLOASAKGwhUx1mZJAoSFhgZAJgBmgCcILIOBzaYo3okvVwMKycz
+    JjonLKhCQQA7
+}
-- 
cgit v1.2.1