[BUG][FIX] Using 'explain' in code pane cause walkback ([approved] 3.9)

stéphane ducasse ducasse at iam.unibe.ch
Sat Dec 18 10:00:09 UTC 2004


now in 3.9 alpha as 6534

Stef

> VM: Mac OS - a SmalltalkImage
> Image: Squeak3.9alpha [latest update: #6533]
>
> SecurityManager state:
> Restricted: false
> FileAccess: true
> SocketAccess: true
> Working Dir Macintosh
> HD:Users:frankcaggiano:Applications:Squeak:Squeak3:Squeak3.9a-6461
> Folder
> Trusted Dir Macintosh
> HD:Users:frankcaggiano:Applications:Squeak:Squeak3:Squeak3.9a-6461
> Folder
> Untrusted Dir Macintosh
> HD:Users:frankcaggiano:Library:Preferences:Squeak:Internet:My Squeak
>
> Parser(Object)>>error:
> 	Receiver: a Parser
> 	Arguments and temporary variables:
> 		aString: 	'Instances of Parser are not indexable'
> 	Receiver's instance variables:
> 		source: 	a ReadStream 'testClassCreationAndChange
>
>     |  success |
>
>   [baseClas...etc...
> 		mark: 	36
> 		hereChar: 	$
> 		aheadChar: 	$|
> 		token: 	'success'
> 		tokenType: 	#word
> 		currentComment: 	nil
> 		buffer: 	a WriteStream 'success'
> 		typeTable: 	#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
> #xBinary #xB...etc...
> 		here: 	#|
> 		hereType: 	#verticalBar
> 		hereMark: 	33
> 		hereEnd: 	33
> 		prevMark: 	1
> 		prevEnd: 	26
> 		encoder: 	a Parser
> 		requestor: 	nil
> 		parseNode: 	nil
> 		failBlock: 	[] in Parser>>initPattern:notifying:return: {[^ nil]}
> 		requestorOffset: 	0
> 		tempsMark: 	nil
> 		doitFlag: 	false
>
> Parser(Object)>>errorNotIndexable
> 	Receiver: a Parser
> 	Arguments and temporary variables:
>
> 	Receiver's instance variables:
> 		source: 	a ReadStream 'testClassCreationAndChange
>
>     |  success |
>
>   [baseClas...etc...
> 		mark: 	36
> 		hereChar: 	$
> 		aheadChar: 	$|
> 		token: 	'success'
> 		tokenType: 	#word
> 		currentComment: 	nil
> 		buffer: 	a WriteStream 'success'
> 		typeTable: 	#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
> #xBinary #xB...etc...
> 		here: 	#|
> 		hereType: 	#verticalBar
> 		hereMark: 	33
> 		hereEnd: 	33
> 		prevMark: 	1
> 		prevEnd: 	26
> 		encoder: 	a Parser
> 		requestor: 	nil
> 		parseNode: 	nil
> 		failBlock: 	[] in Parser>>initPattern:notifying:return: {[^ nil]}
> 		requestorOffset: 	0
> 		tempsMark: 	nil
> 		doitFlag: 	false
>
> Parser(Object)>>size
> 	Receiver: a Parser
> 	Arguments and temporary variables:
>
> 	Receiver's instance variables:
> 		source: 	a ReadStream 'testClassCreationAndChange
>
>     |  success |
>
>   [baseClas...etc...
> 		mark: 	36
> 		hereChar: 	$
> 		aheadChar: 	$|
> 		token: 	'success'
> 		tokenType: 	#word
> 		currentComment: 	nil
> 		buffer: 	a WriteStream 'success'
> 		typeTable: 	#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
> #xBinary #xB...etc...
> 		here: 	#|
> 		hereType: 	#verticalBar
> 		hereMark: 	33
> 		hereEnd: 	33
> 		prevMark: 	1
> 		prevEnd: 	26
> 		encoder: 	a Parser
> 		requestor: 	nil
> 		parseNode: 	nil
> 		failBlock: 	[] in Parser>>initPattern:notifying:return: {[^ nil]}
> 		requestorOffset: 	0
> 		tempsMark: 	nil
> 		doitFlag: 	false
>
> Array(SequenceableCollection)>>copyReplaceFrom:to:with:
> 	Receiver: #()
> 	Arguments and temporary variables:
> 		start: 	1
> 		stop: 	0
> 		replacementCollection: 	a Parser
> 		newSequenceableCollection: 	nil
> 		newSize: 	nil
> 		endReplacement: 	nil
> 	Receiver's instance variables:
> #()
>
>
> --- The full stack ---
> Parser(Object)>>error:
> Parser(Object)>>errorNotIndexable
> Parser(Object)>>size
> Array(SequenceableCollection)>>copyReplaceFrom:to:with:
>  - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
> Array(SequenceableCollection)>>,
> [] in Parser>>parseArgsAndTemps:notifying: {[:pattern | (pattern at: 2)
>  , self   temporariesIn: (pattern at: 1)]}
> Parser>>initPattern:notifying:return:
> Parser>>parseArgsAndTemps:notifying:
> TextMorphEditor(ParagraphEditor)>>explainTemp:
> [] in TextMorphEditor(ParagraphEditor)>>explain {[sorry := '"Sorry, I
> can''t explain that.  Please select a single token, con...]}
> BlockContext>>ensure:
> CursorWithMask(Cursor)>>showWhile:
> TextMorphEditor(ParagraphEditor)>>explain
> [] in PluggableTextMorph>>explain {[textMorph editor explain]}
> [] in PluggableTextMorph>>handleEdit: {[result := editBlock value]}
> TextMorphForEditView(TextMorph)>>handleEdit:
> PluggableTextMorph>>handleEdit:
> PluggableTextMorph>>explain
> RefactoringBrowser(StringHolder)>>perform:orSendTo:
> [] in MenuItemMorph>>invokeWithEvent: {[(selArgCount := selector
> numArgs) = 0   ifTrue: [target perform: selector] ...]}
> BlockContext>>ensure:
> CursorWithMask(Cursor)>>showWhile:
> MenuItemMorph>>invokeWithEvent:
> MenuItemMorph>>mouseUp:
> MenuItemMorph>>handleMouseUp:
> MouseButtonEvent>>sentTo:
> MenuItemMorph(Morph)>>handleEvent:
> MorphicEventDispatcher>>dispatchDefault:with:
> MorphicEventDispatcher>>dispatchEvent:with:
> MenuItemMorph(Morph)>>processEvent:using:
> MorphicEventDispatcher>>dispatchDefault:with:
> ...etc...
> <ExplainWalkback-fc.cs.gz>




More information about the Squeak-dev mailing list