Hi,

I am changing the default text font in image 6703. Tha same thing
happens in 6704. After the error shown below, the TOOLS flap is gone. It
makes no difference to which font I try to change. Even a change to the
same original font produces this walkback.

Cheers,

Paul Provoost
The Netherlands



27 November 2005 2:08:16 pm

VM: unix - a SmalltalkImage
Image: Squeak3.9alpha [latest update: #6703]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /opt/squeak/images
Trusted Dir /opt/squeak/images/secure
Untrusted Dir /opt/squeak/images/My Squeak

SyntaxErrorNotification class(Object)>>doesNotUnderstand:
#inClass:withCode:doitFlag:
	Receiver: SyntaxErrorNotification
	Arguments and temporary variables: 
		aMessage: 	inClass: BlockContext withCode: 'Message pattern expected
->.e., for ...etc...
	Receiver's instance variables: 
		superclass: 	Notification
		methodDict: 	a MethodDictionary(#category->a CompiledMethod (638)
#defaultAction...etc...
		format: 	148
		instanceVariables: 	#('inClass' 'code' 'category' 'doitFlag')
		organization: 	('accessing' category doitFlag errorClass errorCode
messageText s...etc...
		subclasses: 	nil
		name: 	#SyntaxErrorNotification
		classPool: 	nil
		sharedPools: 	nil
		environment: 	a SystemDictionary(lots of globals)
		category: 	nil

Parser>>notify:at:
	Receiver: a Parser
	Arguments and temporary variables: 
		string: 	'Message pattern expected'
		location: 	1
	Receiver's instance variables: 
		source: 	a ReadStream '.e., for DoIts)."

         | methNode repeatNeeded myStr...etc...
		mark: 	2
		hereChar: 	$.
		aheadChar: 	$,
		token: 	'e'
		tokenType: 	#word
		currentComment: 	nil
		buffer: 	a WriteStream 'e'
		typeTable: 	#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xB...etc...
		here: 	#.
		hereType: 	#period
		hereMark: 	1
		hereEnd: 	1
		prevMark: 	1
		prevEnd: 	nil
		encoder: 	{an Encoder}
		requestor: 	nil
		parseNode: 	nil
		failBlock: 	[] in Compiler>>parse:in:notifying: {[]}
		requestorOffset: 	0
		tempsMark: 	nil
		doitFlag: 	false
		category: 	nil

Parser>>expected:
	Receiver: a Parser
	Arguments and temporary variables: 
		aString: 	'Message pattern'
	Receiver's instance variables: 
		source: 	a ReadStream '.e., for DoIts)."

         | methNode repeatNeeded myStr...etc...
		mark: 	2
		hereChar: 	$.
		aheadChar: 	$,
		token: 	'e'
		tokenType: 	#word
		currentComment: 	nil
		buffer: 	a WriteStream 'e'
		typeTable: 	#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xB...etc...
		here: 	#.
		hereType: 	#period
		hereMark: 	1
		hereEnd: 	1
		prevMark: 	1
		prevEnd: 	nil
		encoder: 	{an Encoder}
		requestor: 	nil
		parseNode: 	nil
		failBlock: 	[] in Compiler>>parse:in:notifying: {[]}
		requestorOffset: 	0
		tempsMark: 	nil
		doitFlag: 	false
		category: 	nil

Parser>>pattern:inContext:
	Receiver: a Parser
	Arguments and temporary variables: 
		fromDoit: 	false
		ctxt: 	nil
		args: 	nil
		selector: 	nil
	Receiver's instance variables: 
		source: 	a ReadStream '.e., for DoIts)."

         | methNode repeatNeeded myStr...etc...
		mark: 	2
		hereChar: 	$.
		aheadChar: 	$,
		token: 	'e'
		tokenType: 	#word
		currentComment: 	nil
		buffer: 	a WriteStream 'e'
		typeTable: 	#(#xBinary #xBinary #xBinary #xBinary #xBinary #xBinary
#xBinary #xB...etc...
		here: 	#.
		hereType: 	#period
		hereMark: 	1
		hereEnd: 	1
		prevMark: 	1
		prevEnd: 	nil
		encoder: 	{an Encoder}
		requestor: 	nil
		parseNode: 	nil
		failBlock: 	[] in Compiler>>parse:in:notifying: {[]}
		requestorOffset: 	0
		tempsMark: 	nil
		doitFlag: 	false
		category: 	nil


--- The full stack ---
SyntaxErrorNotification class(Object)>>doesNotUnderstand:
#inClass:withCode:doitFlag:
Parser>>notify:at:
Parser>>expected:
Parser>>pattern:inContext:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Parser>>method:context:encoder:
[] in Parser>>parse:class:noPattern:context:notifying:ifFail: {[methNode
:= self     method: noPattern     context: ctxt     encoder: (Enco...]}
BlockContext>>on:do:
Parser>>parse:class:noPattern:context:notifying:ifFail:
Compiler>>parse:in:notifying:
[] in Decompiler>>decompileBlock: {[homeClass compilerClass new   parse:
source   in: homeClass   notifying: nil]}
BlockContext>>on:do:
Decompiler>>decompileBlock:
BlockContext>>decompile
BlockContext>>printOn:
[] in BlockContext(Object)>>printStringLimitedTo: {[:s | self printOn:
s]}
String class(SequenceableCollection class)>>streamContents:limitedTo:
BlockContext(Object)>>printStringLimitedTo:
BlockContext(Object)>>printString
BlockContext(Object)>>asString
...etc...