I see use a Doit , copied here

>>>DoIt
>>>  CurvierMorph drawCurvier: Preferences Curvier.
>>> ^ Preferences removePreference: #Curvier

Can't find drawCurvier: on older .images or in my computer.

Edgar

-------------- next part --------------
MessageNotUnderstood: CurvierMorph class>>drawCurvier:
11 August 2013 5:36:23.125 pm

VM: Mac OS - Smalltalk
Image: Squeak4.4 [latest update: #12568]

SecurityManager state:
Restricted: false
FileAccess: true
SocketAccess: true
Working Dir /Users/edgar/AtlantisSqueak/imagesZip/Squeak4.5-12568
Trusted Dir /foobar/tooBar/forSqueak/bogus/
Untrusted Dir /Users/edgar/Library/Preferences/Squeak/Internet/Untrusted

CurvierMorph class(Object)>>doesNotUnderstand: #drawCurvier:
	Receiver: CurvierMorph
	Arguments and temporary variables: 
		aMessage: 	drawCurvier: true
		exception: 	MessageNotUnderstood: CurvierMorph class>>drawCurvier:
		resumeValue: 	nil
	Receiver's instance variables: 
		superclass: 	PolygonMorph
		methodDict: 	a MethodDictionary(#initialize->(CurvierMorph>>#initialize "a Compi...etc...
		format: 	166
		instanceVariables: 	nil
		organization: 	('initialization' initialize)

		subclasses: 	nil
		name: 	#CurvierMorph
		classPool: 	a Dictionary(#SlopeConstantsCache->nil )
		sharedPools: 	nil
		environment: 	Smalltalk
		category: 	#'Morphic-Basic-NewCurve'

UndefinedObject>>DoIt
	Receiver: nil
	Arguments and temporary variables: 

	Receiver's instance variables: 
nil
Compiler>>evaluate:cue:ifFail:logged:
	Receiver: a Compiler
	Arguments and temporary variables: 
		textOrStream: 	'"Migrate #Curvier to the new pragma preference."
CurvierMorph dr...etc...
		aCue: 	a CompilationCue
		failBlock: 	[closure] in Compiler class>>evaluate:for:notifying:logged:
		logFlag: 	false
		methodNode: 	DoIt
	"Migrate #Curvier to the new pragma preference."
	CurvierMorp...etc...
		method: 	(UndefinedObject>>#DoIt "a CompiledMethod(2490)")
		value: 	nil
		toLog: 	nil
		itsSelection: 	nil
		itsSelectionString: 	nil
	Receiver's instance variables: 
		sourceStream: 	a ReadStream
		parser: 	a Parser
		cue: 	a CompilationCue

Compiler>>evaluate:in:to:notifying:ifFail:logged:
	Receiver: a Compiler
	Arguments and temporary variables: 
		textOrStream: 	'"Migrate #Curvier to the new pragma preference."
CurvierMorph dr...etc...
		aContext: 	nil
		receiver: 	nil
		aRequestor: 	nil
		failBlock: 	[closure] in Compiler class>>evaluate:for:notifying:logged:
		logFlag: 	false
		theClass: 	UndefinedObject
	Receiver's instance variables: 
		sourceStream: 	a ReadStream
		parser: 	a Parser
		cue: 	a CompilationCue

Compiler class>>evaluate:for:notifying:logged:
	Receiver: Compiler
	Arguments and temporary variables: 
		textOrString: 	'"Migrate #Curvier to the new pragma preference."
CurvierMorph dr...etc...
		anObject: 	nil
		aController: 	nil
		logFlag: 	false
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#compile:ifFail:->(Compiler>>#compile:ifFail: "a...etc...
		format: 	136
		instanceVariables: 	#('sourceStream' 'parser' 'cue')
		organization: 	('error handling' notify: notify:at:)
('public access' compile:if...etc...
		subclasses: 	nil
		name: 	#Compiler
		classPool: 	a Dictionary()
		sharedPools: 	nil
		environment: 	Smalltalk
		category: 	#'Compiler-Kernel'

Compiler class>>evaluate:for:logged:
	Receiver: Compiler
	Arguments and temporary variables: 
		textOrString: 	'"Migrate #Curvier to the new pragma preference."
CurvierMorph dr...etc...
		anObject: 	nil
		logFlag: 	false
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#compile:ifFail:->(Compiler>>#compile:ifFail: "a...etc...
		format: 	136
		instanceVariables: 	#('sourceStream' 'parser' 'cue')
		organization: 	('error handling' notify: notify:at:)
('public access' compile:if...etc...
		subclasses: 	nil
		name: 	#Compiler
		classPool: 	a Dictionary()
		sharedPools: 	nil
		environment: 	Smalltalk
		category: 	#'Compiler-Kernel'

Compiler class>>evaluate:
	Receiver: Compiler
	Arguments and temporary variables: 
		textOrString: 	'"Migrate #Curvier to the new pragma preference."
CurvierMorph dr...etc...
	Receiver's instance variables: 
		superclass: 	Object
		methodDict: 	a MethodDictionary(#compile:ifFail:->(Compiler>>#compile:ifFail: "a...etc...
		format: 	136
		instanceVariables: 	#('sourceStream' 'parser' 'cue')
		organization: 	('error handling' notify: notify:at:)
('public access' compile:if...etc...
		subclasses: 	nil
		name: 	#Compiler
		classPool: 	a Dictionary()
		sharedPools: 	nil
		environment: 	Smalltalk
		category: 	#'Compiler-Kernel'

MCPostscriptDefinition(MCScriptDefinition)>>evaluate
	Receiver: a MCPostscriptDefinition(System package postscript)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		script: 	'"Migrate #Curvier to the new pragma preference."
CurvierMorph drawCurv...etc...
		packageName: 	'System'

MCPostscriptDefinition>>postload
	Receiver: a MCPostscriptDefinition(System package postscript)
	Arguments and temporary variables: 

	Receiver's instance variables: 
		script: 	'"Migrate #Curvier to the new pragma preference."
CurvierMorph drawCurv...etc...
		packageName: 	'System'

MCPostscriptDefinition(MCDefinition)>>postloadOver:
	Receiver: a MCPostscriptDefinition(System package postscript)
	Arguments and temporary variables: 
		aDefinition: 	a MCPostscriptDefinition(System package postscript)
	Receiver's instance variables: 
		script: 	'"Migrate #Curvier to the new pragma preference."
CurvierMorph drawCurv...etc...
		packageName: 	'System'

[] in [] in [] in [] in MCPackageLoader>>basicLoad
	Receiver: a MCPackageLoader
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		requirements: 	#()
		unloadableDefinitions: 	a SortedCollection()
		obsoletions: 	a Dictionary(a MCMethodDefinition(DefaultExternalDropHandler>>serv...etc...
		additions: 	an OrderedCollection(a MCPostscriptDefinition(System package postscr...etc...
		removals: 	an OrderedCollection(a MCMethodDefinition(Preferences class>>Curvier)...etc...
		errorDefinitions: 	an OrderedCollection()
		provisions: 	a Set(#SMDefaultInstaller #FormTest #ClassListBrowser #HSVColorSele...etc...
		methodAdditions: 	an OrderedCollection(a MethodAddition a MethodAddition a Metho...etc...
		preamble: 	nil

[] in [] in OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(a MCPostscriptDefinition(System package postscript) a MCMethodDefinit...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	{a MCPostscriptDefinition(System package postscript) . a MCMethodDefinit...etc...
		firstIndex: 	1
		lastIndex: 	6

OrderedCollection>>do:
	Receiver: an OrderedCollection(a MCPostscriptDefinition(System package postscript) a MCMethodDefinit...etc...
	Arguments and temporary variables: 
		aBlock: 	[closure] in [] in OrderedCollection(Collection)>>do:displayingProgress...etc...
		index: 	1
	Receiver's instance variables: 
		array: 	{a MCPostscriptDefinition(System package postscript) . a MCMethodDefinit...etc...
		firstIndex: 	1
		lastIndex: 	6

[] in OrderedCollection(Collection)>>do:displayingProgress:every:
	Receiver: an OrderedCollection(a MCPostscriptDefinition(System package postscript) a MCMethodDefinit...etc...
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		array: 	{a MCPostscriptDefinition(System package postscript) . a MCMethodDefinit...etc...
		firstIndex: 	1
		lastIndex: 	6

[] in [] in MorphicUIManager>>displayProgress:at:from:to:during:
	Receiver: a MorphicUIManager
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		toolBuilder: 	nil

BlockClosure>>on:do:
	Receiver: [closure] in [] in MorphicUIManager>>displayProgress:at:from:to:during:
	Arguments and temporary variables: 
		exception: 	ProgressNotification
		handlerAction: 	[closure] in [] in MorphicUIManager>>displayProgress:at:from:to:...etc...
		handlerActive: 	true
	Receiver's instance variables: 
		outerContext: 	[] in MorphicUIManager>>displayProgress:at:from:to:during:
		startpc: 	86
		numArgs: 	0

[] in MorphicUIManager>>displayProgress:at:from:to:during:
	Receiver: a MorphicUIManager
	Arguments and temporary variables: 
<<error during printing>
	Receiver's instance variables: 
		toolBuilder: 	nil

BlockClosure>>ensure:
	Receiver: [closure] in MorphicUIManager>>displayProgress:at:from:to:during:
	Arguments and temporary variables: 
		aBlock: 	[closure] in MorphicUIManager>>displayProgress:at:from:to:during:
		complete: 	nil
		returnValue: 	nil
	Receiver's instance variables: 
		outerContext: 	MorphicUIManager>>displayProgress:at:from:to:during:
		startpc: 	79
		numArgs: 	0

MorphicUIManager>>displayProgress:at:from:to:during:
	Receiver: a MorphicUIManager
	Arguments and temporary variables: 
		titleString: 	''
		aPoint: 	398 at 300
		minVal: 	0
		maxVal: 	6
		workBlock: 	[closure] in OrderedCollection(Collection)>>do:displayingProgress:ev...etc...
		progress: 	[closure] in SystemProgressMorph>>position:label:min:max:
		result: 	#(nil)
	Receiver's instance variables: 
		toolBuilder: 	nil


--- The full stack ---
CurvierMorph class(Object)>>doesNotUnderstand: #drawCurvier:
UndefinedObject>>DoIt
Compiler>>evaluate:cue:ifFail:logged:
Compiler>>evaluate:in:to:notifying:ifFail:logged:
Compiler class>>evaluate:for:notifying:logged:
Compiler class>>evaluate:for:logged:
Compiler class>>evaluate:
MCPostscriptDefinition(MCScriptDefinition)>>evaluate
MCPostscriptDefinition>>postload
MCPostscriptDefinition(MCDefinition)>>postloadOver:
[] in [] in [] in [] in MCPackageLoader>>basicLoad
[] in [] in OrderedCollection(Collection)>>do:displayingProgress:every:
OrderedCollection>>do:
[] in OrderedCollection(Collection)>>do:displayingProgress:every:
[] in [] in MorphicUIManager>>displayProgress:at:from:to:during:
BlockClosure>>on:do:
[] in MorphicUIManager>>displayProgress:at:from:to:during:
BlockClosure>>ensure:
MorphicUIManager>>displayProgress:at:from:to:during:
 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
ProgressInitiationException>>defaultResumeValue
ProgressInitiationException(Exception)>>resume
ProgressInitiationException>>defaultAction
UndefinedObject>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
MethodContext(ContextPart)>>handleSignal:
ProgressInitiationException(Exception)>>signal
ProgressInitiationException>>display:at:from:to:during:
ProgressInitiationException class>>display:at:from:to:during:
ByteString(String)>>displayProgressAt:from:to:during:
ByteString(String)>>displayProgressFrom:to:during:
OrderedCollection(Collection)>>do:displayingProgress:every:
OrderedCollection(Collection)>>do:displayingProgress:
[] in [] in [] in MCPackageLoader>>basicLoad
BlockClosure>>on:do:
[] in [] in MCPackageLoader>>basicLoad
BlockClosure>>on:do:
CurrentReadOnlySourceFiles class>>cacheDuring:
[] in MCPackageLoader>>basicLoad
BlockClosure>>ensure:
MCPackageLoader>>basicLoad
[] in MCPackageLoader>>loadWithNameLike:
BlockClosure>>ensure:
MCPackageLoader>>useChangeSetNamed:during:
MCPackageLoader>>useNewChangeSetNamedLike:during:
MCPackageLoader>>loadWithNameLike:
MCThreeWayMerger(MCMerger)>>loadWithNameLike:
MCVersionMerger>>mergeWithNameLike:
MCVersionMerger class>>mergeVersion:
MCDiffyVersion(MCVersion)>>merge
[] in [] in MCConfiguration>>upgrade
BlockClosure>>on:do:
[] in MCConfiguration>>upgrade
[] in [] in MCConfiguration>>depsSatisfying:versionDo:displayingProgress:
OrderedCollection>>do:
MCConfiguration>>withProgress:in:do:
[] in MCConfiguration>>depsSatisfying:versionDo:displayingProgress:
BlockClosure>>ensure:
MCHttpRepository(MCFileBasedRepository)>>cacheAllFileNamesDuring:
[] in [] in MCConfiguration>>cacheAllFileNamesDuring:
-- and more not shown --