--- a/DebugView.st Sun Oct 30 14:23:06 2016 +0100
+++ b/DebugView.st Sun Oct 30 14:34:57 2016 +0100
@@ -3791,15 +3791,7 @@
colorUsed := isStoppedAtHaltOrBreakPoint
ifTrue:[ Color orange ]
ifFalse:[ Color red ].
-
- (exceptionInfoLabel backgroundColor brightness dist:colorUsed brightness) < 0.5
- ifTrue:[
- exceptionInfoLabel backgroundColor brightness > 0.5 ifTrue:[
- colorUsed := colorUsed slightlyDarkened.
- ] ifFalse:[
- colorUsed := colorUsed slightlyLigntened.
- ].
- ].
+ colorUsed := colorUsed contrastingColorFor:exceptionInfoLabel backgroundColor.
exceptionInfoLabel
label:(resources