From 415d3c638c5aa1a02926c2ebe659c457a8443f1a Mon Sep 17 00:00:00 2001 From: nofreude Date: Wed, 22 Aug 2001 14:53:08 +0000 Subject: [PATCH] added the parse-color Function.: --- scheme/xlib/colormap.scm | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) diff --git a/scheme/xlib/colormap.scm b/scheme/xlib/colormap.scm index 9231fdb..2df85ef 100644 --- 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") \ No newline at end of file + "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") \ No newline at end of file