Ajout de la fonction ZnGradientNameExists

2 files changed, 10 insertions, 0 deletions

diff --git a/generic/Color.c b/generic/Color.c
index 56af75f..47ff7ab 100644
--- a/generic/Color.c
+++ b/generic/Color.c
@@ -1079,6 +1079,15 @@ ZnNameGradient(Tcl_Interp	*interp,
   return True;
 }
 
+ZnBool
+ZnGradientNameExists(char	*name)
+{
+  if (!initialized) {
+    return False;
+  }
+  return Tcl_FindHashEntry(&gradient_table, Tk_GetUid(name)) != NULL;
+}
+
 void
 ZnDeleteGradientName(char	*name)
 {
diff --git a/generic/Color.h b/generic/Color.h
index 0e006bc..3eedf4d 100644
--- a/generic/Color.h
+++ b/generic/Color.h
@@ -75,6 +75,7 @@ XColor *ZnGetGradientColor(ZnGradient *gradient,
 char *ZnNameOfGradient(ZnGradient *gradient);
 void ZnFreeGradient(ZnGradient *gradient);
 void ZnDeleteGradientName(char *name);
+ZnBool ZnGradientNameExists(char *name);
 ZnBool ZnNameGradient(Tcl_Interp *interp, Tk_Window tkwin,
 		      char *grad_descr, char *name);
 int ZnComposeAlpha(int alpha1, int alpha2);