alternate row's color

Author: vonbecmann

repository/EarleyParser-InspectorExtensions/JEDottedRule.extension.st

@@ -5,6 +5,7 @@ JEDottedRule >> inspectionPureIn: aBuilder [
 
 	<inspectorPresentationOrder: 1 title: 'Pure'>
 	^ aBuilder newTable
+		  alternateRowsColor;
 		  addColumn: (SpStringTableColumn new
 				   title: 'Name';
 				   evaluated: [ :each | each key ];
@@ -14,14 +15,14 @@ JEDottedRule >> inspectionPureIn: aBuilder [
 		  (SpStringTableColumn
 			   title: 'Value'
 			   evaluated: [ :each | each value ]);
-		  items: ({ 
+		  items: ({
 				   ('rule' -> self rule).
 				   ('dotIndex' -> self dotIndex).
 				   ('symbolAtDot' -> self symbolAtDot).
 				   ('predicted' -> self isPredicted).
 				   ('active' -> self isActive).
 				   ('final' -> self isFinal).
-				   ('next Dotted Rule' -> next) } collect: [ :each | 
+				   ('next Dotted Rule' -> next) } collect: [ :each |
 				   StInspectorAssociationNode hostObject: each ]);
 		  yourself
 ]

repository/EarleyParser-InspectorExtensions/JEGrammar.extension.st

@@ -5,12 +5,15 @@ JEGrammar >> inspectionNonterminalsIn: aBuilder [
 
 	<inspectorPresentationOrder: 2 title: 'nonterminals'>
 	^ aBuilder newTable
+		  alternateRowsColor;
 		  addColumn: (SpStringTableColumn new
 				   title: 'Nonterminal';
-				   evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ];
+				   evaluated: [ :each |
+					   StObjectPrinter asTruncatedTextFrom: each key ];
 				   yourself);
-		  items: (productionRules keys collect: [ :nonterminal | 
-						StInspectorAssociationNode hostObject: nonterminal -> (productionRules at: nonterminal) ]);
+		  items: (productionRules keys collect: [ :nonterminal |
+					   StInspectorAssociationNode hostObject:
+						   nonterminal -> (productionRules at: nonterminal) ]);
 		  yourself
 ]
 
@@ -19,6 +22,7 @@ JEGrammar >> inspectionProductionRulesIn: aBuilder [
 
 	<inspectorPresentationOrder: 1 title: 'production rules'>
 	^ aBuilder newTable
+		  alternateRowsColor;
 		  addColumn: (SpStringTableColumn new
 				   title: 'Production Rule';
 				   evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each ]);
@@ -31,17 +35,22 @@ JEGrammar >> inspectionRulesIn: aBuilder [
 
 	<inspectorPresentationOrder: 0 title: 'rules'>
 	^ aBuilder newTable
+		  alternateRowsColor;
 		  addColumn: (SpStringTableColumn new
 				   title: 'Key';
-				   evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each key ];
+				   evaluated: [ :each |
+					   StObjectPrinter asTruncatedTextFrom: each key ];
 				   yourself);
-			addColumn: (SpStringTableColumn new
+		  addColumn: (SpStringTableColumn new
 				   title: 'Rule';
-				   evaluated: [ :each | StObjectPrinter asTruncatedTextFrom: each value ];
+				   evaluated: [ :each |
+					   StObjectPrinter asTruncatedTextFrom: each value ];
 				   yourself);
-		  items: (productionRules keys flatCollect: [ :nonterminal | 
-				   (productionRules at: nonterminal) collectWithIndex: [ 
-					   :each 
-					   :index | StInspectorAssociationNode hostObject: (nonterminal -> index -> each) ] ]);
+		  items: (productionRules keys flatCollect: [ :nonterminal |
+					   (productionRules at: nonterminal) collectWithIndex: [
+						   :each
+						   :index |
+						   StInspectorAssociationNode hostObject:
+							   nonterminal -> index -> each ] ]);
 		  yourself
 ]

repository/EarleyParser-InspectorExtensions/JERule.extension.st

@@ -5,6 +5,7 @@ JERule >> inspectionDottedRulesIn: aBuilder [
 
 	<inspectorPresentationOrder: 2 title: 'Dotted Rules'>
 	^ aBuilder newTable
+		  alternateRowsColor;
 		  addColumn: (SpStringTableColumn new
 				   title: 'Dot Index';
 				   evaluated: [ :each | each dotIndex ];
@@ -23,6 +24,7 @@ JERule >> inspectionPureIn: aBuilder [
 
 	<inspectorPresentationOrder: 1 title: 'Pure'>
 	^ aBuilder newTable
+		  alternateRowsColor;
 		  addColumn: (SpStringTableColumn new
 				   title: 'Name';
 				   evaluated: [ :each | each key ];
@@ -33,8 +35,8 @@ JERule >> inspectionPureIn: aBuilder [
 			   title: 'Value'
 			   evaluated: [ :each | each value ]);
 		  items: ({ ('head' -> self head) }
-			   , (self body withIndexCollect: [ :each :index | 
-					    'body at: ' , index asString -> each ]) collect: [ :each | 
+			   , (self body withIndexCollect: [ :each :index |
+					    'body at: ' , index asString -> each ]) collect: [ :each |
 				   StInspectorAssociationNode hostObject: each ]);
 		  yourself
 ]