The Trunk: ST80-mt.250.mcz

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 ]]!