en fait il doit y avoir un problème avec le "source" des exemples en Prolog... Quand je demande d'afficher par exemple Doctor>>healthHistory: j'ai un subscript out of bound. Ca ne vient pas d'OB puisque j'ai le même problème avec les package browser.
8 June 2008 12:15:58 pm
VM: Win32 - a SmalltalkImage Image: Squeak3.10.1 [latest update: #7175]
Array(Object)>>error: Receiver: #() Arguments and temporary variables: aString: 'subscript is out of bounds: 1' Receiver's instance variables: #()
Array(Object)>>errorSubscriptBounds: Receiver: #() Arguments and temporary variables: index: 1 Receiver's instance variables: #()
Array(Object)>>at: Receiver: #() Arguments and temporary variables: index: 1 Receiver's instance variables: #()
Array(SequenceableCollection)>>replaceFrom:to:with:startingAt: Receiver: #(nil) Arguments and temporary variables: start: 1 stop: 1 replacement: #() repStart: 1 index: 1 repOff: 0 Receiver's instance variables: #(nil)
--- The full stack --- Array(Object)>>error: Array(Object)>>errorSubscriptBounds: Array(Object)>>at: Array(SequenceableCollection)>>replaceFrom:to:with:startingAt: - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - Array>>replaceFrom:to:with:startingAt: Array(SequenceableCollection)>>copyFrom:to: CompiledMethod>>replace:with:in: CompiledMethod>>getSourceFor:in: Doctor class(Behavior)>>sourceCodeAt:ifAbsent: OBMethodNode>>source OBMethodNode>>definition OBMethodNode(OBCodeNode)>>getDefinition OBEnhancementDefinitionPanel>>selectionChanged: MessageSend>>valueWithArguments: [] in ActionSequence>>valueWithArguments: {[:each | answer := each valueWithArguments: anArray]} ActionSequence(SequenceableCollection)>>do: ActionSequence>>valueWithArguments: [] in OBAnnouncer>>announce: {[:class :action | (ann isKindOf: class) ifTrue: [action valueWithArgum...]} [] in IdentityDictionary(Dictionary)>>keysAndValuesDo: {[:assoc | aBlock value: assoc key value: assoc value]} IdentityDictionary(Set)>>do: IdentityDictionary(Dictionary)>>associationsDo: IdentityDictionary(Dictionary)>>keysAndValuesDo: OBAnnouncer>>announce: OBEnhancementColumn(OBColumn)>>signalSelectionChanged OBEnhancementColumn>>signalSelectionChanged OBEnhancementColumn(OBColumn)>>selection: OBEnhancementColumn>>selection: OBPluggableListMorph(PluggableListMorph)>>changeModelSelection: OBPluggableListMorph>>mouseUp: OBPluggableListMorph(Morph)>>handleMouseUp: MouseButtonEvent>>sentTo: OBPluggableListMorph(Morph)>>handleEvent: MorphicEventDispatcher>>dispatchDefault:with: MorphicEventDispatcher>>dispatchEvent:with: OBPluggableListMorph(Morph)>>processEvent:using: OBPluggableListMorph(Morph)>>processEvent: OBPluggableListMorph(PluggableListMorph)>>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]}