Fixed inspections in Pharo 13

Author: JanBliznicenko

repository/OpenPonk-Core/OPIcons.class.st

@@ -26,28 +26,28 @@ OPIcons class >> iconSelectors [
 	^ self class selectorsInCategory: 'accessing - icons'
 ]
 
-{ #category : 'GT-InspectorExtensions' }
-OPIcons class >> inspectionIcons [
+{ #category : 'as yet unclassified' }
+OPIcons class >> inspectionIcons: aBuilder [
 
 	<inspectorPresentationOrder: 40 title: 'Icons'>
 	<script: 'self inspect'>
 	| selectorsByForms |
-	selectorsByForms := (self iconSelectors collect: [ :each | 
-		                     ([ self perform: each ]
-			                      on: Deprecation
-			                      do: #resume) -> each ]) asDictionary.
-	^ SpTablePresenter new
+	selectorsByForms := (self iconSelectors collect: [ :each |
+			                     ([ self perform: each ]
+				                      on: Deprecation
+				                      do: #resume) -> each ]) asDictionary.
+	^ aBuilder newTable
 		  items:
-			  (selectorsByForms keys sortedAs: [ :each | 
+			  (selectorsByForms keys sortedAs: [ :each |
 					   selectorsByForms at: each ]);
 		  addColumn: (SpImageTableColumn new
 				   title: 'Icon';
-				   evaluated: [ :each | 
-					   [ 
-					   each scaledToSize:
-							   (50 min: each width) @ (16 min: each height) ]
-						   on: Deprecation
-						   do: #resume ];
+				   evaluated: [ :each |
+						   [
+						   each scaledToSize:
+								   (50 min: each width) @ (16 min: each height) ]
+							   on: Deprecation
+							   do: #resume ];
 				   width: 50;
 				   yourself);
 		  addColumn: (SpStringTableColumn new

repository/OpenPonk-Core/OPProject.class.st

@@ -148,14 +148,14 @@ OPProject >> initialize [
 	name whenChangedDo: [ dirty value: true ]
 ]
 
-{ #category : 'inspecting' }
-OPProject >> inspectionItems [
+{ #category : 'as yet unclassified' }
+OPProject >> inspectionItems: aBuilder [
 
 	<inspectorPresentationOrder: 100 title: 'Models and Diagrams'>
 	| diagramsByModels |
 	diagramsByModels := self modelsAndDiagrams.
 
-	^ SpTreePresenter new
+	^ aBuilder newTree
 		  roots: diagramsByModels keys;
 		  children: [ :each | diagramsByModels at: each ifAbsent: [ #(  ) ] ];
 		  display: #name;