1 files changed, 9 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)
 {