added the parse-color Function.:

This commit is contained in:
nofreude 2001-08-22 14:53:08 +00:00
parent 254a6c92ce
commit 415d3c638c
1 changed files with 14 additions and 1 deletions

View File

@ -34,3 +34,16 @@
(import-lambda-definition %alloc-named-color (Xcolormap name Xdisplay) (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")