Rapport d'erreur en cas d'anomalie sur le gradient relief

3 files changed, 9 insertions, 0 deletions

diff --git a/generic/Curve.c b/generic/Curve.c
index 48b64ba..c8d2a35 100644
--- a/generic/Curve.c
+++ b/generic/Curve.c
@@ -495,6 +495,9 @@ Configure(Item		item,
   if ((cv->relief != RELIEF_FLAT) && !cv->gradient) {
     cv->gradient = ZnGetReliefGradient(wi->interp, wi->win,
 				       ZnNameOfColor(ZnGetGradientColor(wi->win, cv->fill_color, 50.0)));
+    if (cv->gradient == NULL) {
+      status = ZN_ERROR;
+    }
   }
   if (ISSET(*flags, ZN_TILE_FLAG)) {
     Tk_Image	tile;
diff --git a/generic/Item.c b/generic/Item.c
index 752e330..0a06e9b 100644
--- a/generic/Item.c
+++ b/generic/Item.c
@@ -3767,6 +3767,9 @@ ConfigureField(FieldSet		field_set,
   if ((field_ptr->relief != RELIEF_FLAT) && !field_ptr->gradient) {
     field_ptr->gradient = ZnGetReliefGradient(wi->interp, wi->win,
 					      ZnNameOfColor(field_ptr->back_color));
+    if (field_ptr->gradient) {
+      return ZN_ERROR;      
+    }
   }
 
   if (ISSET(*flags, ZN_IMAGE_FLAG)) {
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;