SeaChart was: Re: Re: SqF feedback (moved from squeak-dev ML)

Yes, this should not happen. ;) I loaded the code into a fresh 3.8 and
could not reproduce it. Can you provide a stacktrace and the seaside
version you are using?

Cheers
Philippe
_______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside

scriptaculous-lr.30
...

Error: radix indicator not found.

    * SmallInteger(Object)>>error:

          self    177
          temps
          aString    'radix indicator not found.'

    * [] in SmallInteger(Integer)>>printOn:base:showRadix: {[self error:
'radix indicator not found.']}

          self    177
          temps
          outputStream    a WriteStream ''
          baseInteger    16
          flagBoolean    false
          tempString    'B1'
          startPos    nil

    * ByteString(String)>>indexOf:startingAt:ifAbsent:

          self    'B1'
          temps
          aCharacter    $r
          start    1
          aBlock    [] in SmallInteger(Integer)>>printOn:base:showRadix:
{[self error: 'radix indicator not found.']}
          ans    0

    * ByteString(SequenceableCollection)>>indexOf:ifAbsent:

          self    'B1'
          temps
          anElement    $r
          exceptionBlock    [] in
SmallInteger(Integer)>>printOn:base:showRadix: {[self error: 'radix
indicator not found.']}

    * SmallInteger(Integer)>>printOn:base:showRadix:

          self    177
          temps
          outputStream    a WriteStream ''
          baseInteger    16
          flagBoolean    false
          tempString    'B1'
          startPos    nil

    * SmallInteger(Integer)>>printPaddedWith:to:base:

          self    177
          temps
          aCharacter    $0
          anInteger    2
          aRadix    16
          aStream    a WriteStream ''
          padding    nil
          digits    nil

    * Color>>hex

          self    (Color r: 0.695 g: 0.84 b: 0.198)
          temps
          inst vars
          rgb    746417355
          cachedDepth    nil
          cachedBitPattern    nil

    * Color>>asHTMLColor

          self    (Color r: 0.695 g: 0.84 b: 0.198)
          temps
          inst vars
          rgb    746417355
          cachedDepth    nil
          cachedBitPattern    nil

    * [] in BGProgressBar>>style {[:stream | stream nextPutAll: ' .graph
{ position: relative; /* ...]}

          self    a BGProgressBar
          temps
          stream    a WriteStream ' .graph { position: relative; /* IE
is dumb */ width: 200px; ...etc...
          inst vars
          decoration    a WAStateHolder(a BGProgressBar)
          barColor    (Color r: 0.695 g: 0.84 b: 0.198)
          textColor    (Color r: 0.202 g: 0.202 b: 0.202)
          progress    53


--------------------------------
L'ENIT vous invite a sa journee portes ouvertes le 17 mars 2006 de 13h30 a 19h30
 Visite des locaux,  animations, cadeaux a gagner.

 Enit , 47 avenue d'Azereix 65000 Tarbes
 Bus N°1, arret ENI

_______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside

> I'm using seaside2.6a3-lr.22
> scriptaculous-lr.30
> ...

Oh freeborn, please not again this bug. This is a very strange bug
Squeak. It seems to exist only in certain 3.8 images while it's absent
for 3.7 and other 3.8.
Please post any difference.

Excat Squeak version: 3.8-6665

Color>>#hex
        ^ ((self red * 255) asInteger printPaddedWith: $0 to: 2 base: 16) ,
          ((self green * 255) asInteger printPaddedWith: $0 to: 2 base: 16) ,
          ((self blue * 255) asInteger printPaddedWith: $0 to: 2 base: 16).

Integer>>#printPaddedWith: aCharacter to: anInteger base: aRadix
        "Answer the string containing the ASCII representation of the receiver
        padded on the left with aCharacter to be at least anInteger characters."
        | aStream padding digits |
        #Numeric.
        "2000/03/04  Harmon R. Added Date and Time support"
        aStream := WriteStream on: (String new: 10).
        self
                printOn: aStream
                base: aRadix
                showRadix: false.
        digits := aStream contents.
        padding := anInteger - digits size.
        padding > 0 ifFalse: [^ digits].
        ^ ((String new: padding) atAllPut: aCharacter;
         yourself) , digits

Integer>>#printOn: outputStream base: baseInteger showRadix: flagBoolean
        "Write a sequence of characters that describes the receiver in radix
        baseInteger with optional radix specifier.
        The result is undefined if baseInteger less than 2 or greater than 36."
        | tempString startPos |
        #Numeric.
        "2000/03/04  Harmon R. Added ANSI <integer> protocol"

        tempString := self printStringRadix: baseInteger.
        (baseInteger ~= 10) ifTrue: [tempString := baseInteger asString, $r
asString,tempString].
        flagBoolean ifTrue: [^ outputStream nextPutAll: tempString].
        startPos := (tempString indexOf: $r ifAbsent: [self error: 'radix
indicator not found.'])
                                + 1.
        self negative ifTrue: [outputStream nextPut: $-].
        outputStream nextPutAll: (tempString copyFrom: startPos to: tempString size)

Philippe
_______________________________________________
Seaside mailing list
[hidden email]
http://lists.squeakfoundation.org/cgi-bin/mailman/listinfo/seaside