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 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'generic/Color.c')

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