On 2/7/06, Philippe Marschall <philippe.marschall at gmail.com> wrote:
> 2006/2/7, Wilkes Joiner <wilkesjoiner at gmail.com>:
> > I added a kludge to fix this.
> >
> > Color>>hex
> >         ^ (self toHexString: (self red)),
> >           (self toHexString: (self green)),
> >           (self toHexString: (self blue))
> >
> > Color>>toHexString: aNumber
> >         ^ ((aNumber * 255) asInteger hex allButFirst: 3) padded: #left to: 2 with: $0
> >
> > Not pretty but it works.
>
> I think originally it was like this:
>
> Color >> #hex
>         "Color white hex"
>
>         ^       (Character value: (self red * 255.0) asInteger) hex,
>                 (Character value: (self green * 255.0) asInteger) hex,
>                 (Character value: (self blue * 255.0) asInteger) hex
>
> the current code is from the latest Seaside version, strange ...

This broken version is in the current version of Seaside, but it is
only referenced in test and those test fail.

How does this work in the version running squeaksource.com?