added the parse-color Function.:

2001-08-22 14:53:08 +00:00 · 2001-08-22 14:53:08 +00:00 · 415d3c638c
parent 254a6c92ce
commit 415d3c638c
1 changed files with 14 additions and 1 deletions
--- a/scheme/xlib/colormap.scm
+++ b/scheme/xlib/colormap.scm
@ -33,4 +33,17 @@
 	Xres)))

 (import-lambda-definition %alloc-named-color (Xcolormap name Xdisplay)
-  "scx_Alloc_Named_Color")
+  "scx_Alloc_Named_Color")
+
+
+; added by N. Freudemann
+; swaped from utility.scm to this file.
+
+(define (parse-color colormap string)
+  (%parse-color (display-Xdisplay (colormap-display colormap))
+		(colormap-Xcolormap colormap)
+		string))
+
+
+(import-lambda-definition %parse-color (Xdisplay Xcolormap string)
+  "scx_Parse_Color")