[Scsh-checkins] CVS: scx/scheme/xlib color-type.scm,1.4,1.5

[David Frese <frese@users.sourceforge.net>]

Update of /cvsroot/scsh/scx/scheme/xlib
In directory usw-pr-cvs1:/tmp/cvs-serv10699

Modified Files:
        color-type.scm 
Log Message:
added a discloser that shows the rgb values of the color.


Index: color-type.scm
===================================================================
RCS file: /cvsroot/scsh/scx/scheme/xlib/color-type.scm,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** color-type.scm      2001/07/31 14:54:53     1.4
--- color-type.scm      2001/08/21 14:46:52     1.5
***************
*** 7,10 ****
--- 7,16 ----
    (Xcolor color-Xcolor color-set-Xcolor!))
  
+ (define-record-discloser :color
+   (lambda (c) 
+     (let ((rgb (extract-rgb-values c)))
+       `(Color ,(/ (car rgb) 65535) ,(/ (cadr rgb) 65535) 
+             ,(/ (caddr rgb) 65535)))))
+ 
  (define (internal-make-color Xcolor)
    (let ((maybe-color (color-list-find Xcolor)))
***************
*** 26,30 ****
    "scx_Create_Color")
  
! ;; returns a list of r,g,b as integers
  (define (extract-rgb-values color)
    (%extract-rgb-values (color-Xcolor color)))
--- 32,36 ----
    "scx_Create_Color")
  
! ;; returns a list of r,g,b as integers from 0 - 2^16
  (define (extract-rgb-values color)
    (%extract-rgb-values (color-Xcolor color)))