The Trunk: SUnitGUI-mt.64.mcz

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

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

Name: SUnitGUI-mt.64
Author: mt
Time: 16 August 2016, 1:39:42.360602 pm
UUID: 08349d2a-bbbc-fd46-9741-19647ea05127
Ancestors: SUnitGUI-mt.63

Fixes test result colors in TestRunner.

=============== Diff against SUnitGUI-mt.63 ===============

Item was added:
+ ----- Method: TestRunner class>>themeProperties (in category 'preferences') -----
+ themeProperties
+
+ ^ super themeProperties, {
+ { #failureColor. 'Colors'. 'Color to indicate failed tests.'}.
+ { #errorColor. 'Colors'. 'Color to indicate errored tests.'}.
+ { #passColor. 'Colors'. 'Color to indicate passed tests.'}.
+
+ { #failureTextColor. 'Colors'. 'Color to indicate failed tests.'}.
+ { #errorTextColor. 'Colors'. 'Color to indicate errored tests.'}.
+ { #passTextColor. 'Colors'. 'Color to indicate passed tests.'}.
+
+ }!

Item was added:
+ ----- Method: TestRunner>>applyUserInterfaceTheme (in category 'updating') -----
+ applyUserInterfaceTheme
+
+ super applyUserInterfaceTheme.
+
+ self changed: #statusColor.
+ self changed: #statusTextColor.!

Item was changed:
  ----- Method: TestRunner>>buildStatusWith: (in category 'building') -----
  buildStatusWith: aBuilder
  ^ aBuilder pluggableTextSpec new
  model: self;
  menu: #statusMenu:;
  color: #statusColor;
+ textColor: #statusTextColor;
  getText: #statusText;
  yourself.!

Item was changed:
  ----- Method: TestRunner>>statusColor (in category 'accessing-testing') -----
  statusColor
+ result hasErrors ifTrue: [^ self userInterfaceTheme errorColor ifNil: [Color red]].
+ result hasFailures ifTrue: [^ self userInterfaceTheme failureColor ifNil: [Color yellow]].
+ ^ self userInterfaceTheme passColor ifNil: [Color green]!
- result hasErrors
- ifTrue: [ ^ Color red ].
- result hasFailures
- ifTrue:[ ^ Color yellow ].
- ^ Color green!

Item was added:
+ ----- Method: TestRunner>>statusTextColor (in category 'accessing-testing') -----
+ statusTextColor
+ result hasErrors ifTrue: [^ self userInterfaceTheme errorTextColor ifNil: [Color black]].
+ result hasFailures ifTrue: [^ self userInterfaceTheme failureTextColor ifNil: [Color black]].
+ ^ self userInterfaceTheme passTextColor ifNil: [Color black]!

Item was changed:
  ----- Method: TestRunner>>updateStatus: (in category 'updating') -----
  updateStatus: aBoolean
  "Update the status display, at most once a second if aBoolean is true."
 
  (aBoolean and: [ lastUpdate = Time totalSeconds ])
  ifTrue: [ ^ self ].
+ self changed: #statusText; changed: #statusColor; changed: #statusTextColor.
- self changed: #statusText; changed: #statusColor.
  lastUpdate := Time totalSeconds.!