Frank Shearar uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-fbs.538.mcz

==================== Summary ====================

Name: Monticello-fbs.538
Author: fbs
Time: 22 April 2013, 9:47:38.876 am
UUID: bcdc22c7-0316-4b4d-9242-dd967a146950
Ancestors: Monticello-fbs.537

Don't use FITBM directly. We have a UIManager for that.

=============== Diff against Monticello-fbs.537 ===============

Item was changed:
  ----- Method: MCRepository class>>fillInTheBlankConfigure: (in category 'configuring') -----
  fillInTheBlankConfigure: aTemplateString
  	| chunk repo |
  	
  	aTemplateString ifNil: [ ^ false ].
+ 	chunk := UIManager default
+ 		multiLineRequest: self fillInTheBlankRequest
+ 		centerAt: Sensor cursorPoint
+ 		initialAnswer: aTemplateString
+ 		answerHeight: 120.
- 	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.!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>renamePackage (in category 'actions') -----
  renamePackage
  	| newName |
  	workingCopy ifNil:
  		[ UIManager inform: 'Please select a package to be renamed.'.
  		^ self ].
  	workingCopy modified ifTrue:
  		[ UIManager inform: 'Only unmodified packages should be renamed.'.
  		^ self ].
+ 	newName := UIManager default
- 	newName := FillInTheBlankMorph
  		request: 'New name of package:'
  		initialAnswer: workingCopy packageName.
  	newName isEmptyOrNil ifFalse:
  		[ | newWorkingCopy |
  		newWorkingCopy := workingCopy renameToBe: newName.
  		workingCopy package snapshot definitions
  			ifEmpty:
  				[ "It worked."
  				workingCopy unregister.
  				workingCopy := newWorkingCopy.
  				self repositorySelection: 0.
  				self
  					 workingCopyListChanged ;
  					 changed: #workingCopySelection ;
  					 changed: #repositoryList.
  				self changedButtons ]
  			ifNotEmpty: 
  				[ "It didn't work, browse the remaining definitions."
  				self browseWorkingCopy ] ]!