[Pkg] The Trunk: EToys-mt.463.mcz

[commits at source.squeak.org]

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

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

Name: EToys-mt.463
Author: mt
Time: 8 February 2022, 1:44:47.726027 pm
UUID: 36345ef8-cf30-c740-86f1-38d76603d804
Ancestors: EToys-mt.462

Complements Morphic-mt.1876

=============== Diff against EToys-mt.462 ===============

Item was removed:
- ----- Method: Debugger>>buttonRowForPreDebugWindow: (in category '*Etoys-Squeakland-initialize') -----
- buttonRowForPreDebugWindow: aDebugWindow
- 	"Answer a morph that will serve as the button row in a pre-debug window."
- 
- 	| aRow aButton quads aFont |
- 	aRow := AlignmentMorph newRow hResizing: #spaceFill.
- 	aRow beSticky.
- 	aRow on: #mouseDown send: #yourself to: self.  "Avoid dragging window."
- 	aRow addMorphBack: AlignmentMorph newVariableTransparentSpacer.
- 	quads := OrderedCollection withAll: self preDebugButtonQuads.
- 	((self interruptedContext selector == #doesNotUnderstand:) and:
- 		[Preferences eToyFriendly not]) ifTrue:
- 		[quads add: { 'Create'. #createMethod. #magenta. 'create the missing method' }].
- 	aFont := Preferences eToyFriendly
- 		ifFalse:
- 			[Preferences standardButtonFont]
- 		ifTrue:
- 			[Preferences standardEToysButtonFont].
- 	quads do:
- 			[:quad |
- 				aButton := SimpleButtonMorph new target: aDebugWindow.
- 				aButton color: Color transparent; borderWidth: 1.
- 				aButton actionSelector: quad second.
- 				aButton label: quad first font: aFont.
- 				aButton submorphs first color: (Color colorFrom: quad third).
- 				aButton setBalloonText: quad fourth.
- 				aRow addMorphBack: aButton.
- 				aRow addMorphBack: AlignmentMorph newVariableTransparentSpacer].
- 	^ aRow!

Item was removed:
- ----- Method: Debugger>>preDebugNotifierContentsFrom: (in category '*Etoys-Squeakland-initialize') -----
- preDebugNotifierContentsFrom: messageString
- 	| first second msg |
- 	^ Preferences eToyFriendly
- 		ifFalse:
- 			[messageString]
- 		ifTrue:
- 			[
- 				msg := messageString.
- 				msg ifNil: [msg := ''].
- 				first := second := 0.
- 				first := msg indexOf: $\.
- 				first > 0 ifTrue: [second := msg indexOf: $\ startingAt: first + 1].
- 				(first > 0 and: [second > 0]) ifTrue: [
- 					'An error has occurred in\{3} of {2}.\Fix your script(s), hit ''Abandon'' and try again.' translated withCRs format: {msg copyFrom: 1 to: first - 1. msg copyFrom: first + 1 to: second - 1. msg copyFrom: second + 1 to: msg size}
- 				] ifFalse: [
- 					'An error has occurred; you should probably just hit ''abandon''.  Sorry!!' translated
- 				]
- 			] !