[Pharo-project] Browsing code files with prettyPrint

April 19, 2009

      What I did:

Navigate with a file to a .st file, click on the button "browse", select a
method. With "browseWithPrettyPrint" enabled.

This applies both to recent Pharo and a Squeak3.10-closures image.

Best regards, 
     Markus

Stacktrace:

'20 April 2009 1:00:43 am

VM: Win32 - a SmalltalkImage
Image: Pharo0.1 [Latest update: #10279]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir C:\Dokumente und Einstellungen\mfritsche\Desktop\Seaside
Trusted Dir C:\Dokumente und
Einstellungen\mfritsche\Desktop\Seaside\mfritsche
Untrusted Dir C:\Dokumente und Einstellungen\mfritsche\Eigene Dateien\My
Squeak

PseudoClass(Object)>>doesNotUnderstand: #variablesAndOffsetsDo:
	Receiver: a PseudoClass(#TraitMethodDescription)
	Arguments and temporary variables: 
		aMessage: 	variablesAndOffsetsDo: [closure] in
EncoderForV3PlusClosures(Encoder)...etc...
		exception: 	MessageNotUnderstood:
PseudoClass>>variablesAndOffsetsDo:
		resumeValue: 	nil
	Receiver''s instance variables: 
		name: 	#TraitMethodDescription
		definition: 	nil
		organization: 	(''accessing'' providedLocatedMethod)

		source: 	a Dictionary(#providedLocatedMethod->a
ChangeRecord )
		metaClass: 	a PseudoMetaclass(#TraitMethodDescription)

EncoderForV3PlusClosures(Encoder)>>init:context:notifying:
	Receiver: {an EncoderForV3PlusClosures}
	Arguments and temporary variables: 
		aClass: 	a PseudoClass(#TraitMethodDescription)
		aContext: 	nil
		req: 	a Parser
		homeNode: 	nil
	Receiver''s instance variables: 
		comment: 	nil
		pc: 	nil
		scopeTable: 	a Dictionary(''false''->{false}
		''nil''->{nil} ''self''->{self} ''super''->...etc...
		nTemps: 	0
		supered: 	false
		requestor: 	a Parser
		class: 	a PseudoClass(#TraitMethodDescription)
		selector: 	nil
		literalStream: 	a WriteStream #()
		selectorSet: 	a Dictionary(#*->{*} #+->{+} #-->{-} #/->{/}
		#''//''->{//} #<->{<} #...etc...
		litIndSet: 	a Dictionary()
		litSet: 	a LiteralDictionary(-1->{-1} 0->{0} 1->{1}
2->{2} )
		sourceRanges: 	nil
		globalSourceRanges: 	nil
		stream: 	nil
		position: 	nil
		rootNode: 	nil
		blockExtentsToLocals: 	nil

[] in Parser>>parse:class:category:noPattern:context:notifying:ifFail:
	Receiver: a Parser
	Arguments and temporary variables: 
<<error during printing>
	Receiver''s instance variables: 
		source: 	a ReadStream ''providedLocatedMethod
        | locatedMethod aLocatedMet...etc...
		mark: 	31
		hereChar: 	Character space
		aheadChar: 	$l
		token: 	#|
		tokenType: 	#verticalBar
		currentComment: 	nil
		buffer: 	a WriteStream ''providedLocatedMethod''
		typeTable: 	#(#xBinary #xBinary #xBinary #xBinary
		#xBinary #xBinary #xBinary #xB...etc...
		here: 	''providedLocatedMethod''
		hereType: 	#word
		hereMark: 	1
		hereEnd: 	21
		prevMark: 	1
		prevEnd: 	nil
		encoder: 	{an EncoderForV3PlusClosures}
		requestor: 	nil
		parseNode: 	nil
		failBlock: 	[closure] in
		Compiler>>format:noPattern:ifFail:
		requestorOffset: 	0
		tempsMark: 	nil
		doitFlag: 	false
		properties: 	nil
		category: 	nil

BlockClosure>>on:do:
	Receiver: [closure] in
Parser>>parse:class:category:noPattern:context:notifying:ifFail:
	Arguments and temporary variables: 
		exception: 	ReparseAfterSourceEditing
		handlerAction: 	[closure] in
		Parser>>parse:class:category:noPattern:context:noti...etc...
		handlerActive: 	true
	Receiver''s instance variables: 
		outerContext:
Parser>>parse:class:category:noPattern:context:notifying:ifFail:
		startpc: 	131
		numArgs: 	0

--- The full stack ---
PseudoClass(Object)>>doesNotUnderstand: #variablesAndOffsetsDo:
EncoderForV3PlusClosures(Encoder)>>init:context:notifying:
[] in Parser>>parse:class:category:noPattern:context:notifying:ifFail:
BlockClosure>>on:do:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Parser>>parse:class:category:noPattern:context:notifying:ifFail:
Parser>>parse:class:noPattern:context:notifying:ifFail:
Compiler>>format:noPattern:ifFail:
Compiler>>format:in:notifying:decorated:
Compiler class>>format:in:notifying:decorated:
FileContentsBrowser>>selectedMessage
FileContentsBrowser(Browser)>>contents
FileContentsBrowser>>contents
PluggableShoutMorph(PluggableTextMorph)>>getText
PluggableShoutMorph(PluggableTextMorph)>>update:
[] in FileContentsBrowser(Object)>>changed:
DependentsArray>>do:
FileContentsBrowser(Object)>>changed:
FileContentsBrowser(Object)>>contentsChanged
FileContentsBrowser(CodeHolder)>>contentsChanged
FileContentsBrowser(Browser)>>messageListIndex:
PluggableListMorph>>changeModelSelection:
PluggableListMorph>>mouseUp:
PluggableListMorph(Morph)>>handleMouseUp:
MouseButtonEvent>>sentTo:
PluggableListMorph(Morph)>>handleEvent:
MorphicEventDispatcher>>dispatchDefault:with:
...etc...'

[Pharo-project] Browsing code files with prettyPrint

Markus Fritsche