[Squeak-fr] Prolog pour 3.10

[cdrick]

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]}