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

4 files changed, 12 insertions, 0 deletions

diff --git a/Bezier.c b/Bezier.c
index d239c4b..2b63a53 100644
--- a/Bezier.c
+++ b/Bezier.c
@@ -387,6 +387,9 @@ Configure(Item		item,
   if ((bz->relief != RELIEF_FLAT) && !bz->gradient) {
     bz->gradient = ZnGetReliefGradient(wi->interp, wi->win,
 				       ZnNameOfColor(ZnGetGradientColor(wi->win, bz->fill_color, 50.0)));
+    if (bz->gradient == NULL) {
+      status = ZN_ERROR;
+    }
   }
   if (ISSET(*flags, ZN_TILE_FLAG)) {
     Tk_Image	tile;
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;