From ba2a07919849330e4a671666276b6f26edad2de2 Mon Sep 17 00:00:00 2001
From: Marcus Denker <denker@acm.org>
Date: Thu, 21 Sep 2023 13:16:13 +0200
Subject: [PATCH] #StInspectorThisContextNode should not be subclass of
 StInspectorSelfNode

---
 src/NewTools-Inspector/Object.extension.st    |  4 +-
 .../SpOutputPortProxy.extension.st            |  4 +-
 .../SpPresenter.extension.st                  |  4 +-
 .../StErrorContext.class.st                   | 16 +--
 .../StEvaluateCommand.class.st                | 20 ++--
 .../StEvaluatedSelectionModel.class.st        | 18 ++--
 src/NewTools-Inspector/StInspection.class.st  | 10 +-
 .../StInspectionCollector.class.st            | 28 +++---
 .../StInspectionContext.class.st              | 60 ++++++------
 .../StInspectionPresenter.class.st            | 30 +++---
 src/NewTools-Inspector/StInspector.class.st   | 10 +-
 .../StInspectorAssociationNode.class.st       | 18 ++--
 .../StInspectorBrowseSelectedCommand.class.st | 20 ++--
 .../StInspectorCommand.class.st               | 36 +++----
 .../StInspectorDynamicNode.class.st           | 24 ++---
 .../StInspectorIndexedNode.class.st           | 28 +++---
 ...StInspectorInspectSelectedCommand.class.st | 20 ++--
 .../StInspectorModel.class.st                 | 40 ++++----
 .../StInspectorNode.class.st                  | 44 +++++----
 .../StInspectorPresenter.class.st             | 96 +++++++++---------
 .../StInspectorRefreshCommand.class.st        | 18 ++--
 .../StInspectorRefreshService.class.st        | 22 +++--
 .../StInspectorSelfNode.class.st              | 14 +--
 .../StInspectorSlotNode.class.st              | 30 +++---
 .../StInspectorStackTopNode.class.st          | 14 +--
 .../StInspectorTempNode.class.st              | 24 ++---
 .../StInspectorThisContextNode.class.st       | 22 +++--
 .../StInspectorTransmissionNode.class.st      | 18 ++--
 .../StInspectorWrapperNode.class.st           | 20 ++--
 src/NewTools-Inspector/StMetaBrowser.class.st | 10 +-
 .../StMetaBrowserPresenter.class.st           | 32 +++---
 .../StNodeCollector.class.st                  | 22 +++--
 .../StObjectContextModel.class.st             | 38 +++----
 .../StObjectContextPresenter.class.st         | 42 ++++----
 .../StObjectInspectorPresenter.class.st       | 98 ++++++++++---------
 .../StObjectPrinter.class.st                  | 24 ++---
 .../StPresenterInspection.class.st            | 10 +-
 .../StPresenterInspectionPresenter.class.st   | 26 ++---
 .../StRawInspection.class.st                  | 10 +-
 .../StRawInspectionPresenter.class.st         | 56 ++++++-----
 .../StSimpleInspectorBuilder.class.st         | 18 ++--
 src/NewTools-Inspector/package.st             |  2 +-
 42 files changed, 588 insertions(+), 512 deletions(-)

