hi thomas

thanks a lot for this feedback.

Stef

On 9 avr. 05, at 20:53, Thomas Koenig wrote:

> When running all SUNIT tests after installing Traits in 5989, I get
> multiple errors in Omnibrowser that deal with Dictionary not
> understanding #associations.  I see that OBDictionaryNode does
> understand #associations.  Does any have suggestions on best way to fix
> these errors?  For example, should I extend dictionary to implement
> associations or wrap the dictionary objects with OBDictionaryNode?

I have problem to understand what is the problem so I cannot easily 
answer something
making sense.

> Tom
> PS: Below are the details: downloaded 3.7 and extracted as
> Squeak3.7-5989-full.image. Opened SM, SU TestRunner;  installed
> Monticello 183 Traits beta2.1 and ran all sunit test. (The results are
> 1497 run 1425 succcesses 45 failures 27errors. Many of which exist w/o
> Traits of course. A lot of the OB related failures are easily fixed by
> correcting fakeTemplate etc.)  The following is representative errors I
> see involving #associations MNU.
> OBAccessBrowserTest>>testSelectCVars produces a debugger context of an
> OrderedCollection(
> Dictionary(Object)>>doesNotUnderstand: #associations [] in
> OBPackageContext(OBImageContext)>>accessesToClassVar:ofClass: {[:ea | 
> ea
> classPool associations]} [] in OrderedCollection(Collection)>>gather:
> {[:ea | stream   nextPutAll: (aBlock value: ea)]} 
> OrderedCollection>>do:
> [] in OrderedCollection(Collection)>>gather: {[:stream | self   do: 
> [:ea
> | stream     nextPutAll: (aBlock value: ea)]]} Array
> class(SequenceableCollection class)>>streamContents:
> OrderedCollection(Collection)>>gather:
> OBPackageContext(OBImageContext)>>accessesToClassVar:ofClass:
> OBPackageContext>>accessesToClassVar:ofClass:
> OBClassVariableNode>>accessors OBMetaEdge>>nodesForParent:
> OBModalFilter>>nodesForParent: OBColumn>>getChildren
> OBColumn>>setBrowser:metaNode:node: OBColumn
> class>>inBrowser:metaNode:node: OBMetaNode>>columnInBrowser:node:
> OBColumn>>createNext OBColumn>>next OBColumn>>selected 
> OBColumn>>clicked
> OBColumn>>selectionChanged OBColumn>>selection:
> PluggableListMorph>>changeModelSelection:
> OBAccessBrowserTest(OBBrowserTest)>>select:
> OBAccessBrowserTest>>testSelectCVar
> OBAccessBrowserTest(TestCase)>>performTest [] in
> OBAccessBrowserTest(TestCase)>>runCase {[self setUp.  self 
> performTest]}
> BlockContext>>ensure: BlockContext>>sunitEnsure:
> OBAccessBrowserTest(TestCase)>>runCase [] in
> OBAccessBrowserTest(TestCase)>>debug {[(self class selector:
> testSelector) runCase]} BlockContext>>ensure: 
> BlockContext>>sunitEnsure:
> OBAccessBrowserTest(TestCase)>>debug TestRunner>>debugErrorTest:
> PluggableListMorph>>changeModelSelection: PluggableListMorph>>mouseUp:
> PluggableListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo:
> PluggableListMorph(Morph)>>handleEvent:
> PluggableListMorph(Morph)>>handleFocusEvent: [] in
> HandMorph>>sendFocusEvent:to:clear: {[ActiveHand := self.  ActiveEvent
> := anEvent.  result := focusHolder     han...]} [] in
> PasteUpMorph>>becomeActiveDuring: {[aBlock value]} BlockContext>>on:do:
> PasteUpMorph>>becomeActiveDuring: HandMorph>>sendFocusEvent:to:clear:
> HandMorph>>sendEvent:focus:clear: HandMorph>>sendMouseEvent:
> HandMorph>>handleEvent: HandMorph>>processEvents [] in
> WorldState>>doOneCycleNowFor: {[:h |  ActiveHand := h.  h 
> processEvents.
> capturingGesture := capturingGest...]}
> Array(SequenceableCollection)>>do: WorldState>>handsDo:
> WorldState>>doOneCycleNowFor: WorldState>>doOneCycleFor:
> PasteUpMorph>>doOneCycle [] in Project class>>spawnNewProcess {[[World
> doOneCycle.  Processor yield.  false] whileFalse.  nil]} [] in
> BlockContext>>newProcess {[self value.  Processor terminateActive]})
>
>