[Seaside] GOODS (insomnia)

[Markus Fritsche]

Restless, as I am, I was very happy to have identified rST as the cause w=
ith=20
my goods-trouble. So I thougt I could do something quite unuseful:

txn _ KKDatabase onHost: 'localhost' port: 6000.
txn root at: 'test' put: 1@102.
txn commit.
txn root explore

The Explorer opens! So I expand the first entry: Yes, I see 'test': 1@102
I expand it another time -=20
Error: subscript is out of bounds: 1

Is this a error related with goods or do I have to look at a different pl=
ace=20
(or, is this a "Me-Only-error"? :-))



21 March 2002 11:22:47 pm

VM: unix - Squeak3.2gamma of 15 January 2002 [latest update: #4743]
Image: Squeak3.2gamma [latest update: #4743]

Point(Object)>>error:
=09Receiver: 1@102
=09Arguments and temporary variables:=20
=09=09aString: =09'subscript is out of bounds: 1'
=09Receiver's instance variables:=20
=09=09x: =091
=09=09y: =09102

Point(Object)>>errorSubscriptBounds:
=09Receiver: 1@102
=09Arguments and temporary variables:=20
=09=09index: =091
=09Receiver's instance variables:=20
=09=09x: =091
=09=09y: =09102

Point(Object)>>basicAt:
=09Receiver: 1@102
=09Arguments and temporary variables:=20
=09=09index: =091
=09Receiver's instance variables:=20
=09=09x: =091
=09=09y: =09102

Point(Object)>>instVarAt:
=09Receiver: 1@102
=09Arguments and temporary variables:=20
=09=09index: =093
=09Receiver's instance variables:=20
=09=09x: =091
=09=09y: =09102

--- The rest of the stack ---
KKObjectManager>>doesNotUnderstand:
[] in ObjectExplorerWrapper>>contents
Array(SequenceableCollection)>>withIndexDo:
Array(SequenceableCollection)>>doWithIndex:
ObjectExplorerWrapper>>contents
IndentingListItemMorph>>toggleExpandedState
SimpleHierarchicalListMorph>>toggleExpandedState:event:
SimpleHierarchicalListMorph>>mouseDown:
SimpleHierarchicalListMorph(Morph)>>handleMouseDown:
MouseButtonEvent>>sentTo:
SimpleHierarchicalListMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
SimpleHierarchicalListMorph(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
SystemWindow(Morph)>>processEvent:using:
MorphicEventDispatcher>>dispatchMouseDown:with:
MorphicEventDispatcher>>dispatchEvent:with:
PasteUpMorph(Morph)>>processEvent:using:
PasteUpMorph>>processEvent:using:
PasteUpMorph(Morph)>>processEvent:
HandMorph>>sendEvent:focus:clear:
HandMorph>>sendMouseEvent:
HandMorph>>handleEvent:
HandMorph>>processEvents
[] in WorldState>>doOneCycleNowFor:
Array(SequenceableCollection)>>do:
WorldState>>handsDo:
WorldState>>doOneCycleNowFor:
WorldState>>doOneCycleFor:
PasteUpMorph>>doOneCycle
[] in Project class>>spawnNewProcess
[] in BlockContext>>newProcess

-------------------the first two of the "rest of the stack"--------------=
-----
KKObjectManager>>doesNotUnderstand:
doesNotUnderstand: aMessage=20
=09|result|
=09object ifNil: [self xxxLoadObject].
=09database currentTransaction registerObject: self.
=09
=09result _ object perform: aMessage selector withArguments: aMessage arg=
uments.
=09=09=09=09=09
=09^ result =3D=3D object
=09=09ifTrue: [self]
=09=09ifFalse: [result]

[] in ObjectExplorerWrapper>>contents
contents
=09| answer |
=09answer _ OrderedCollection new.
=09"Don't show internal representation of these"
=09({OrderedCollection. FloatArray. Dictionary} anySatisfy: [:class | ite=
m=20
isKindOf: class])
=09=09ifTrue: [
=09=09=09item keysAndValuesDo: [:key :value |
=09=09=09=09answer add: (ObjectExplorerWrapper
=09=09=09=09=09with: value
=09=09=09=09=09name: (key printString contractTo: 32)
=09=09=09=09=09model: item)].
=09=09=09^ answer].
=09"Same for Sets, but must provide an index"
=09(item isKindOf: Set) ifTrue: [
=09=09item doWithIndex: [:each :index |
=09=09=09answer add: (ObjectExplorerWrapper
=09=09=09=09with: each
=09=09=09=09name: index printString
=09=09=09=09model: item)].
=09=09^ answer].
=09"For all others, show named vars first, then indexed vars"
=09item class allInstVarNames asArray doWithIndex: [:each :index |
=09=09answer add: (ObjectExplorerWrapper
=09=09=09with: (item instVarAt: index)
=09=09=09name: each
=09=09=09model: item)].
=091 to: item basicSize do: [:index |
=09=09answer add: (ObjectExplorerWrapper
=09=09=09with: (item basicAt: index)
=09=09=09name: index printString
=09=09=09model: item)].
=09^ answer
---------------------------