The Trunk: Morphic-mt.1645.mcz

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

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

Name: Morphic-mt.1645
Author: mt
Time: 15 April 2020, 3:58:57.961534 pm
UUID: 7c18f364-8317-2340-9326-cf101041cfb3
Ancestors: Morphic-mt.1644

Fixes the issue that an empty replacement string was not accepted by the text editor. Now it is.

(Complements ToolBuilder-Kernel-mt.138)

=============== Diff against Morphic-mt.1644 ===============

Item was changed:
  ----- Method: TextEditor>>findReplace (in category 'menu messages') -----
  findReplace
 
  self
  setSearchFromSelectionOrHistory;
  setReplacementFromHistory.
 
+ (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 findReplaceAgainNow]]!
- (UIManager default request: 'Find what to replace?' initialAnswer: FindText)
- ifEmpty: [^ self]
- ifNotEmpty: [:find |
- (UIManager default request: ('Replace ''{1}'' with?' format: {find}) initialAnswer: (ChangeText ifEmpty: [find]))
- ifEmpty: [^ self]
- ifNotEmpty: [:replace |
- FindText := find.
- ChangeText := replace.
- self findReplaceAgainNow]]!