added the parse-color Function.:
This commit is contained in:
parent
254a6c92ce
commit
415d3c638c
|
@ -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")
|
Loading…
Reference in New Issue