I think the second and the third change is fine. But I do not see the method

request:
initialAnswer:
                       centerAt:
                       inWorld:
                       onCancelReturn:
                       acceptOnCR:
                       answerExtent:

in MorphicUIManager

--Hannes

On Tue, 12 Apr 2011 11:42:06.272 0000, commits at source.squeak.org
<commits at source.squeak.org> wrote:
> Edgar J. De Cleene uploaded a new version of Monticello to project The
> Inbox:
> http://source.squeak.org/inbox/Monticello-edc.456.mcz
>
> ==================== Summary ====================
>
> Name: Monticello-edc.456
> Author: edc
> Time: 12 April 2011, 8:43:35.257 am
> UUID: a9b0cc20-0fed-4a2d-92a6-ed1df442421b
> Ancestors: Monticello-nice.455
>
> Some cleanup for avoid UI dependencies with LegacyMorphic
>
> =============== Diff against Monticello-nice.455 ===============
>
> Item was changed:
>   ----- Method: MCRepository class>>fillInTheBlankConfigure: (in category
> 'configuring') -----
>   fillInTheBlankConfigure: aTemplateString
>   	| chunk repo |
>   	
>   	aTemplateString ifNil: [ ^ false ].
> + 	chunk := UIManager default
> - 	chunk := FillInTheBlankMorph
>   			request: self fillInTheBlankRequest
>   			initialAnswer: aTemplateString
>   			centerAt: Sensor cursorPoint
>   			inWorld: World
>   			onCancelReturn: nil
>   			acceptOnCR: false
>   			answerExtent: 400 at 120.
>   			
>   	chunk
>   		ifNotNil: [
>   			repo := self readFrom: chunk readStream.
>   			repo creationTemplate: chunk.
>   	].
>
>   	^ repo!
>
> Item was changed:
>   ----- Method: MCSmtpRepository class>>morphicConfigure (in category 'as
> yet unclassified') -----
>   morphicConfigure
>   	| address |
> + 	address := UIManager default  request: 'Email address:'.
> - 	address := FillInTheBlankMorph request: 'Email address:'.
>   	^ address isEmpty ifFalse: [self new emailAddress: address]!
>
> Item was changed:
>   ----- Method: MCWorkingCopyBrowser>>addWorkingCopy (in category 'actions')
> -----
>   addWorkingCopy
>   	|name|
> + 	name := UIManager default  request: 'Name of package:'.
> - 	name := FillInTheBlankMorph request: 'Name of package:'.
>   	name isEmptyOrNil ifFalse:
>   		[PackageInfo registerPackageName: name.
>   		workingCopy := MCWorkingCopy forPackage: (MCPackage new name: name).
>   		workingCopyWrapper := nil.
>   		self repositorySelection: 0].
>   	self workingCopyListChanged; changed: #workingCopySelection; changed:
> #repositoryList.
>   	self changedButtons.!
>
>
>