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