From 1d8672618630449e8da722581c727617b2ebd6d6 Mon Sep 17 00:00:00 2001
From: lecoanet
Date: Fri, 31 May 2002 15:12:05 +0000
Subject: Ajout de la fonction ZnGradientNameExists

---
 generic/Color.c | 9 +++++++++
 generic/Color.h | 1 +
 2 files changed, 10 insertions(+)

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);
-- 
cgit v1.1