--- a/Tools__TestRunner2.st	Wed Mar 27 23:44:53 2019 +0100
+++ b/Tools__TestRunner2.st	Thu Mar 28 12:16:24 2019 +0100
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  Copyright (c) 2007-2010 Jan Vrany, SWING Research Group, Czech Technical University in Prague
  Copyright (c) 2009-2010 eXept Software AG
@@ -457,44 +455,48 @@
      the UIPainter may not be able to read the specification."
 
     "
-     UIPainter new openOnClass:TestRunner2 andSelector:#resultPaneSpec
-     TestRunner2 new openInterface:#resultPaneSpec
+     UIPainter new openOnClass:Tools::TestRunner2 andSelector:#resultPaneSpec
+     Tools::TestRunner2 new openInterface:#resultPaneSpec
     "
 
     <resource: #canvas>
 
     ^ 
-     #(FullSpec
-        name: resultPaneSpec
-        window: 
-       (WindowSpec
-          label: 'Result spec'
-          name: 'Result spec'
-          min: (Point 10 10)
-          bounds: (Rectangle 0 0 300 300)
-        )
-        component: 
-       (SpecCollection
-          collection: (
-           (LabelSpec
-              label: 'N/A'
-              name: 'Mode'
-              layout: (LayoutFrame 0 0 0 0 0 1 0 0.6)
-              style: (FontDescription arial bold roman 14)
-              labelChannel: modeHolder
-            )
-           (LabelSpec
-              label: '...'
-              name: 'Details'
-              layout: (LayoutFrame 0 0 0 0.6 0 1 0 1)
-              labelChannel: detailsHolder
-            )
+    #(FullSpec
+       name: resultPaneSpec
+       uuid: '37918ac4-5147-11e9-b21f-b8f6b1108e05'
+       window: 
+      (WindowSpec
+         label: 'Result spec'
+         name: 'Result spec'
+         uuid: '37918dee-5147-11e9-b21f-b8f6b1108e05'
+         min: (Point 10 10)
+         bounds: (Rectangle 0 0 300 300)
+       )
+       component: 
+      (SpecCollection
+         collection: (
+          (LabelSpec
+             label: 'N/A'
+             name: 'Mode'
+             layout: (LayoutFrame 0 0 0 0 0 1 0 0.59999999999999998)
+             style: (FontDescription arial bold roman 12)
+             uuid: '379192b2-5147-11e9-b21f-b8f6b1108e05'
+             translateLabel: true
+             labelChannel: modeHolder
            )
-         
-        )
-      )
-
-    "Modified: / 18-01-2008 / 18:44:00 / janfrog"
+          (LabelSpec
+             label: '...'
+             name: 'Details'
+             layout: (LayoutFrame 0 0 0 0.59999999999999998 0 1 0 1)
+             uuid: '379194d8-5147-11e9-b21f-b8f6b1108e05'
+             translateLabel: true
+             labelChannel: detailsHolder
+           )
+          )
+        
+       )
+     )
 !
 
 testHistoryTabSpec
@@ -1448,7 +1450,7 @@
                     self displayRunning: result test: test total: aTestSuite tests size
                 ]
                 afterEachDo:[:test :result|
-                    testCases add: test class name
+                    testCases add:(test class name)
                 ]
                 debug:doDebug.
 
@@ -1468,6 +1470,7 @@
     "Modified: / 04-07-2011 / 23:06:23 / cg"
     "Created: / 21-08-2011 / 17:51:42 / cg"
     "Modified: / 26-07-2013 / 19:13:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 28-03-2019 / 11:12:51 / Claus Gittinger"
 ! !
 
 !TestRunner2 methodsFor:'actions - menu'!
@@ -2241,23 +2244,24 @@
     "Modified: / 04-08-2011 / 19:05:55 / cg"
 !
 
-makeTestEntryFor: test result: result
-
+makeTestEntryFor:test result: result
     | entry |
+    
     entry := ListEntry labeled: test selector.
     entry test: test.
-    (result errors includes: test)
-        ifTrue:
-            [entry result: #error]
-        ifFalse:
-            [(result failures includes: test)
-                ifTrue:
-                    [entry result: #failed]
-                ifFalse:
-                    [entry result: #passed]].
+    (result errors includes: test) ifTrue:[
+        entry result: #error
+    ] ifFalse:[
+        (result failures includes: test) ifTrue:[
+            entry result: #failed
+        ] ifFalse: [
+            entry result: #passed
+        ]
+    ].
     ^entry
 
     "Created: / 19-03-2010 / 08:41:53 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified (format): / 28-03-2019 / 11:47:01 / Claus Gittinger"
 ! !
 
 !TestRunner2::ResultList::ListEntry class methodsFor:'initialization'!
@@ -2465,6 +2469,13 @@
     ^self result == #passed
 
     "Created: / 08-02-2010 / 10:18:15 / Jan Vrany <jan,vrany@fit.cvut.cz>"
+!
+
+isSkipped
+
+    ^self result == #skipped
+
+    "Created: / 28-03-2019 / 11:32:22 / Claus Gittinger"
 ! !
 
 !TestRunner2 class methodsFor:'documentation'!