Merge pull request #276 from Joshua-Dias-Barreto/InspectorRowNames

Added a column for row names in the inspector table. Fixes #275

Author: jecisc

src/DataFrame/DataFrame.class.st

@@ -1426,21 +1426,26 @@ DataFrame >> innerJoin: aDataFrame onLeft: leftColumn onRight: rightColumn [
 
 { #category : #newtools }
 DataFrame >> inspectionItems: aBuilder [
-	<inspectorPresentationOrder: 0 title: 'DataFrame'>
 
+	<inspectorPresentationOrder: 0 title: 'DataFrame'>
 	| table |
 	table := aBuilder newTable.
 
 	table addColumn: (SpIndexTableColumn new
-		title: '#';
-		sortFunction: #yourself ascending;
-		beNotExpandable;
-		yourself).
+			 title: '#';
+			 sortFunction: #yourself ascending;
+			 beNotExpandable;
+			 yourself).
+	self rowNames = (1 to: self numberOfRows) asOrderedCollection
+		ifFalse: [
+			table addColumn: (SpStringTableColumn
+					 title: ''
+					 evaluated: [ :rowWithName | rowWithName at: 1 ]) ].
 
-	(self columnNames) doWithIndex: [ :headerName :columnIndex |
+	self columnNames doWithIndex: [ :headerName :columnIndex |
 		table addColumn: (SpStringTableColumn
-			title: headerName
-			evaluated: [ :rowWithName | rowWithName at: columnIndex + 1 ]) ].
+				 title: headerName
+				 evaluated: [ :rowWithName | rowWithName at: columnIndex + 1 ]) ].
 
 	table items: self asArrayOfRowsWithName.