Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1583.mcz==================== Summary ====================
Name: Morphic-mt.1583
Author: mt
Time: 29 October 2019, 3:09:10.326172 pm
UUID: 2724b1c3-9a13-1c4f-811f-a5bbc8ed76e1
Ancestors: Morphic-mt.1582
Make it possible to recover from (deprecation) warnings in important drawing methods.
See
http://forum.world.st/The-Trunk-System-mt-1093-mcz-tp5103937p5106420.html=============== Diff against Morphic-mt.1582 ===============
Item was changed:
----- Method: WorldState>>displayWorldSafely: (in category 'update cycle') -----
displayWorldSafely: aWorld
"Update this world's display and keep track of errors during draw methods."
| finished classesWithErrors |
finished := false.
[finished] whileFalse: [
+ [aWorld displayWorld. finished := true] on: Error, Halt, Warning do: [:ex |
- [aWorld displayWorld. finished := true] on: Error, Halt do: [:ex |
"Handle a drawing error"
| err rcvr errCtx errMorph |
err := ex description.
rcvr := ex receiver.
errCtx := thisContext.
[
errCtx := errCtx sender.
"Search the sender chain to find the morph causing the problem"
[errCtx notNil and:[(errCtx receiver isMorph) not]]
whileTrue:[errCtx := errCtx sender].
"If we're at the root of the context chain then we have a fatal drawing problem"
errCtx ifNil:[^Project current fatalDrawingError: err].
errMorph := errCtx receiver.
"If the morph causing the problem has already the #drawError flag set,
then search for the next morph above in the caller chain."
errMorph hasProperty: #errorOnDraw
] whileTrue.
errMorph setProperty: #errorOnDraw toValue: true.
"Catch all errors, one for each receiver class."
classesWithErrors ifNil: [classesWithErrors := IdentitySet new].
(classesWithErrors includes: rcvr class) ifFalse: [
classesWithErrors add: rcvr class.
ToolSet debugException: ex].
"Repaint all to catch all errors now and not if the debugger will appear."
aWorld fullRepaintNeeded.
]].!
Locked
