From cf3c964dd6cc63e3531c698ca5539b37245b88d6 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Wed, 27 Jun 2001 08:39:51 +0000
Subject: Rapport d'erreur en cas d'anomalie sur le gradient relief

---
 generic/Rectangle.c | 3 +++
 1 file changed, 3 insertions(+)

(limited to 'generic/Rectangle.c')

diff --git a/generic/Rectangle.c b/generic/Rectangle.c
index a9989a2..fb2fc38 100644
--- a/generic/Rectangle.c
+++ b/generic/Rectangle.c
@@ -327,6 +327,9 @@ Configure(Item		item,
   if ((rect->relief != RELIEF_FLAT) && !rect->gradient) {
     rect->gradient = ZnGetReliefGradient(wi->interp, wi->win,
 					 ZnNameOfColor(ZnGetGradientColor(wi->win, rect->fill_color, 50.0)));
+    if (rect->gradient == NULL) {
+      status = ZN_ERROR;
+    }
   }
   if (ISSET(*flags, ZN_TILE_FLAG)) {
     Tk_Image	tile;
-- 
cgit v1.1