diff --git a/src/NewTools-Inspector/Object.extension.st b/src/NewTools-Inspector/Object.extension.st
index 4c3ce1ebc..08d61d3b5 100644
--- a/src/NewTools-Inspector/Object.extension.st
+++ b/src/NewTools-Inspector/Object.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #Object }
+Extension { #name : 'Object' }
 
-{ #category : #'*NewTools-Inspector' }
+{ #category : '*NewTools-Inspector' }
 Object >> evaluatorInitialText: aStObjectContextPresenter [ 
 	^ '{1}' format: { aStObjectContextPresenter model codeSnippet } 
 ]
diff --git a/src/NewTools-Inspector/SpOutputPortProxy.extension.st b/src/NewTools-Inspector/SpOutputPortProxy.extension.st
index 70eee6a7b..1c95ad2ab 100644
--- a/src/NewTools-Inspector/SpOutputPortProxy.extension.st
+++ b/src/NewTools-Inspector/SpOutputPortProxy.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #SpOutputPortProxy }
+Extension { #name : 'SpOutputPortProxy' }
 
-{ #category : #'*NewTools-Inspector' }
+{ #category : '*NewTools-Inspector' }
 SpOutputPortProxy >> asInspection [
 
 	^ StPresenterInspectionPresenter for: self
diff --git a/src/NewTools-Inspector/SpPresenter.extension.st b/src/NewTools-Inspector/SpPresenter.extension.st
index f62f76109..d36a464dc 100644
--- a/src/NewTools-Inspector/SpPresenter.extension.st
+++ b/src/NewTools-Inspector/SpPresenter.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #SpPresenter }
+Extension { #name : 'SpPresenter' }
 
-{ #category : #'*NewTools-Inspector' }
+{ #category : '*NewTools-Inspector' }
 SpPresenter >> asInspection [
 
 	^ StPresenterInspectionPresenter for: self
diff --git a/src/NewTools-Inspector/StErrorContext.class.st b/src/NewTools-Inspector/StErrorContext.class.st
index 0d7da2a0e..7944c7da0 100644
--- a/src/NewTools-Inspector/StErrorContext.class.st
+++ b/src/NewTools-Inspector/StErrorContext.class.st
@@ -4,33 +4,35 @@ I arrive when an inspector context fails with an exception.
 In that case, I force the inspection presenter to be a debug inspection presenter.
 "
 Class {
-	#name : #StErrorContext,
-	#superclass : #StInspectionContext,
+	#name : 'StErrorContext',
+	#superclass : 'StInspectionContext',
 	#instVars : [
 		'error'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StErrorContext >> basicNewInspectionPresenter [
 
 	^ self debugInspectorPresenter
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StErrorContext >> getError [
 
 	^ error
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StErrorContext >> isErrorContext [
 	
 	^ true
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StErrorContext >> setError: anError [
 
 	error := anError
diff --git a/src/NewTools-Inspector/StEvaluateCommand.class.st b/src/NewTools-Inspector/StEvaluateCommand.class.st
index abeb79061..50be9ecb7 100644
--- a/src/NewTools-Inspector/StEvaluateCommand.class.st
+++ b/src/NewTools-Inspector/StEvaluateCommand.class.st
@@ -3,30 +3,32 @@ A command to ""evaluate and go"" the content of a selection (evaluate the select
 
 "
 Class {
-	#name : #StEvaluateCommand,
-	#superclass : #SpToolCommand,
-	#category : #'NewTools-Inspector-Command'
+	#name : 'StEvaluateCommand',
+	#superclass : 'SpToolCommand',
+	#category : 'NewTools-Inspector-Command',
+	#package : 'NewTools-Inspector',
+	#tag : 'Command'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StEvaluateCommand class >> defaultDescription [
 
 	^ 'Evaluate selection and open an inspection column.'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StEvaluateCommand class >> defaultIconName [
 
 	^ #glamorousGo
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StEvaluateCommand class >> defaultName [
 
 	^ 'Do it and go'
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StEvaluateCommand class >> defaultShortcutKey [
 
 	^ $g command mac 
@@ -34,13 +36,13 @@ StEvaluateCommand class >> defaultShortcutKey [
 		| $g control unix
 ]
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 StEvaluateCommand class >> documentContextRequiredSelectors [
 
 	^ super documentContextRequiredSelectors, #(doEvaluateAndGo)
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 StEvaluateCommand >> execute [
 	
 	self context doEvaluateAndGo
diff --git a/src/NewTools-Inspector/StEvaluatedSelectionModel.class.st b/src/NewTools-Inspector/StEvaluatedSelectionModel.class.st
index 1b341796e..096098a9e 100644
--- a/src/NewTools-Inspector/StEvaluatedSelectionModel.class.st
+++ b/src/NewTools-Inspector/StEvaluatedSelectionModel.class.st
@@ -3,15 +3,17 @@ A selection container to simulate a selection object (the object that is sent wh
 This is used so we can trigger `activation` events outside lists tables and trees (for example, in a playground or an inpector evaluator).   
 "
 Class {
-	#name : #StEvaluatedSelectionModel,
-	#superclass : #Object,
+	#name : 'StEvaluatedSelectionModel',
+	#superclass : 'Object',
 	#instVars : [
 		'value'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StEvaluatedSelectionModel class >> newValue: anObject [ 
 
 	^ self new
@@ -19,25 +21,25 @@ StEvaluatedSelectionModel class >> newValue: anObject [
 		yourself
 ]
 
-{ #category : #'api - selection' }
+{ #category : 'api - selection' }
 StEvaluatedSelectionModel >> selectedItem [
 
 	^ self value
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StEvaluatedSelectionModel >> transmission [
 
 	^ self value
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StEvaluatedSelectionModel >> value [
 
 	^ value
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StEvaluatedSelectionModel >> value: anObject [
 
 	value := anObject
diff --git a/src/NewTools-Inspector/StInspection.class.st b/src/NewTools-Inspector/StInspection.class.st
index 427d2c02d..097b65300 100644
--- a/src/NewTools-Inspector/StInspection.class.st
+++ b/src/NewTools-Inspector/StInspection.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StInspection,
-	#superclass : #StInspectionPresenter,
-	#category : #'NewTools-Inspector-Deprecated'
+	#name : 'StInspection',
+	#superclass : 'StInspectionPresenter',
+	#category : 'NewTools-Inspector-Deprecated',
+	#package : 'NewTools-Inspector',
+	#tag : 'Deprecated'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StInspection class >> isDeprecated [ 
 	^ true
 ]
diff --git a/src/NewTools-Inspector/StInspectionCollector.class.st b/src/NewTools-Inspector/StInspectionCollector.class.st
index 7b9bda7ee..50d612406 100644
--- a/src/NewTools-Inspector/StInspectionCollector.class.st
+++ b/src/NewTools-Inspector/StInspectionCollector.class.st
@@ -15,21 +15,23 @@ The arguments of the pragmas are required because the tabs are calculated lazily
 is required before.
 "
 Class {
-	#name : #StInspectionCollector,
-	#superclass : #Object,
+	#name : 'StInspectionCollector',
+	#superclass : 'Object',
 	#instVars : [
 		'inspectedObject'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #defaults }
+{ #category : 'defaults' }
 StInspectionCollector class >> defaultExtensionPragmas [
 
 	^ #(inspectorPresentationOrder:title:)
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectionCollector class >> on: anObject [
 
 	^ self new 
@@ -37,7 +39,7 @@ StInspectionCollector class >> on: anObject [
 		yourself
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StInspectionCollector >> basicContextFromPragma: aPragma [
 	"Get the context for a pragma or fail if an error happens"
 	| context |
@@ -53,7 +55,7 @@ StInspectionCollector >> basicContextFromPragma: aPragma [
 	^ context
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionCollector >> collectInspectionContexts [
 	| pragmas |
 	
@@ -67,7 +69,7 @@ StInspectionCollector >> collectInspectionContexts [
 		sorted: #order ascending
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StInspectionCollector >> collectPragmas: aPragmaName [
 
 	^ Pragma
@@ -76,7 +78,7 @@ StInspectionCollector >> collectPragmas: aPragmaName [
 		to: ProtoObject
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StInspectionCollector >> contextFromPragma: aPragma [
 	"Return the inspection context for a pragma.
 	Safe version: Return an error context if the context cannot be obtained"
@@ -89,23 +91,23 @@ StInspectionCollector >> contextFromPragma: aPragma [
 				  yourself ]
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StInspectionCollector >> extensionPragmas [
 
 	^ self class defaultExtensionPragmas
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionCollector >> inspectedObject [
 	^ inspectedObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionCollector >> inspectedObject: anObject [
 	inspectedObject := anObject
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StInspectionCollector >> uniquePragmas: aCollection [
 	| unique |
 	
diff --git a/src/NewTools-Inspector/StInspectionContext.class.st b/src/NewTools-Inspector/StInspectionContext.class.st
index b80a8025d..f7b6b58ce 100644
--- a/src/NewTools-Inspector/StInspectionContext.class.st
+++ b/src/NewTools-Inspector/StInspectionContext.class.st
@@ -8,8 +8,8 @@ If I fail to create a presentation, I provide a debug presentation instead.
 If you define a method `Object>>#inspectionMeta`, you can define a context method `Object>>#inspectionMetaContext:`.
 "
 Class {
-	#name : #StInspectionContext,
-	#superclass : #Object,
+	#name : 'StInspectionContext',
+	#superclass : 'Object',
 	#instVars : [
 		'inspectedObject',
 		'active',
@@ -18,10 +18,12 @@ Class {
 		'methodSelector',
 		'evaluator'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectionContext class >> fromPragma: aPragma [
 
 	^ self new 
@@ -29,13 +31,13 @@ StInspectionContext class >> fromPragma: aPragma [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> active: aBoolean [
 
 	active := aBoolean
 ]
 
-{ #category : #'private - factory' }
+{ #category : 'private - factory' }
 StInspectionContext >> basicNewInspectionPresenter [
 
 	^ self methodSelectorNeedsBuilder 
@@ -47,19 +49,19 @@ StInspectionContext >> basicNewInspectionPresenter [
 			self inspectedObject inspectorPerform: self methodSelector ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> beActive [
 
 	self active: true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> beInactive [
 
 	self active: false
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> contextMethodSelector [
 	| selector |
 
@@ -69,7 +71,7 @@ StInspectionContext >> contextMethodSelector [
 	^ (selector, 'Context:') asSymbol
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectionContext >> debugInspectorPresenter [
 
 	"Create a debug inspector presenter.
@@ -100,13 +102,13 @@ StInspectionContext >> debugInspectorPresenter [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> evaluator: aBoolean [
 
 	evaluator := aBoolean
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectionContext >> fromPragma: aPragma [
 
 	self
@@ -115,13 +117,13 @@ StInspectionContext >> fromPragma: aPragma [
 		methodSelector: aPragma methodSelector
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StInspectionContext >> hasEvaluator [
 
 	^ evaluator
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectionContext >> initialize [
 
 	super initialize.
@@ -129,43 +131,43 @@ StInspectionContext >> initialize [
 	evaluator := true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> inspectedObject [
 
 	^ inspectedObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> inspectedObject: anObject [
 
 	inspectedObject := anObject
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StInspectionContext >> isActive [
 
 	^ active
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> methodSelector [
 
 	^ methodSelector
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> methodSelector: aSelector [
 
 	methodSelector := aSelector
 ]
 
-{ #category : #'private - testing' }
+{ #category : 'private - testing' }
 StInspectionContext >> methodSelectorNeedsBuilder [
 
 	^ self methodSelector last = $:
 ]
 
-{ #category : #'private - factory' }
+{ #category : 'private - factory' }
 StInspectionContext >> newInspectionPresenter [
 
 	"Create an inspection presenter for the current object and pragma.
@@ -175,7 +177,7 @@ StInspectionContext >> newInspectionPresenter [
 			self debugInspectorPresenter ]
 ]
 
-{ #category : #factory }
+{ #category : 'factory' }
 StInspectionContext >> newInspectionView [
 	| presenter |
 
@@ -185,40 +187,40 @@ StInspectionContext >> newInspectionView [
 		yourself
 ]
 
-{ #category : #'private - factory' }
+{ #category : 'private - factory' }
 StInspectionContext >> newPresenterBuilder [
 
 	^ SpPresenterBuilder new
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> order [
 	^ order
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> order: aNumber [
 
 	order := aNumber
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> title [
 	^ title
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> title: anObject [
 	title := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> withEvaluator [
 
 	self evaluator: true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionContext >> withoutEvaluator [
 
 	self evaluator: false
diff --git a/src/NewTools-Inspector/StInspectionPresenter.class.st b/src/NewTools-Inspector/StInspectionPresenter.class.st
index ade4b00fa..ac98b4615 100644
--- a/src/NewTools-Inspector/StInspectionPresenter.class.st
+++ b/src/NewTools-Inspector/StInspectionPresenter.class.st
@@ -4,71 +4,73 @@ Inspections are ways to see/inspect an object.
 They are the pages seen in the basic inspector.
 "
 Class {
-	#name : #StInspectionPresenter,
-	#superclass : #SpPresenter,
+	#name : 'StInspectionPresenter',
+	#superclass : 'SpPresenter',
 	#instVars : [
 		'model',
 		'context'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #api }
+{ #category : 'api' }
 StInspectionPresenter >> activateOnDoubleClick [
 
 ]
 
-{ #category : #api }
+{ #category : 'api' }
 StInspectionPresenter >> activateOnSingleClick [
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 StInspectionPresenter >> asInspection [
 
 	^ self
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionPresenter >> context [
 
 	^ context
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectionPresenter >> context: aContext [
 
 	context := aContext
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StInspectionPresenter >> enableSlotMenuEntries [
 	^false
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StInspectionPresenter >> hasOutputActivationPort [
 
 	^ false
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StInspectionPresenter >> model [
 	^ model
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StInspectionPresenter >> model: anInspectionModel [
 
 	model := anInspectionModel
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StInspectionPresenter >> setModelBeforeInitialization: anInspectionModel [ 
 
 	model := anInspectionModel
 ]
 
-{ #category : #stepping }
+{ #category : 'stepping' }
 StInspectionPresenter >> step [
 	"do nothing, it depends on my children"
 ]
diff --git a/src/NewTools-Inspector/StInspector.class.st b/src/NewTools-Inspector/StInspector.class.st
index 0799877c8..3b270f243 100644
--- a/src/NewTools-Inspector/StInspector.class.st
+++ b/src/NewTools-Inspector/StInspector.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StInspector,
-	#superclass : #StInspectorPresenter,
-	#category : #'NewTools-Inspector-Deprecated'
+	#name : 'StInspector',
+	#superclass : 'StInspectorPresenter',
+	#category : 'NewTools-Inspector-Deprecated',
+	#package : 'NewTools-Inspector',
+	#tag : 'Deprecated'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StInspector class >> isDeprecated [ 
 	
 	^ true
diff --git a/src/NewTools-Inspector/StInspectorAssociationNode.class.st b/src/NewTools-Inspector/StInspectorAssociationNode.class.st
index fecd9cb78..4a05e95b0 100644
--- a/src/NewTools-Inspector/StInspectorAssociationNode.class.st
+++ b/src/NewTools-Inspector/StInspectorAssociationNode.class.st
@@ -1,34 +1,36 @@
 Class {
-	#name : #StInspectorAssociationNode,
-	#superclass : #StInspectorNode,
-	#category : #'NewTools-Inspector-Model'
+	#name : 'StInspectorAssociationNode',
+	#superclass : 'StInspectorNode',
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorAssociationNode class >> hostObject: anObject index: index [
 	^ (self hostObject: anObject)
 		index: index;
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorAssociationNode >> key [
 
 	^ self hostObject key
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorAssociationNode >> rawValue [
 
 	^ self hostObject value
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StInspectorAssociationNode >> save: aValue [
 	self hostObject put: aValue
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorAssociationNode >> variableTag [
 	^ 'association'
 ]
diff --git a/src/NewTools-Inspector/StInspectorBrowseSelectedCommand.class.st b/src/NewTools-Inspector/StInspectorBrowseSelectedCommand.class.st
index 5be8acfff..556f24baf 100644
--- a/src/NewTools-Inspector/StInspectorBrowseSelectedCommand.class.st
+++ b/src/NewTools-Inspector/StInspectorBrowseSelectedCommand.class.st
@@ -2,43 +2,45 @@
 Browse current selected object.
 "
 Class {
-	#name : #StInspectorBrowseSelectedCommand,
-	#superclass : #StInspectorCommand,
-	#category : #'NewTools-Inspector-Command'
+	#name : 'StInspectorBrowseSelectedCommand',
+	#superclass : 'StInspectorCommand',
+	#category : 'NewTools-Inspector-Command',
+	#package : 'NewTools-Inspector',
+	#tag : 'Command'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StInspectorBrowseSelectedCommand class >> defaultDescription [
 
 	^ 'Browse this instance class definition'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorBrowseSelectedCommand class >> defaultIconName [
 
 	^ #smallSystemBrowser
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StInspectorBrowseSelectedCommand class >> defaultName [
 	<toolbarInspectCommand: 30>
 
 	^ 'Browse'
 ]
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 StInspectorBrowseSelectedCommand class >> documentContextRequiredSelectors [
 
 	^ super documentContextRequiredSelectors, #(selectedObject)
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 StInspectorBrowseSelectedCommand >> execute [ 
 
 	self context systemNavigation browse: self interestingObject
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 StInspectorBrowseSelectedCommand >> interestingObject [
 
 	^ self context selectedObject
diff --git a/src/NewTools-Inspector/StInspectorCommand.class.st b/src/NewTools-Inspector/StInspectorCommand.class.st
index 4b9aa6e01..a5260b116 100644
--- a/src/NewTools-Inspector/StInspectorCommand.class.st
+++ b/src/NewTools-Inspector/StInspectorCommand.class.st
@@ -2,12 +2,14 @@
 A base for inspector toolbar commands.
 "
 Class {
-	#name : #StInspectorCommand,
-	#superclass : #CmCommand,
-	#category : #'NewTools-Inspector-Command'
+	#name : 'StInspectorCommand',
+	#superclass : 'CmCommand',
+	#category : 'NewTools-Inspector-Command',
+	#package : 'NewTools-Inspector',
+	#tag : 'Command'
 }
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 StInspectorCommand class >> addDocumentContextRequiredSelectors: aBuilder [
 	| requiredSelectors |
 
@@ -27,32 +29,32 @@ StInspectorCommand class >> addDocumentContextRequiredSelectors: aBuilder [
 			aBuilder text: '(No required API is defined)' ]
 ]
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 StInspectorCommand class >> buildMicroDownUsing: aBuilder withComment: aString [
 	
 	super buildMicroDownUsing: aBuilder withComment: aString.
 	self addDocumentContextRequiredSelectors: aBuilder
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorCommand class >> defaultIconName [
 
 	^ nil
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StInspectorCommand class >> defaultShortcutKey [
 
 	^ nil
 ]
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 StInspectorCommand class >> documentContextRequiredSelectors [
 		
 	^ #()
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorCommand class >> toolbarCommandsFor: inspector [
 
 	^ self
@@ -60,13 +62,13 @@ StInspectorCommand class >> toolbarCommandsFor: inspector [
 		for: inspector
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StInspectorCommand >> appliesTo: anInspector [
 
 	^ true
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 StInspectorCommand >> asSpecCommand [
 	| command |
 	
@@ -80,13 +82,13 @@ StInspectorCommand >> asSpecCommand [
 	^ command
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 StInspectorCommand >> defaultIconName [
 
 	^ self class defaultIconName
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorCommand >> initialize [
 
 	super initialize.
@@ -97,25 +99,25 @@ StInspectorCommand >> initialize [
 			<< self class defaultDescription ])	
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 StInspectorCommand >> interestingObject [
 
 	^ self model inspectedObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorCommand >> model [
 
 	^ self context model
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorCommand >> owner [ 
 	
 	^ self context owner
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 StInspectorCommand >> shortcutKey [
 
 	^ self class defaultShortcutKey
diff --git a/src/NewTools-Inspector/StInspectorDynamicNode.class.st b/src/NewTools-Inspector/StInspectorDynamicNode.class.st
index 4fb443b79..7fe9b3dc0 100644
--- a/src/NewTools-Inspector/StInspectorDynamicNode.class.st
+++ b/src/NewTools-Inspector/StInspectorDynamicNode.class.st
@@ -3,17 +3,19 @@ I am a variable node for representing any dynamically computed attribute that sh
 I should not be used for slots or indexed variables.
 "
 Class {
-	#name : #StInspectorDynamicNode,
-	#superclass : #StInspectorNode,
+	#name : 'StInspectorDynamicNode',
+	#superclass : 'StInspectorNode',
 	#instVars : [
 		'label',
 		'value',
 		'tag'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorDynamicNode class >> hostObject: anObject label: aString value: anotherObject [
 	^ (self hostObject: anObject) 
 		label: aString;
@@ -21,38 +23,38 @@ StInspectorDynamicNode class >> hostObject: anObject label: aString value: anoth
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorDynamicNode >> key [
 	^ label
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorDynamicNode >> label [
 	^ label
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorDynamicNode >> label: aString [
 	label := aString
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorDynamicNode >> rawValue [
 
 	^ value
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorDynamicNode >> rawValue: anObject [
 	value := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorDynamicNode >> variableTag [
 	^  tag ifNil: [ super variableTag ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorDynamicNode >> variableTag: aTag [
 	tag := aTag
 ]
diff --git a/src/NewTools-Inspector/StInspectorIndexedNode.class.st b/src/NewTools-Inspector/StInspectorIndexedNode.class.st
index 89347c5ec..e0ec6cbdc 100644
--- a/src/NewTools-Inspector/StInspectorIndexedNode.class.st
+++ b/src/NewTools-Inspector/StInspectorIndexedNode.class.st
@@ -4,65 +4,67 @@ I used the index of a variable as a key.
 I extract the value from the host object every time #rawValue is called
 "
 Class {
-	#name : #StInspectorIndexedNode,
-	#superclass : #StInspectorNode,
+	#name : 'StInspectorIndexedNode',
+	#superclass : 'StInspectorNode',
 	#instVars : [
 		'index'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorIndexedNode class >> hostObject: anObject index: index [
 	^ (self hostObject: anObject)
 		index: index;
 		yourself
 ]
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StInspectorIndexedNode >> = anObject [
 
 	^ super = anObject and: [ index = anObject index ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorIndexedNode >> errorMessage [
 	^ 'error obtaining indexed variable value'
 ]
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StInspectorIndexedNode >> hash [
 
 	^ index hash
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorIndexedNode >> index [
 	^ index
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorIndexedNode >> index: anInteger [
 	index := anInteger
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorIndexedNode >> key [
 	^ self index
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorIndexedNode >> rawValue [
 
 	^ self hostObject basicAt: index
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StInspectorIndexedNode >> save: aValue [
 	self hostObject at: self index put: aValue
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorIndexedNode >> variableTag [
 	^ 'inst. var'
 ]
diff --git a/src/NewTools-Inspector/StInspectorInspectSelectedCommand.class.st b/src/NewTools-Inspector/StInspectorInspectSelectedCommand.class.st
index a526e0f8b..f03e4a81c 100644
--- a/src/NewTools-Inspector/StInspectorInspectSelectedCommand.class.st
+++ b/src/NewTools-Inspector/StInspectorInspectSelectedCommand.class.st
@@ -2,44 +2,46 @@
 Open an inspector on current selected object. 
 "
 Class {
-	#name : #StInspectorInspectSelectedCommand,
-	#superclass : #StInspectorCommand,
-	#category : #'NewTools-Inspector-Command'
+	#name : 'StInspectorInspectSelectedCommand',
+	#superclass : 'StInspectorCommand',
+	#category : 'NewTools-Inspector-Command',
+	#package : 'NewTools-Inspector',
+	#tag : 'Command'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StInspectorInspectSelectedCommand class >> defaultDescription [
 
 	^ 'Inspect this instance'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorInspectSelectedCommand class >> defaultIconName [
 
 	^ #smallInspectIt
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StInspectorInspectSelectedCommand class >> defaultName [
 	<toolbarInspectCommand: 20>
 
 	^ 'Inspect'
 ]
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 StInspectorInspectSelectedCommand class >> documentContextRequiredSelectors [
 
 	^ super documentContextRequiredSelectors, #(selectedObject)
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 StInspectorInspectSelectedCommand >> execute [ 
 
 	self context systemNavigation inspect: self interestingObject
 	
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 StInspectorInspectSelectedCommand >> interestingObject [
 
 	^ self context selectedObject
diff --git a/src/NewTools-Inspector/StInspectorModel.class.st b/src/NewTools-Inspector/StInspectorModel.class.st
index 55f301e1f..729755ce3 100644
--- a/src/NewTools-Inspector/StInspectorModel.class.st
+++ b/src/NewTools-Inspector/StInspectorModel.class.st
@@ -3,57 +3,59 @@ An model to provide inspector data on an inspected object.
 The inspector wraps all inspected objects with this to being able to display values. 
 "
 Class {
-	#name : #StInspectorModel,
-	#superclass : #Object,
+	#name : 'StInspectorModel',
+	#superclass : 'Object',
 	#instVars : [
 		'inspectedObject'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel class >> maxTitleLength [
 
 	^ 40
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorModel class >> new [ 
 
 	self error: 'Use #on:'
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorModel class >> on: anObject [
 
 	^ super new inspectedObject: anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> allInspectorNodes [
 
 	^ self inspectedObject allInspectorNodes
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 StInspectorModel >> asInspectorModel [
 
 	^ self
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> behavior [ 
 	
 	^ self inspectedObject class
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> descriptionString [
 
 	^ self descriptionStringFor: self inspectedObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> descriptionStringFor: object [
 	| header printString |
 	
@@ -70,31 +72,31 @@ StInspectorModel >> descriptionStringFor: object [
 				out << header; << ' ('; << printString; << ')' ] ])
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> inspectedObject [
 
 	^ inspectedObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> inspectedObject: anObject [
 
 	inspectedObject := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> labelString [
 	
 	^ self descriptionString truncateWithElipsisTo: 30
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> objectInspectionContexts [
 
 	^ self inspectedObject inspectionContexts
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StInspectorModel >> printOn: stream [
 
 	super printOn: stream.
@@ -103,19 +105,19 @@ StInspectorModel >> printOn: stream [
 	stream << ')'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> smallDescriptionString [
 	
 	^ (StObjectPrinter asTruncatedTextFrom: self inspectedObject) asString
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> smallDescriptionStringFor: anObject [
 	
 	^ (StObjectPrinter asTruncatedTextFrom: anObject) asString
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorModel >> windowTitle [
 
 	^ 'Inspector on {1}' format:
diff --git a/src/NewTools-Inspector/StInspectorNode.class.st b/src/NewTools-Inspector/StInspectorNode.class.st
index 39fcf2f9a..5482b843e 100644
--- a/src/NewTools-Inspector/StInspectorNode.class.st
+++ b/src/NewTools-Inspector/StInspectorNode.class.st
@@ -11,22 +11,24 @@ Public API and Key Messages
 
 "
 Class {
-	#name : #StInspectorNode,
-	#superclass : #Object,
+	#name : 'StInspectorNode',
+	#superclass : 'Object',
 	#instVars : [
 		'hostObject'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorNode class >> hostObject: anObject [ 
 	^ self new
 		hostObject: anObject;
 		yourself
 ]
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StInspectorNode >> = anObject [
 
 	self == anObject ifTrue: [ ^ true ].
@@ -34,35 +36,35 @@ StInspectorNode >> = anObject [
 	^ hostObject == anObject hostObject
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 StInspectorNode >> asInspectorModel [
 
 	^ StInspectorModel on: self rawValue
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> children [ 
 	
 	^ self value allInspectorNodes
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> errorMessage [
 	^ 'error obtaining value'
 ]
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StInspectorNode >> hash [
 
 	^ hostObject hash
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> hostObject [
 	^ hostObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> hostObject: anObject [
 
 	"
@@ -78,13 +80,13 @@ StInspectorNode >> hostObject: anObject [
 	hostObject := anObject
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StInspectorNode >> iconError: error [
 	
 	^ #smallWarning
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> iconName [
 
 	^ [ self value inspectorIconName ifNil: [ self value class systemIconName ] ]
@@ -92,48 +94,48 @@ StInspectorNode >> iconName [
 		  do: [ :error | self iconError: error ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> key [
 	"Answer the key of this object variable (slot, indexed attribute, computed value)."
 	^ self subclassResponsibility
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> label [
 	"Answer the label of this object variable (slot, indexed attribute, computed value)."
 	^ self key asString
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> mementoValue [
 
 	^ self value
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> rawValue [
 	"Answer the object value of this object variable (slot, indexed attribute, computed value)."
 	^ self subclassResponsibility
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StInspectorNode >> save: aValue [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> stringValue [
 
 	^ self value stDisplayString
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> value [
 	"Answer the object value of this object variable (slot, indexed attribute, computed value).
 	Return nil in case there is an error obtaining the value"
 	^ [ self rawValue ] on: Exception do: [ nil ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorNode >> variableTag [
 	^ 'implicit'
 ]
diff --git a/src/NewTools-Inspector/StInspectorPresenter.class.st b/src/NewTools-Inspector/StInspectorPresenter.class.st
index 793667e2c..c852ea39d 100644
--- a/src/NewTools-Inspector/StInspectorPresenter.class.st
+++ b/src/NewTools-Inspector/StInspectorPresenter.class.st
@@ -12,8 +12,8 @@ Register it as a replacement for inspector:
 self registerToolsOn: Smalltalk tools.
 "
 Class {
-	#name : #StInspectorPresenter,
-	#superclass : #StPresenter,
+	#name : 'StInspectorPresenter',
+	#superclass : 'StPresenter',
 	#instVars : [
 		'millerList',
 		'model',
@@ -27,16 +27,18 @@ Class {
 	#classInstVars : [
 		'preferredExtent'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #settings }
+{ #category : 'settings' }
 StInspectorPresenter class >> defaultInspectorDiveOnSingleClick [
 
 	^ true
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StInspectorPresenter class >> defaultLayout [
 
 	^ SpBoxLayout newTopToBottom
@@ -44,50 +46,50 @@ StInspectorPresenter class >> defaultLayout [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter class >> defaultPreferredExtent [
 
 	^ (700@500) scaledByDisplayScaleFactor
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter class >> defaultSpacing [
 
 	^ 3
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorPresenter class >> explore: anObject [
  
 	self openOn: anObject.
 	^ anObject
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StInspectorPresenter class >> indexableDisplayLimit [
 
 	^ IndexableDisplayLimit ifNil: [ 5000 ]
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StInspectorPresenter class >> indexableDisplayLimit: aNumber [
 
 	IndexableDisplayLimit := aNumber
 ]
 
-{ #category : #'class initialization' }
+{ #category : 'class initialization' }
 StInspectorPresenter class >> initialize [
 
 	self register
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorPresenter class >> inspect: anObject [
 
 	^ self openOn: anObject
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorPresenter class >> inspect: anObject label: aString [
 
 	(self openOn: anObject) title: aString.
@@ -95,7 +97,7 @@ StInspectorPresenter class >> inspect: anObject label: aString [
 
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorPresenter class >> inspector: anObject [
 	
 	self 
@@ -106,58 +108,58 @@ StInspectorPresenter class >> inspector: anObject [
 	^ self openOn: anObject
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StInspectorPresenter class >> inspectorDiveOnSingleClick [
 
 	^ InspectorDiveOnSingleClick ifNil: [
 		InspectorDiveOnSingleClick := self defaultInspectorDiveOnSingleClick ]
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StInspectorPresenter class >> inspectorDiveOnSingleClick: aBoolean [
 
 	InspectorDiveOnSingleClick := aBoolean
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorPresenter class >> onObject: anObject [
 
 	^ self on: (StInspectorModel on: anObject)
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorPresenter class >> openOn: anObject [
 
 	^ (self onObject: anObject) open
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter class >> preferredExtent [
 	
 	^ preferredExtent ifNil: [ preferredExtent := self defaultPreferredExtent ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter class >> preferredExtent: aPoint [
 	
 	preferredExtent := aPoint
 ]
 
-{ #category : #'tools registry' }
+{ #category : 'tools registry' }
 StInspectorPresenter class >> register [
 	<script>
 
 	self registerToolsOn: Smalltalk tools
 ]
 
-{ #category : #'tools registry' }
+{ #category : 'tools registry' }
 StInspectorPresenter class >> registerToolsOn: registry [
 	"self registerToolsOn: Smalltalk tools " 
 	registry register: self as: #inspector.
 	registry register: self as: #basicInspector
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StInspectorPresenter class >> settingsOn: aBuilder [
 	<systemsettings>
 
@@ -174,13 +176,13 @@ StInspectorPresenter class >> settingsOn: aBuilder [
 		label: 'Dive on single click'
 ]
 
-{ #category : #transmission }
+{ #category : 'transmission' }
 StInspectorPresenter >> defaultInputPort [
 
 	^ self inputModelPort
 ]
 
-{ #category : #'api - focus' }
+{ #category : 'api - focus' }
 StInspectorPresenter >> defaultKeyboardFocus [
 
 	^ millerList presenters 
@@ -188,13 +190,13 @@ StInspectorPresenter >> defaultKeyboardFocus [
 		ifEmpty: [ self ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter >> firstPage [
 
 	^ millerList pages first
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorPresenter >> initializePresenters [
 
 	millerList := self instantiate: SpMillerPaginatorPresenter.
@@ -205,7 +207,7 @@ StInspectorPresenter >> initializePresenters [
 		whenColumnsWillChangeDo: [ self keepLastPageSelectedTabName ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorPresenter >> initializeWindow: aWindowPresenter [
 
 	super initializeWindow: aWindowPresenter.
@@ -220,13 +222,13 @@ StInspectorPresenter >> initializeWindow: aWindowPresenter [
 		whenResizingDo: [ :ann | self preferredExtent: ann newSize ]
 ]
 
-{ #category : #transmission }
+{ #category : 'transmission' }
 StInspectorPresenter >> inputModelPort [
 
 	^ SpModelPort newPresenter: self
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StInspectorPresenter >> keepLastPageSelectedTabName [
 	
 	lastPageSelectedTabName := millerList pages 
@@ -234,19 +236,19 @@ StInspectorPresenter >> keepLastPageSelectedTabName [
 		ifEmpty: [ nil ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter >> millerList [
 
 	^ millerList
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter >> model [
 
 	^ model
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StInspectorPresenter >> model: anInspectorModel [
 
 	model := anInspectorModel.
@@ -254,7 +256,7 @@ StInspectorPresenter >> model: anInspectorModel [
 	self updateList
 ]
 
-{ #category : #'private - factory' }
+{ #category : 'private - factory' }
 StInspectorPresenter >> newInspectorFor: aModel [
 	| newInspector |
 
@@ -276,7 +278,7 @@ StInspectorPresenter >> newInspectorFor: aModel [
 	^ newInspector
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StInspectorPresenter >> preferredExtent: aSize [
 
 	(self window isMaximized 
@@ -285,44 +287,44 @@ StInspectorPresenter >> preferredExtent: aSize [
 	self class preferredExtent: aSize
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StInspectorPresenter >> setModel: aModel [
 
 	self model: aModel
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StInspectorPresenter >> setModelBeforeInitialization: anInspectorModel [
 
 	model := anInspectorModel
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter >> spacing [
 	
 	^ self class defaultSpacing
 ]
 
-{ #category : #'private - stepping' }
+{ #category : 'private - stepping' }
 StInspectorPresenter >> startProcessing [
 
 	StInspectorRefreshService uniqueInstance register: self
 ]
 
-{ #category : #'private - stepping' }
+{ #category : 'private - stepping' }
 StInspectorPresenter >> step [ 
 
 	millerList pages
 		do: [ :each | each step ]
 ]
 
-{ #category : #'private - stepping' }
+{ #category : 'private - stepping' }
 StInspectorPresenter >> stopProcessing [
 
 	StInspectorRefreshService uniqueInstance unregister: self
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StInspectorPresenter >> updateList [
 
 	millerList millerListPresenter
@@ -330,7 +332,7 @@ StInspectorPresenter >> updateList [
 		setRootModel: self model
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StInspectorPresenter >> updateTitle [
 		
 	self isRoot ifFalse: [ ^ self ].
@@ -338,24 +340,24 @@ StInspectorPresenter >> updateTitle [
 		window title: self title ].
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorPresenter >> windowIcon [
 	
 	^ self application iconNamed: #smallInspectIt
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorPresenter >> windowTitle [
 
 	^ self model windowTitle
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter >> withHeaderBar [
 	 ^withHeaderBar ifNil: [ withHeaderBar := true ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorPresenter >> withHeaderBar: bool [
 	withHeaderBar := bool
 ]
diff --git a/src/NewTools-Inspector/StInspectorRefreshCommand.class.st b/src/NewTools-Inspector/StInspectorRefreshCommand.class.st
index 3a4be8007..eef287f26 100644
--- a/src/NewTools-Inspector/StInspectorRefreshCommand.class.st
+++ b/src/NewTools-Inspector/StInspectorRefreshCommand.class.st
@@ -2,37 +2,39 @@
 A command to show the refresh content option for inspectors.
 "
 Class {
-	#name : #StInspectorRefreshCommand,
-	#superclass : #StInspectorCommand,
-	#category : #'NewTools-Inspector-Command'
+	#name : 'StInspectorRefreshCommand',
+	#superclass : 'StInspectorCommand',
+	#category : 'NewTools-Inspector-Command',
+	#package : 'NewTools-Inspector',
+	#tag : 'Command'
 }
 
-{ #category : #default }
+{ #category : 'default' }
 StInspectorRefreshCommand class >> defaultDescription [
 
 	^ 'Refresh current panel'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorRefreshCommand class >> defaultIconName [
 
 	^ #glamorousRefresh
 ]
 
-{ #category : #default }
+{ #category : 'default' }
 StInspectorRefreshCommand class >> defaultName [
 	<toolbarInspectCommand: 10>
 
 	^ 'Refresh'
 ]
 
-{ #category : #documentation }
+{ #category : 'documentation' }
 StInspectorRefreshCommand class >> documentContextRequiredSelectors [
 
 	^ super documentContextRequiredSelectors, #(refreshContent)
 ]
 
-{ #category : #execution }
+{ #category : 'execution' }
 StInspectorRefreshCommand >> execute [ 
 
 	self context refreshContent
diff --git a/src/NewTools-Inspector/StInspectorRefreshService.class.st b/src/NewTools-Inspector/StInspectorRefreshService.class.st
index 65f4e4866..d3a37b238 100644
--- a/src/NewTools-Inspector/StInspectorRefreshService.class.st
+++ b/src/NewTools-Inspector/StInspectorRefreshService.class.st
@@ -3,8 +3,8 @@ I'm a service to process refresh of inspectors.
 I keep a registry of all opened inspectors and execute the required stepping (by default every 500ms), but I'm only active if I have inspectors registered (otherwise, I will stop until a new inspector is registered) 
 "
 Class {
-	#name : #StInspectorRefreshService,
-	#superclass : #TKTService,
+	#name : 'StInspectorRefreshService',
+	#superclass : 'TKTService',
 	#instVars : [
 		'inspectors',
 		'mutex'
@@ -12,22 +12,24 @@ Class {
 	#classInstVars : [
 		'uniqueInstance'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorRefreshService class >> new [
 
 	self error: 'Use #uniqueInstance'
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorRefreshService class >> uniqueInstance [
 
 	^ uniqueInstance ifNil: [ uniqueInstance := self basicNew initialize ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StInspectorRefreshService >> initialize [
 
 	super initialize.
@@ -36,13 +38,13 @@ StInspectorRefreshService >> initialize [
 	inspectors := Set new
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorRefreshService >> name [
 	
 	^ 'StInspector Refresh Service'
 ]
 
-{ #category : #registry }
+{ #category : 'registry' }
 StInspectorRefreshService >> register: anInspector [
 
 	mutex critical: [ 
@@ -51,13 +53,13 @@ StInspectorRefreshService >> register: anInspector [
 			self start ] ].
 ]
 
-{ #category : #stepping }
+{ #category : 'stepping' }
 StInspectorRefreshService >> stepService [
 
 	inspectors do: [ :each | each step ]
 ]
 
-{ #category : #registry }
+{ #category : 'registry' }
 StInspectorRefreshService >> unregister: anInspector [
 
 	mutex critical: [ 
diff --git a/src/NewTools-Inspector/StInspectorSelfNode.class.st b/src/NewTools-Inspector/StInspectorSelfNode.class.st
index 2dffef0fa..79170ca11 100644
--- a/src/NewTools-Inspector/StInspectorSelfNode.class.st
+++ b/src/NewTools-Inspector/StInspectorSelfNode.class.st
@@ -2,23 +2,25 @@
 I model the `self` variable. This the value of this variable is always the host object. 
 "
 Class {
-	#name : #StInspectorSelfNode,
-	#superclass : #StInspectorNode,
-	#category : #'NewTools-Inspector-Model'
+	#name : 'StInspectorSelfNode',
+	#superclass : 'StInspectorNode',
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorSelfNode >> children [
  
 	^ #()
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorSelfNode >> key [
 	^ 'self'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorSelfNode >> rawValue [
 
 	^ self hostObject
diff --git a/src/NewTools-Inspector/StInspectorSlotNode.class.st b/src/NewTools-Inspector/StInspectorSlotNode.class.st
index 92cf61910..796a85bcc 100644
--- a/src/NewTools-Inspector/StInspectorSlotNode.class.st
+++ b/src/NewTools-Inspector/StInspectorSlotNode.class.st
@@ -2,57 +2,59 @@
 I am a variable node for representing the slots of an object. I used the name of a slot as a key. I extract the value from the host object every time #rawValue is called.
 "
 Class {
-	#name : #StInspectorSlotNode,
-	#superclass : #StInspectorNode,
+	#name : 'StInspectorSlotNode',
+	#superclass : 'StInspectorNode',
 	#instVars : [
 		'slot'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorSlotNode class >> hostObject: anObject slot: aSlot [
 	^ (self hostObject: anObject)
 		slot: aSlot;
 		yourself
 ]
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StInspectorSlotNode >> = anObject [
 
 	^ super = anObject and: [ slot = anObject slot ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorSlotNode >> errorMessage [
 	^ 'error obtaining variable value'
 ]
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StInspectorSlotNode >> hash [
 
 	^ super hash bitXor: slot hash
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorSlotNode >> key [
 	^ self slot name
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StInspectorSlotNode >> printOn: stream [ 
 
 	super printOn: stream.
 	stream << '(' << self slot name << ')'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorSlotNode >> rawValue [
 
 	^  slot read: self hostObject
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StInspectorSlotNode >> save: anObject [
 
 	self hostObject 
@@ -60,12 +62,12 @@ StInspectorSlotNode >> save: anObject [
 		value: anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorSlotNode >> slot [
 	^ slot
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorSlotNode >> slot: aSlot [
 
 	self
@@ -75,7 +77,7 @@ StInspectorSlotNode >> slot: aSlot [
 	slot := aSlot.
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorSlotNode >> variableTag [
 	^ 'inst. var'
 ]
diff --git a/src/NewTools-Inspector/StInspectorStackTopNode.class.st b/src/NewTools-Inspector/StInspectorStackTopNode.class.st
index ea75a5c07..9abb8fa63 100644
--- a/src/NewTools-Inspector/StInspectorStackTopNode.class.st
+++ b/src/NewTools-Inspector/StInspectorStackTopNode.class.st
@@ -3,23 +3,25 @@ A model for the `top` stack node.
 This is to be used when debugging.
 "
 Class {
-	#name : #StInspectorStackTopNode,
-	#superclass : #StInspectorNode,
-	#category : #'NewTools-Inspector-Model'
+	#name : 'StInspectorStackTopNode',
+	#superclass : 'StInspectorNode',
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorStackTopNode >> children [
  
 	^ #()
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorStackTopNode >> key [
 	^ 'stackTop'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorStackTopNode >> rawValue [
 
 	^ self hostObject stackPtr > 0
diff --git a/src/NewTools-Inspector/StInspectorTempNode.class.st b/src/NewTools-Inspector/StInspectorTempNode.class.st
index c97941801..90ce16446 100644
--- a/src/NewTools-Inspector/StInspectorTempNode.class.st
+++ b/src/NewTools-Inspector/StInspectorTempNode.class.st
@@ -3,15 +3,17 @@ I am a variable node for representing a temporary variable stored in a Context o
 This includes  local variables and method parameters.
 "
 Class {
-	#name : #StInspectorTempNode,
-	#superclass : #StInspectorNode,
+	#name : 'StInspectorTempNode',
+	#superclass : 'StInspectorNode',
 	#instVars : [
 		'tempVariable'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StInspectorTempNode >> = anObject [
 
 	"Answer whether the receiver and anObject represent the same object."
@@ -22,12 +24,12 @@ StInspectorTempNode >> = anObject [
 		  hostObject = anObject hostObject ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTempNode >> children [
 	^ #()
 ]
 
-{ #category : #comparing }
+{ #category : 'comparing' }
 StInspectorTempNode >> hash [
 
 	"Answer an integer value that is related to the identity of the receiver."
@@ -35,12 +37,12 @@ StInspectorTempNode >> hash [
 	^ tempVariable hash bitXor: (hostObject hash)
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTempNode >> key [
 	^ tempVariable name
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTempNode >> rawValue [
 	"Answer the object value of this object variable (slot, indexed attribute, computed value)."
 
@@ -51,17 +53,17 @@ StInspectorTempNode >> rawValue [
 		  do: [ :err | 'cannot read ' , tempVariable name ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTempNode >> tempVariable [
 	^ tempVariable
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTempNode >> tempVariable: anObject [
 	tempVariable := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTempNode >> variableTag [
 
 	^ tempVariable variableTag
diff --git a/src/NewTools-Inspector/StInspectorThisContextNode.class.st b/src/NewTools-Inspector/StInspectorThisContextNode.class.st
index f64ddc2b5..35aee9714 100644
--- a/src/NewTools-Inspector/StInspectorThisContextNode.class.st
+++ b/src/NewTools-Inspector/StInspectorThisContextNode.class.st
@@ -3,18 +3,20 @@ A model for the `thisContext` variable.
 This is to be used when debugging.
 "
 Class {
-	#name : #StInspectorThisContextNode,
-	#superclass : #StInspectorSelfNode,
-	#category : #'NewTools-Inspector-Model'
+	#name : 'StInspectorThisContextNode',
+	#superclass : 'StInspectorNode',
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
-StInspectorThisContextNode >> children [ 
-	
-	^ self value allInspectorNodes
-]
-
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorThisContextNode >> key [
 	^ 'thisContext'
 ]
+
+{ #category : 'accessing' }
+StInspectorThisContextNode >> rawValue [
+
+	^ self hostObject
+]
diff --git a/src/NewTools-Inspector/StInspectorTransmissionNode.class.st b/src/NewTools-Inspector/StInspectorTransmissionNode.class.st
index 4b0190a4a..792b62b7a 100644
--- a/src/NewTools-Inspector/StInspectorTransmissionNode.class.st
+++ b/src/NewTools-Inspector/StInspectorTransmissionNode.class.st
@@ -2,15 +2,17 @@
 I am an inspector node that allows the user to specify a custom transmission. I am made to be used inside the Inspector. The user can specify the `transmissionBlock:`
 "
 Class {
-	#name : #StInspectorTransmissionNode,
-	#superclass : #StInspectorNode,
+	#name : 'StInspectorTransmissionNode',
+	#superclass : 'StInspectorNode',
 	#instVars : [
 		'transmissionBlock'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance initialization' }
+{ #category : 'instance initialization' }
 StInspectorTransmissionNode class >> hostObject: anObject transmissionBlock: aFullBlockClosure [
 
 	^ self new
@@ -19,19 +21,19 @@ StInspectorTransmissionNode class >> hostObject: anObject transmissionBlock: aFu
 		  yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTransmissionNode >> key [
 
 	^ self hostObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTransmissionNode >> rawValue [
 
 	^ transmissionBlock value: hostObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTransmissionNode >> transmissionBlock: aBlock [
 
 	self
@@ -40,7 +42,7 @@ StInspectorTransmissionNode >> transmissionBlock: aBlock [
 	self transmits: aBlock
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorTransmissionNode >> transmits: aBlock [
 
 	transmissionBlock := aBlock
diff --git a/src/NewTools-Inspector/StInspectorWrapperNode.class.st b/src/NewTools-Inspector/StInspectorWrapperNode.class.st
index 7324f7661..ae588e864 100644
--- a/src/NewTools-Inspector/StInspectorWrapperNode.class.st
+++ b/src/NewTools-Inspector/StInspectorWrapperNode.class.st
@@ -2,43 +2,45 @@
 I am a node that wraps in the host object another node and delegates all API methods to the wrapped node. I can further provide a different label for the wrapped node.
 "
 Class {
-	#name : #StInspectorWrapperNode,
-	#superclass : #StInspectorNode,
+	#name : 'StInspectorWrapperNode',
+	#superclass : 'StInspectorNode',
 	#instVars : [
 		'label'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StInspectorWrapperNode class >> hostObject: anObject label: aString [
 	^ (self hostObject: anObject) 
 		label: aString;
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorWrapperNode >> errorMessage [
 	^ self hostObject errorMessage
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorWrapperNode >> key [
 	^ label ifNil: [ self hostObject key ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorWrapperNode >> label: aString [
 	label := aString
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorWrapperNode >> rawValue [
 
 	^ self hostObject rawValue
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StInspectorWrapperNode >> variableTag [
 	^ self hostObject variableTag
 ]
diff --git a/src/NewTools-Inspector/StMetaBrowser.class.st b/src/NewTools-Inspector/StMetaBrowser.class.st
index 4c921fa64..102b83218 100644
--- a/src/NewTools-Inspector/StMetaBrowser.class.st
+++ b/src/NewTools-Inspector/StMetaBrowser.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StMetaBrowser,
-	#superclass : #StMetaBrowserPresenter,
-	#category : #'NewTools-Inspector-Deprecated'
+	#name : 'StMetaBrowser',
+	#superclass : 'StMetaBrowserPresenter',
+	#category : 'NewTools-Inspector-Deprecated',
+	#package : 'NewTools-Inspector',
+	#tag : 'Deprecated'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StMetaBrowser class >> isDeprecated [ 
 	^ true
 ]
diff --git a/src/NewTools-Inspector/StMetaBrowserPresenter.class.st b/src/NewTools-Inspector/StMetaBrowserPresenter.class.st
index e3c537038..366736ed3 100644
--- a/src/NewTools-Inspector/StMetaBrowserPresenter.class.st
+++ b/src/NewTools-Inspector/StMetaBrowserPresenter.class.st
@@ -5,17 +5,19 @@ This inspection allow the user to operate with the class of the instance.
 Also, this inspection allows the user to place instance breakpoints (breakpoints that will act when the method where the breakpoint is) is called for the instance being inspected.
 "
 Class {
-	#name : #StMetaBrowserPresenter,
-	#superclass : #StInspectionPresenter,
+	#name : 'StMetaBrowserPresenter',
+	#superclass : 'StInspectionPresenter',
 	#instVars : [
 		'classes',
 		'methods',
 		'source'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #commands }
+{ #category : 'commands' }
 StMetaBrowserPresenter class >> buildCommandsGroupWith: presenter forRoot: aCmCommandsGroup [
 
 	aCmCommandsGroup
@@ -30,7 +32,7 @@ StMetaBrowserPresenter class >> buildCommandsGroupWith: presenter forRoot: aCmCo
 			yourself)
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StMetaBrowserPresenter class >> defaultLayout [
 	
 	^ SpPanedLayout newTopToBottom
@@ -42,13 +44,13 @@ StMetaBrowserPresenter class >> defaultLayout [
 		yourself
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMetaBrowserPresenter >> classListMenu [
 	
 	^ (self rootCommandsGroup / 'classes') asMenuPresenter 
 ]
 
-{ #category : #'private - actions' }
+{ #category : 'private - actions' }
 StMetaBrowserPresenter >> compile: aString [
 	| compiledSelector cursorPosition |
 
@@ -66,7 +68,7 @@ StMetaBrowserPresenter >> compile: aString [
 			source cursorPositionIndex: cursorPosition ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMetaBrowserPresenter >> initializePresenters [
 	| classHierarchy |
 	
@@ -99,13 +101,13 @@ StMetaBrowserPresenter >> initializePresenters [
 	classes selectPath: (Array new: classHierarchy size withAll: 1)
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMetaBrowserPresenter >> methodListMenu [
 
 	^ (self rootCommandsGroup / 'methods') asMenuPresenter
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StMetaBrowserPresenter >> methodsOf: aClass [
 
 	aClass ifNil: [ ^ #() ].
@@ -113,25 +115,25 @@ StMetaBrowserPresenter >> methodsOf: aClass [
 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMetaBrowserPresenter >> selectedClass [
 
 	^ classes selection selectedItem
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMetaBrowserPresenter >> selectedMethod [
 
 	^ methods selectedItem
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMetaBrowserPresenter >> selectedObject [
 
 	^ self selectedMethod ifNil: [ self selectedClass  ]
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StMetaBrowserPresenter >> updateMethods: aClass [
 	
 	methods items: (aClass
@@ -140,7 +142,7 @@ StMetaBrowserPresenter >> updateMethods: aClass [
 	
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StMetaBrowserPresenter >> updateSourceWith: method [
 
 	source userActionDuring: [
diff --git a/src/NewTools-Inspector/StNodeCollector.class.st b/src/NewTools-Inspector/StNodeCollector.class.st
index bbb0afd39..c5f8ca08f 100644
--- a/src/NewTools-Inspector/StNodeCollector.class.st
+++ b/src/NewTools-Inspector/StNodeCollector.class.st
@@ -7,15 +7,17 @@ It acts on an object.
 ```
 "
 Class {
-	#name : #StNodeCollector,
-	#superclass : #Object,
+	#name : 'StNodeCollector',
+	#superclass : 'Object',
 	#instVars : [
 		'object'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StNodeCollector class >> for: anObject [
 
 	^ self basicNew 
@@ -23,13 +25,13 @@ StNodeCollector class >> for: anObject [
 		yourself
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StNodeCollector >> collectNodes [
 
 	^ self slotNodes , self indexedNodes
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StNodeCollector >> indexedNodes [
 	| nodes indexableDisplayLimit top bottom topLimit bottomLimit |
 	
@@ -54,26 +56,26 @@ StNodeCollector >> indexedNodes [
 	^ nodes
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StNodeCollector >> initializeObject: anObject [
 
 	self initialize.
 	object := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StNodeCollector >> object [ 
 	
 	^ object
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StNodeCollector >> objectClass [ 
 	
 	^ self object class
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StNodeCollector >> slotNodes [
 
 	^ self objectClass allSlots collect: [ :each | 
diff --git a/src/NewTools-Inspector/StObjectContextModel.class.st b/src/NewTools-Inspector/StObjectContextModel.class.st
index 0668806e7..73a64b590 100644
--- a/src/NewTools-Inspector/StObjectContextModel.class.st
+++ b/src/NewTools-Inspector/StObjectContextModel.class.st
@@ -7,8 +7,8 @@ It keeps references to:
 - the inspection object
 "
 Class {
-	#name : #StObjectContextModel,
-	#superclass : #Object,
+	#name : 'StObjectContextModel',
+	#superclass : 'Object',
 	#instVars : [
 		'inspection',
 		'context',
@@ -17,10 +17,12 @@ Class {
 	#classVars : [
 		'CodeSnippets'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectContextModel class >> codeSnippetFor: aClass ifAbsent: aBlock [
 
 	^ self codeSnippets 
@@ -28,7 +30,7 @@ StObjectContextModel class >> codeSnippetFor: aClass ifAbsent: aBlock [
 		ifAbsent: aBlock
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectContextModel class >> codeSnippetFor: aClass value: aString [
 
 	self codeSnippets 	
@@ -36,13 +38,13 @@ StObjectContextModel class >> codeSnippetFor: aClass value: aString [
 		put: aString
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectContextModel class >> codeSnippets [
 
 	^ CodeSnippets ifNil: [ CodeSnippets := WeakIdentityKeyDictionary new ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectContextModel >> codeSnippet [
 
 	^ self class 
@@ -50,7 +52,7 @@ StObjectContextModel >> codeSnippet [
 		ifAbsent: [ 'self' ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectContextModel >> codeSnippet: aString [
 
 	(self stringWithoutInitialCommentFrom: aString asString) 
@@ -60,55 +62,55 @@ StObjectContextModel >> codeSnippet: aString [
 				value: snippet ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectContextModel >> context [
 	^ context
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectContextModel >> context: anObject [
 	context := anObject
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StObjectContextModel >> hasEvaluator [
 	
 	^ self context hasEvaluator
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectContextModel >> inspectedObject [
 	^ inspectedObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectContextModel >> inspectedObject: anObject [
 	inspectedObject := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectContextModel >> inspection [
 	^ inspection
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectContextModel >> inspection: anObject [
 	inspection := anObject
 ]
 
-{ #category : #factory }
+{ #category : 'factory' }
 StObjectContextModel >> newInspectionView [
 
 	^ self context newInspectionView
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectContextModel >> smallDescriptionString [
 
 	^ self inspection smallDescriptionStringFor: self inspectedObject
 ]
 
-{ #category : #'private building' }
+{ #category : 'private building' }
 StObjectContextModel >> stringWithoutInitialCommentFrom: aString [
 
 	^ (aString trimLeft notEmpty and: [ aString trimLeft first = $" ])
diff --git a/src/NewTools-Inspector/StObjectContextPresenter.class.st b/src/NewTools-Inspector/StObjectContextPresenter.class.st
index a156036ac..4c03ebac9 100644
--- a/src/NewTools-Inspector/StObjectContextPresenter.class.st
+++ b/src/NewTools-Inspector/StObjectContextPresenter.class.st
@@ -3,32 +3,34 @@ A presenter object inspection that is aware of the inspection context.
 It is used to build enhance inspection view (e.g. show or not the evaluator).
 "
 Class {
-	#name : #StObjectContextPresenter,
-	#superclass : #StPresenter,
+	#name : 'StObjectContextPresenter',
+	#superclass : 'StPresenter',
 	#instVars : [
 		'view',
 		'evaluator',
 		'model',
 		'activationBlock'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #api }
+{ #category : 'api' }
 StObjectContextPresenter >> activateOnDoubleClick [
 	
 	view hasOutputActivationPort ifFalse: [ ^ self ].
 	view activateOnDoubleClick
 ]
 
-{ #category : #api }
+{ #category : 'api' }
 StObjectContextPresenter >> activateOnSingleClick [
 	
 	view hasOutputActivationPort ifFalse: [ ^ self ].
 	view activateOnSingleClick
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StObjectContextPresenter >> doEvaluateAndGo [
 	| value |
 	
@@ -42,13 +44,13 @@ StObjectContextPresenter >> doEvaluateAndGo [
 	activationBlock value: (StEvaluatedSelectionModel newValue: value)
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectContextPresenter >> evaluator [
 
 	^ evaluator
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectContextPresenter >> evaluatorActions [
 	
 	^ CmCommandGroup forSpec
@@ -57,26 +59,26 @@ StObjectContextPresenter >> evaluatorActions [
 		yourself
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectContextPresenter >> evaluatorInitialText [
 
 	^ self model inspectedObject evaluatorInitialText: self 
 	
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StObjectContextPresenter >> hasEvaluator [
 
 	^ self model hasEvaluator
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StObjectContextPresenter >> hasOutputActivationPort [
 	
 	^ self hasEvaluator or: [ view hasOutputActivationPort ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StObjectContextPresenter >> initializePresenters [
 
 	view := self model newInspectionView.
@@ -85,7 +87,7 @@ StObjectContextPresenter >> initializePresenters [
 		ifFalse: [ self intializePresentersWithoutEvaluator ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StObjectContextPresenter >> intializePresentersWithEvaluator [
 	
 	(evaluator := self newCode)
@@ -103,7 +105,7 @@ StObjectContextPresenter >> intializePresentersWithEvaluator [
 		yourself)
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StObjectContextPresenter >> intializePresentersWithoutEvaluator [
 	
 	self layout: (SpBoxLayout newTopToBottom
@@ -111,7 +113,7 @@ StObjectContextPresenter >> intializePresentersWithoutEvaluator [
 		yourself)
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectContextPresenter >> menuActionsFor: aCodePresenter [
 	
 	^ CmCommandGroup forSpec
@@ -125,13 +127,13 @@ StObjectContextPresenter >> menuActionsFor: aCodePresenter [
 		yourself
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StObjectContextPresenter >> model [
 
 	^ model
 ]
 
-{ #category : #transmission }
+{ #category : 'transmission' }
 StObjectContextPresenter >> outputActivationPort [
 
 	^ view hasOutputActivationPort 
@@ -139,19 +141,19 @@ StObjectContextPresenter >> outputActivationPort [
 		ifFalse: [ SpActivationPort newPresenter: self ]
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StObjectContextPresenter >> setModelBeforeInitialization: aModel [
 	
 	model := aModel
 ]
 
-{ #category : #stepping }
+{ #category : 'stepping' }
 StObjectContextPresenter >> step [
 
 	view step
 ]
 
-{ #category : #'api - events' }
+{ #category : 'api - events' }
 StObjectContextPresenter >> whenActivatedDo: aBlock [
 
 	activationBlock := aBlock
diff --git a/src/NewTools-Inspector/StObjectInspectorPresenter.class.st b/src/NewTools-Inspector/StObjectInspectorPresenter.class.st
index 2ba649a0a..7004aba28 100644
--- a/src/NewTools-Inspector/StObjectInspectorPresenter.class.st
+++ b/src/NewTools-Inspector/StObjectInspectorPresenter.class.st
@@ -5,8 +5,8 @@ I present a notebook with the possible inspection of the object.
 I am usually embedded into an StInspector, but I can be used standalone.
 "
 Class {
-	#name : #StObjectInspectorPresenter,
-	#superclass : #StPresenter,
+	#name : 'StObjectInspectorPresenter',
+	#superclass : 'StPresenter',
 	#instVars : [
 		'views',
 		'evaluator',
@@ -16,10 +16,12 @@ Class {
 		'alivePresentersByPage',
 		'activateOnSingleClick'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #commands }
+{ #category : 'commands' }
 StObjectInspectorPresenter class >> buildCommandsGroupWith: presenter forRoot: aCmCommandsGroup [
 	| group |
 	
@@ -30,7 +32,7 @@ StObjectInspectorPresenter class >> buildCommandsGroupWith: presenter forRoot: a
 	aCmCommandsGroup register: group
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StObjectInspectorPresenter class >> buildRootCommandsGroupFor: aPresenter [
 	| rootCommandGroup |
 	
@@ -43,50 +45,50 @@ StObjectInspectorPresenter class >> buildRootCommandsGroupFor: aPresenter [
 	^ rootCommandGroup
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter class >> defaultTitle [
 
 	^ 'Inspector'
 ]
 
-{ #category : #'tools registry' }
+{ #category : 'tools registry' }
 StObjectInspectorPresenter class >> inspect: anObject [
 
 	^ self openOn: anObject
 ]
 
-{ #category : #opening }
+{ #category : 'opening' }
 StObjectInspectorPresenter class >> onObject: anObject [
 
 	^ self on: (StInspectorModel on: anObject)
 ]
 
-{ #category : #opening }
+{ #category : 'opening' }
 StObjectInspectorPresenter class >> openOn: anObject [
 
 	^ (self onObject: anObject) open
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectInspectorPresenter >> activate: aSelection [
 
 	activationBlock ifNil: [ ^ self ].
 	activationBlock cull: aSelection
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> activateOnDoubleClick [
 
 	activateOnSingleClick := true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> activateOnSingleClick [
 
 	activateOnSingleClick := true
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectInspectorPresenter >> addActivationTo: aPresenter [
 	
 	aPresenter hasOutputActivationPort ifFalse: [ ^ self ]. 
@@ -95,13 +97,13 @@ StObjectInspectorPresenter >> addActivationTo: aPresenter [
 		transmitDo: [ :selection | self activate: selection ]
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectInspectorPresenter >> allContexts [
 
 	^ self model objectInspectionContexts
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectInspectorPresenter >> allPages [
 
 	^ self allContexts 
@@ -109,7 +111,7 @@ StObjectInspectorPresenter >> allPages [
 	
 ]
 
-{ #category : #'private - builder' }
+{ #category : 'private - builder' }
 StObjectInspectorPresenter >> buildToolbar [
 
 	^ self newToolbar 
@@ -118,13 +120,13 @@ StObjectInspectorPresenter >> buildToolbar [
 		fillWith: self rootCommandsGroup
 ]
 
-{ #category : #transmission }
+{ #category : 'transmission' }
 StObjectInspectorPresenter >> defaultInputPort [
 
 	^ self inputModelPort
 ]
 
-{ #category : #'api - focus' }
+{ #category : 'api - focus' }
 StObjectInspectorPresenter >> defaultKeyboardFocus [
 
 	views pages ifNotEmpty: [ :pages | 
@@ -134,7 +136,7 @@ StObjectInspectorPresenter >> defaultKeyboardFocus [
 	^ self
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StObjectInspectorPresenter >> defaultLayout [
 	
 	^ SpBoxLayout newTopToBottom 
@@ -143,12 +145,12 @@ StObjectInspectorPresenter >> defaultLayout [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> evaluator [ 
 	^evaluator
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StObjectInspectorPresenter >> initialize [
 
 	activateOnSingleClick := false.
@@ -158,14 +160,14 @@ StObjectInspectorPresenter >> initialize [
 	alivePresentersByPage := WeakSet new
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StObjectInspectorPresenter >> initializePresenters [
 
 	views := self newNotebook.
 	header := self instantiate: StHeaderBar
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StObjectInspectorPresenter >> initializeWindow: aWindowPresenter [
 
 	super initializeWindow: aWindowPresenter.
@@ -174,31 +176,31 @@ StObjectInspectorPresenter >> initializeWindow: aWindowPresenter [
 		toolbar: self buildToolbar
 ]
 
-{ #category : #transmission }
+{ #category : 'transmission' }
 StObjectInspectorPresenter >> inputModelPort [
 
 	^ SpModelPort newPresenter: self
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> inspectedObject [
  	
 	^ self model inspectedObject
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectInspectorPresenter >> keepPresenter: aPresenter [
 
 	alivePresentersByPage add: aPresenter
 ]
 
-{ #category : #'model access' }
+{ #category : 'model access' }
 StObjectInspectorPresenter >> model [ 
 
 	^ model
 ]
 
-{ #category : #'model access' }
+{ #category : 'model access' }
 StObjectInspectorPresenter >> model: anInspectorModel [
 
 	"if same object, I do not want to update to not trigger infinite updates"
@@ -208,7 +210,7 @@ StObjectInspectorPresenter >> model: anInspectorModel [
 	self refresh
 ]
 
-{ #category : #'private - factory' }
+{ #category : 'private - factory' }
 StObjectInspectorPresenter >> newInspectionForContext: aContext [
 	
 	^ StObjectContextPresenter on: (StObjectContextModel new 
@@ -218,7 +220,7 @@ StObjectInspectorPresenter >> newInspectionForContext: aContext [
 		yourself)
 ]
 
-{ #category : #'private - factory' }
+{ #category : 'private - factory' }
 StObjectInspectorPresenter >> newPageForContext: aContext [
 
 	^ SpNotebookPage new
@@ -230,7 +232,7 @@ StObjectInspectorPresenter >> newPageForContext: aContext [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> rawInspectorPageOrNil [
 
 	^ views pages 
@@ -238,7 +240,7 @@ StObjectInspectorPresenter >> rawInspectorPageOrNil [
 		ifNone: [ nil ]
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StObjectInspectorPresenter >> refresh [
 	"model changed?  
 	 update inspector values."
@@ -249,56 +251,56 @@ StObjectInspectorPresenter >> refresh [
 	self updatePages
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> refreshContent [
 	"I force a refresh of current page contents. "
 
 	views selectedPage resetContent
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> selectedObject [
 	^ self inspectedObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> selectedPage [
 
 	^ views selectedPage
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> selectedPageName [
 
 	^ self selectedPage title
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StObjectInspectorPresenter >> setModel: aModel [
 
 	self model: aModel
 ]
 
-{ #category : #'model access' }
+{ #category : 'model access' }
 StObjectInspectorPresenter >> setModelBeforeInitialization: anInspectorModel [
 
 	model := anInspectorModel
 ]
 
-{ #category : #stepping }
+{ #category : 'stepping' }
 StObjectInspectorPresenter >> step [
 
 	alivePresentersByPage 
 		do: [ :each | each step ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> title [
 
 	^ self model windowTitle
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StObjectInspectorPresenter >> trySelectAnyPageWithName: aCollection [
 	"Tries to select a the first page of aCollection that exists in the pages list."
 	| pagesToSearch |
@@ -317,20 +319,20 @@ StObjectInspectorPresenter >> trySelectAnyPageWithName: aCollection [
 				^ self ] ]
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StObjectInspectorPresenter >> updateEvaluator [
 
 	"evaluator beForObject: self model inspectedObject"
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StObjectInspectorPresenter >> updateHeaderBar [
 		
 	header label: self model labelString.
 	header toolbarActions: self rootCommandsGroup 
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StObjectInspectorPresenter >> updatePages [
 
 	views 
@@ -338,13 +340,13 @@ StObjectInspectorPresenter >> updatePages [
 		selectPageIndex: 1
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StObjectInspectorPresenter >> updatePresenter [
 
 	self refresh
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StObjectInspectorPresenter >> updateTitle [
 		
 	self isRoot ifFalse: [ ^ self ].
@@ -352,13 +354,13 @@ StObjectInspectorPresenter >> updateTitle [
 		window title: self title ].
 ]
 
-{ #category : #'api - events' }
+{ #category : 'api - events' }
 StObjectInspectorPresenter >> whenActivatedDo: aBlock [
 
 	activationBlock := aBlock
 ]
 
-{ #category : #'api - events' }
+{ #category : 'api - events' }
 StObjectInspectorPresenter >> whenClosedDo: aBlock [
 
 	header whenClosedDo: aBlock
diff --git a/src/NewTools-Inspector/StObjectPrinter.class.st b/src/NewTools-Inspector/StObjectPrinter.class.st
index 03184941e..5e526ff47 100644
--- a/src/NewTools-Inspector/StObjectPrinter.class.st
+++ b/src/NewTools-Inspector/StObjectPrinter.class.st
@@ -3,15 +3,17 @@ This is a utility class for printing objects to Text or String.
 
 "
 Class {
-	#name : #StObjectPrinter,
-	#superclass : #Object,
+	#name : 'StObjectPrinter',
+	#superclass : 'Object',
 	#classVars : [
 		'DisplayStringLength'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #converting }
+{ #category : 'converting' }
 StObjectPrinter class >> asNonTruncatedTextFrom: anObject [
 	"I return a representation of the receiver in which all lines breaks 
 	are replaced by spaces. I return a String unless there is an error 
@@ -21,7 +23,7 @@ StObjectPrinter class >> asNonTruncatedTextFrom: anObject [
 		do: [ Text string: 'error printing' attribute: TextColor red ]
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 StObjectPrinter class >> asTruncatedTextFrom: anObject [
 	"I return a truncated representation of the receiver in which all lines breaks 
 	are replaced by spaces. I return a String unless there is an error printing the
@@ -31,18 +33,18 @@ StObjectPrinter class >> asTruncatedTextFrom: anObject [
 		do: [ :error | self textFromError: error ]
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StObjectPrinter class >> displayStringLength [
 	^ DisplayStringLength ifNil: [ DisplayStringLength := 100 ]
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StObjectPrinter class >> displayStringLength: anInteger [ 
 	
 	DisplayStringLength := anInteger
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StObjectPrinter class >> settingsOn: aBuilder [
 	<systemsettings>
 		
@@ -54,7 +56,7 @@ StObjectPrinter class >> settingsOn: aBuilder [
 		label: 'Display String length in Collection'
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 StObjectPrinter class >> textFromError: anError [
 
 	| message |
@@ -62,12 +64,12 @@ StObjectPrinter class >> textFromError: anError [
 	^ 'Error printing: ', message
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StObjectPrinter >> asNonTruncatedTextFrom: anObject [
 	^ self class asNonTruncatedTextFrom: anObject
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StObjectPrinter >> asTruncatedTextFrom: anObject [
 	^ self class asTruncatedTextFrom: anObject
 ]
diff --git a/src/NewTools-Inspector/StPresenterInspection.class.st b/src/NewTools-Inspector/StPresenterInspection.class.st
index 4f0343074..6e21b7d87 100644
--- a/src/NewTools-Inspector/StPresenterInspection.class.st
+++ b/src/NewTools-Inspector/StPresenterInspection.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StPresenterInspection,
-	#superclass : #StPresenterInspectionPresenter,
-	#category : #'NewTools-Inspector-Deprecated'
+	#name : 'StPresenterInspection',
+	#superclass : 'StPresenterInspectionPresenter',
+	#category : 'NewTools-Inspector-Deprecated',
+	#package : 'NewTools-Inspector',
+	#tag : 'Deprecated'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StPresenterInspection class >> isDeprecated [ 
 	^ true
 ]
diff --git a/src/NewTools-Inspector/StPresenterInspectionPresenter.class.st b/src/NewTools-Inspector/StPresenterInspectionPresenter.class.st
index 0f7e645f4..0c8762a73 100644
--- a/src/NewTools-Inspector/StPresenterInspectionPresenter.class.st
+++ b/src/NewTools-Inspector/StPresenterInspectionPresenter.class.st
@@ -3,15 +3,17 @@ An inspection container to hold any kind of presenter and show them as inspectio
 Called in `SpPresenter>>#asInspection`, a presenter inspection is used to build an inspector, when collecting the inspections defined for the instance.
 "
 Class {
-	#name : #StPresenterInspectionPresenter,
-	#superclass : #StInspectionPresenter,
+	#name : 'StPresenterInspectionPresenter',
+	#superclass : 'StInspectionPresenter',
 	#instVars : [
 		'presenter'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #layout }
+{ #category : 'layout' }
 StPresenterInspectionPresenter class >> defaultLayout [
 
 	^ SpBoxLayout newTopToBottom
@@ -19,7 +21,7 @@ StPresenterInspectionPresenter class >> defaultLayout [
 		yourself
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StPresenterInspectionPresenter class >> for: aPresenter [
 
 	^ self new
@@ -27,43 +29,43 @@ StPresenterInspectionPresenter class >> for: aPresenter [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StPresenterInspectionPresenter >> activateOnDoubleClick [
 
 	self presenter activateOnDoubleClick
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StPresenterInspectionPresenter >> activateOnSingleClick [
 
 	self presenter activateOnSingleClick
 ]
 
-{ #category : #ports }
+{ #category : 'ports' }
 StPresenterInspectionPresenter >> defaultOutputPort [
 	
 	^ self presenter defaultOutputPort
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StPresenterInspectionPresenter >> hasOutputActivationPort [
 
 	^ self presenter respondsTo: #outputActivationPort
 	
 ]
 
-{ #category : #ports }
+{ #category : 'ports' }
 StPresenterInspectionPresenter >> outputActivationPort [
 
 	^ self presenter outputActivationPort
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StPresenterInspectionPresenter >> presenter [
 	^ presenter
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StPresenterInspectionPresenter >> presenter: aPresenter [
 
 	aPresenter owner: self.
diff --git a/src/NewTools-Inspector/StRawInspection.class.st b/src/NewTools-Inspector/StRawInspection.class.st
index 6368fc20c..ef42c75d1 100644
--- a/src/NewTools-Inspector/StRawInspection.class.st
+++ b/src/NewTools-Inspector/StRawInspection.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StRawInspection,
-	#superclass : #StRawInspectionPresenter,
-	#category : #'NewTools-Inspector-Deprecated'
+	#name : 'StRawInspection',
+	#superclass : 'StRawInspectionPresenter',
+	#category : 'NewTools-Inspector-Deprecated',
+	#package : 'NewTools-Inspector',
+	#tag : 'Deprecated'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StRawInspection class >> isDeprecated [ 
 	^ true
 ]
diff --git a/src/NewTools-Inspector/StRawInspectionPresenter.class.st b/src/NewTools-Inspector/StRawInspectionPresenter.class.st
index f04735f7e..c6965a783 100644
--- a/src/NewTools-Inspector/StRawInspectionPresenter.class.st
+++ b/src/NewTools-Inspector/StRawInspectionPresenter.class.st
@@ -3,16 +3,18 @@ A raw inspection is the basic inspection over any object of the system.
 It will show the variables the object is composed of and it will allow dive into and editing of them.
 "
 Class {
-	#name : #StRawInspectionPresenter,
-	#superclass : #StInspectionPresenter,
+	#name : 'StRawInspectionPresenter',
+	#superclass : 'StInspectionPresenter',
 	#instVars : [
 		'attributeTable',
 		'mementoNodes'
 	],
-	#category : #'NewTools-Inspector-View'
+	#category : 'NewTools-Inspector-View',
+	#package : 'NewTools-Inspector',
+	#tag : 'View'
 }
 
-{ #category : #commands }
+{ #category : 'commands' }
 StRawInspectionPresenter class >> buildCommandsGroupWith: presenter forRoot: aCmCommandsGroup [
 	aCmCommandsGroup
 		beDisplayedAsGroup;
@@ -21,7 +23,7 @@ StRawInspectionPresenter class >> buildCommandsGroupWith: presenter forRoot: aCm
 		register: (SpBrowsePointersToCommand forSpecContext: presenter)
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StRawInspectionPresenter class >> defaultLayout [
 
 	^ SpBoxLayout newTopToBottom 
@@ -29,54 +31,54 @@ StRawInspectionPresenter class >> defaultLayout [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StRawInspectionPresenter class >> label [
 
 	^ 'Raw'
 ]
 
-{ #category : #api }
+{ #category : 'api' }
 StRawInspectionPresenter >> activateOnDoubleClick [
 
 	attributeTable activateOnDoubleClick
 ]
 
-{ #category : #api }
+{ #category : 'api' }
 StRawInspectionPresenter >> activateOnSingleClick [
 
 	attributeTable activateOnSingleClick
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StRawInspectionPresenter >> addValuesColumn [
 
 	attributeTable addColumn: self valuesColumn
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StRawInspectionPresenter >> addVariablesColumn [
 
 	attributeTable addColumn: self variablesColumn
 ]
 
-{ #category : #ports }
+{ #category : 'ports' }
 StRawInspectionPresenter >> defaultOutputPort [
 
 	^ self outputSelectionPort
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StRawInspectionPresenter >> enableSlotMenuEntries [
 	^ self selectedItem class == StInspectorSlotNode
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StRawInspectionPresenter >> hasOutputActivationPort [
 
 	^ true
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StRawInspectionPresenter >> initializePresenters [
 
 	attributeTable := self newTreeTable
@@ -88,20 +90,20 @@ StRawInspectionPresenter >> initializePresenters [
 	self setAttributeTable
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StRawInspectionPresenter >> inspectorNodes [
 
 	^ self model allInspectorNodes
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StRawInspectionPresenter >> model: aModel [
 
 	super model: aModel.
 	self setAttributeTable
 ]
 
-{ #category : #ports }
+{ #category : 'ports' }
 StRawInspectionPresenter >> outputActivationPort [
 	
 	^ (SpActivationPort newPresenter: self) 
@@ -109,7 +111,7 @@ StRawInspectionPresenter >> outputActivationPort [
 		yourself
 ]
 
-{ #category : #ports }
+{ #category : 'ports' }
 StRawInspectionPresenter >> outputSelectionPort [
 	
 	^ (SpSelectionPort newPresenter: self)
@@ -117,37 +119,37 @@ StRawInspectionPresenter >> outputSelectionPort [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StRawInspectionPresenter >> selectFirst [
 
 	self selectPath: #(1)
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StRawInspectionPresenter >> selectPath: aPath [
 
 	attributeTable selectPath: aPath
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StRawInspectionPresenter >> selectedItem [
 
 	^ attributeTable selectedItem
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StRawInspectionPresenter >> selectedObject [
 
 	^ attributeTable selectedItem value
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StRawInspectionPresenter >> selectedPath [
 
 	^ attributeTable selection selectedPath
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StRawInspectionPresenter >> setAttributeTable [
 
 	attributeTable
@@ -155,7 +157,7 @@ StRawInspectionPresenter >> setAttributeTable [
 		children: [ :node | node children ]
 ]
 
-{ #category : #stepping }
+{ #category : 'stepping' }
 StRawInspectionPresenter >> step [
 	| rootNodes |
 
@@ -169,7 +171,7 @@ StRawInspectionPresenter >> step [
 	attributeTable updateRootsKeepingSelection: rootNodes
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StRawInspectionPresenter >> valuesColumn [
 
 	^ SpStringTableColumn new
@@ -182,7 +184,7 @@ StRawInspectionPresenter >> valuesColumn [
 		yourself
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StRawInspectionPresenter >> variablesColumn [
 
 	^ SpCompositeTableColumn new
diff --git a/src/NewTools-Inspector/StSimpleInspectorBuilder.class.st b/src/NewTools-Inspector/StSimpleInspectorBuilder.class.st
index aaaef6685..21a57925b 100644
--- a/src/NewTools-Inspector/StSimpleInspectorBuilder.class.st
+++ b/src/NewTools-Inspector/StSimpleInspectorBuilder.class.st
@@ -6,37 +6,39 @@ I help in creating simple key/value inspector panels.
 Check my usage (class references) for examples.
 "
 Class {
-	#name : #StSimpleInspectorBuilder,
-	#superclass : #Object,
+	#name : 'StSimpleInspectorBuilder',
+	#superclass : 'Object',
 	#instVars : [
 		'specBuilder',
 		'info'
 	],
-	#category : #'NewTools-Inspector-Model'
+	#category : 'NewTools-Inspector-Model',
+	#package : 'NewTools-Inspector',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StSimpleInspectorBuilder class >> on: aSpecBuilder [
 	^ self new on: aSpecBuilder; yourself
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StSimpleInspectorBuilder >> initialize [ 
 	super initialize.
 	info := OrderedCollection new
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StSimpleInspectorBuilder >> key: key value: value [
 	info add: key -> value
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StSimpleInspectorBuilder >> on: aSpecBuilder [
 	specBuilder := aSpecBuilder 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StSimpleInspectorBuilder >> table [
 	| keysColumn valuesColumn |
 	keysColumn := SpStringTableColumn title: #key evaluated: [ :anAssociation | anAssociation key ].
diff --git a/src/NewTools-Inspector/package.st b/src/NewTools-Inspector/package.st
index 296f3ad7a..f222e6325 100644
--- a/src/NewTools-Inspector/package.st
+++ b/src/NewTools-Inspector/package.st
@@ -1 +1 @@
-Package { #name : #'NewTools-Inspector' }
+Package { #name : 'NewTools-Inspector' }