Re: [ANNOUNCE] sawfish-pager 0.7a

[Christopher Roy Bratusek <zanghar freenet de>]

Am Tue, 15 Dec 2009 08:36:06 -0600
schrieb Jeremy Hankins <nowan nowan org>:

> Christopher Roy Bratusek <zanghar freenet de> writes:
> 
> > sawfish-pager 0.7a is available for download NOW!
> 
> Who's currently taking care of this?

Me. Atleast some kind of taking care, as I'm not currently working on
it in any way and currently there are no plans for doing so.

> There's a bug I've got a
> (sort-of) patch for, but I'm not sure what to do with it.  Colors
> aren't set properly: the color-rgb function returns four values (rgb
> + alpha) not three, but sawfish-pager expects only three.  So the
> alpha value for the first color is taken as the first rgb value for
> the second, etc.
> 
> So in my version of pager.jl I have this as the send-colors function:
> 
>   (define (send-colors)
>     (send ?c
> 	  (mapcar (lambda (color)
>                     (let ((rgb (color-rgb color)))
>                       (list (elt rgb 0)
>                             (elt rgb 1)
>                             (elt rgb 2))))
> 		  (list pager-color-background
> 			pager-color-viewport
> 			pager-color-window
> 			pager-color-focus-window
> 			pager-color-window-border
> 			pager-color-viewport-divider
> 			pager-color-workspace-divider))))
> 
> But it may be better to ignore the extra value on the C side, in case
> the alpha value is ever to be used by the pager.

For the time beeing this is ok.

I'll add it now and release a new version.

Thanks,
Chris