[squeak-dev] The Trunk: ST80-mt.250.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Apr 15 13:57:47 UTC 2020


Marcel Taeumel uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-mt.250.mcz

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

Name: ST80-mt.250
Author: mt
Time: 15 April 2020, 3:57:45.964534 pm
UUID: e34860eb-ab2f-944c-a581-3df631705a37
Ancestors: ST80-eem.249

Complements ToolBuilder-Kernel-mt.138.

And fixes the issue that choosing "find and replace" from the menu raised a debugger.

=============== Diff against ST80-eem.249 ===============

Item was changed:
  ----- Method: FillInTheBlank class>>request:initialAnswer:centerAt: (in category 'instance creation') -----
  request: queryString initialAnswer: defaultAnswer centerAt: aPoint 
- 	"Create an instance of me whose question is queryString with the given
- 	initial answer. Invoke it centered at the given point, and answer the
- 	string the user accepts. Answer the empty string if the user cancels."
  
+ 	^ self
+ 		request: queryString
+ 		initialAnswer: defaultAnswer
+ 		centerAt: aPoint
+ 		onCancelReturn: ''!
- 	"UIManager default
- 		request: 'Type something, then type CR.'
- 		initialAnswer: 'yo ho ho!!'
- 		centerAt: Display center"
- 
- 	| model fillInView |
- 	Smalltalk isMorphic 
- 		ifTrue: 
- 			[^self fillInTheBlankMorphClass 
- 				request: queryString
- 				initialAnswer: defaultAnswer
- 				centerAt: aPoint].
- 	model := self new.
- 	model contents: defaultAnswer.
- 	fillInView := self fillInTheBlankViewClass 
- 				on: model
- 				message: queryString
- 				centerAt: aPoint.
- 	^model show: fillInView!

Item was added:
+ ----- Method: FillInTheBlank class>>request:initialAnswer:centerAt:onCancelReturn: (in category 'instance creation') -----
+ request: queryString initialAnswer: defaultAnswer centerAt: aPoint onCancelReturn: cancelResponse
+ 	"Create an instance of me whose question is queryString with the given
+ 	initial answer. Invoke it centered at the given point, and answer the
+ 	string the user accepts. Answer the empty string if the user cancels."
+ 
+ 	"UIManager default
+ 		request: 'Type something, then type CR.'
+ 		initialAnswer: 'yo ho ho!!'
+ 		centerAt: Display center"
+ 
+ 	| model fillInView |
+ 	Smalltalk isMorphic 
+ 		ifTrue: 
+ 			[^self fillInTheBlankMorphClass 
+ 				request: queryString
+ 				initialAnswer: defaultAnswer
+ 				centerAt: aPoint].
+ 	model := self new.
+ 	model contents: defaultAnswer.
+ 	model responseUponCancel: cancelResponse.
+ 	fillInView := self fillInTheBlankViewClass 
+ 				on: model
+ 				message: queryString
+ 				centerAt: aPoint.
+ 	^model show: fillInView!

Item was added:
+ ----- Method: FillInTheBlank class>>request:initialAnswer:onCancelReturn: (in category 'instance creation') -----
+ request: queryString initialAnswer: defaultAnswer onCancelReturn: cancelResponse
+ 
+ 	^ self
+ 		request: queryString
+ 		initialAnswer: defaultAnswer
+ 		centerAt: (ActiveHand ifNil:[Sensor]) cursorPoint
+ 		onCancelReturn: cancelResponse!

Item was added:
+ ----- Method: ParagraphEditor>>findReplace (in category 'menu messages') -----
+ findReplace
+ 
+ 	(Project uiManager
+ 		request: 'Find what to replace?'
+ 		initialAnswer: FindText)
+ 			ifNotEmpty: [:find |
+ 
+ 				(Project uiManager
+ 					request: ('Replace ''{1}'' with?' format: {find})
+ 					initialAnswer: (ChangeText ifEmpty: [find])
+ 					onCancelReturn: nil)
+ 						ifNotNil: [:replace |
+ 
+ 							FindText := find.
+ 							ChangeText := replace.
+ 							self againOrSame: true ]]!



More information about the Squeak-dev mailing list