From 44ddc8bb0276c2d65640f9389ac3a42fda887502 Mon Sep 17 00:00:00 2001
From: adri09070 <97704417+adri09070@users.noreply.github.com>
Date: Fri, 29 Sep 2023 14:25:14 +0200
Subject: [PATCH 1/3] removing unused shared variable in the debugger

Co-authored-by: Steven Costiou <26929529+StevenCostiou@users.noreply.github.com>
---
 .../ArgumentVariable.extension.st             |   4 +-
 .../CmAbstractCommandsGroup.extension.st      |   4 +-
 .../CmCommandGroup.extension.st               |   4 +-
 .../CmCommandGroupDecorator.extension.st      |   4 +-
 src/NewTools-Debugger/Context.extension.st    |   6 +-
 .../DebugSession.extension.st                 |   8 +-
 src/NewTools-Debugger/Object.extension.st     |   6 +-
 .../SpCodePresenter.extension.st              |   4 +-
 ...geAssertionFailureContextNotFound.class.st |   8 +-
 src/NewTools-Debugger/StDebugger.class.st     | 326 +++++++++---------
 .../StDebuggerActionModel.class.st            | 158 ++++-----
 ...StDebuggerActionModelAnnouncement.class.st |  14 +-
 ...uggerActionModelClearAnnouncement.class.st |   8 +-
 ...onModelContextChangedAnnouncement.class.st |   8 +-
 ...ctionModelMethodAddedAnnouncement.class.st |   8 +-
 ...gerActionModelRestartAnnouncement.class.st |   8 +-
 ...ggerActionModelResumeAnnouncement.class.st |   8 +-
 ...buggerActionModelStepAnnouncement.class.st |   8 +-
 .../StDebuggerAssertionFailureResult.class.st |  16 +-
 .../StDebuggerCodeCommandTreeBuilder.class.st |  24 +-
 .../StDebuggerCommandTreeBuilder.class.st     |  34 +-
 ...erConfigurationCommandTreeBuilder.class.st |  24 +-
 .../StDebuggerContext.class.st                |  44 +--
 ...StDebuggerContextInteractionModel.class.st |  38 +-
 .../StDebuggerContextPredicate.class.st       |  44 +--
 .../StDebuggerErrorContextPredicate.class.st  |  28 +-
 ...DebuggerExtensionActivationToggle.class.st |  14 +-
 ...ensionInspectorNodeBuilderVisitor.class.st |  10 +-
 .../StDebuggerExtensionSettings.class.st      |  12 +-
 .../StDebuggerExtensionVisitor.class.st       |  22 +-
 .../StDebuggerInspector.class.st              |  76 ++--
 .../StDebuggerInspectorModel.class.st         |  20 +-
 .../StDebuggerRawObjectInspector.class.st     |  22 +-
 .../StDebuggerSpecSelector.class.st           |  32 +-
 ...StDebuggerStackCommandTreeBuilder.class.st |  74 ++--
 ...buggerTestFailureContextPredicate.class.st |  18 +-
 ...DebuggerToolbarCommandTreeBuilder.class.st |  46 +--
 .../StDebuggerTreeTablePresenter.class.st     |  20 +-
 .../StFailingAssertionInspector.class.st      |  38 +-
 .../StRawInspectionPresenter.extension.st     |  16 +-
 src/NewTools-Debugger/String.extension.st     |   6 +-
 .../TStDebuggerExtension.trait.st             |  30 +-
 .../TemporaryVariable.extension.st            |   4 +-
 src/NewTools-Debugger/package.st              |   2 +-
 44 files changed, 685 insertions(+), 623 deletions(-)

diff --git a/src/NewTools-Debugger/ArgumentVariable.extension.st b/src/NewTools-Debugger/ArgumentVariable.extension.st
index 2423398fe..e07227899 100644
--- a/src/NewTools-Debugger/ArgumentVariable.extension.st
+++ b/src/NewTools-Debugger/ArgumentVariable.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ArgumentVariable }
+Extension { #name : 'ArgumentVariable' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 ArgumentVariable >> variableTag [
 	^ 'arg'
 ]
diff --git a/src/NewTools-Debugger/CmAbstractCommandsGroup.extension.st b/src/NewTools-Debugger/CmAbstractCommandsGroup.extension.st
index 43ece7df3..ff458a978 100644
--- a/src/NewTools-Debugger/CmAbstractCommandsGroup.extension.st
+++ b/src/NewTools-Debugger/CmAbstractCommandsGroup.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #CmAbstractCommandsGroup }
+Extension { #name : 'CmAbstractCommandsGroup' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 CmAbstractCommandsGroup >> commandOrGroupNamed: aString ifNone: aBlock [
 	self subclassResponsibility 
 ]
diff --git a/src/NewTools-Debugger/CmCommandGroup.extension.st b/src/NewTools-Debugger/CmCommandGroup.extension.st
index b7cb6b0c6..cb8390bc6 100644
--- a/src/NewTools-Debugger/CmCommandGroup.extension.st
+++ b/src/NewTools-Debugger/CmCommandGroup.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #CmCommandGroup }
+Extension { #name : 'CmCommandGroup' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 CmCommandGroup >> commandOrGroupNamed: aString ifNone: aBlock [
 	^ entries
 		detect: [ :commandOrRegister | commandOrRegister name = aString ]
diff --git a/src/NewTools-Debugger/CmCommandGroupDecorator.extension.st b/src/NewTools-Debugger/CmCommandGroupDecorator.extension.st
index d304ff7d0..0e78f1f00 100644
--- a/src/NewTools-Debugger/CmCommandGroupDecorator.extension.st
+++ b/src/NewTools-Debugger/CmCommandGroupDecorator.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #CmCommandGroupDecorator }
+Extension { #name : 'CmCommandGroupDecorator' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 CmCommandGroupDecorator >> commandOrGroupNamed: aString ifNone: aBlock [
 	^ self decoratedGroup commandOrGroupNamed: aString ifNone: aBlock
 ]
diff --git a/src/NewTools-Debugger/Context.extension.st b/src/NewTools-Debugger/Context.extension.st
index a27c0726c..f94b71a4b 100644
--- a/src/NewTools-Debugger/Context.extension.st
+++ b/src/NewTools-Debugger/Context.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #Context }
+Extension { #name : 'Context' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 Context >> findFailedAssertionContextInSenderChain [
 
 	^ (self findContextSuchThat: [ :ctx | 
@@ -9,7 +9,7 @@ Context >> findFailedAssertionContextInSenderChain [
 		  StDebuggeAssertionFailureContextNotFound new signal ]
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 Context >> findFailedAssertionResultsInSenderChain [
 	|assertionContext assertionResult|
 	assertionContext := self findFailedAssertionContextInSenderChain.
diff --git a/src/NewTools-Debugger/DebugSession.extension.st b/src/NewTools-Debugger/DebugSession.extension.st
index bab1242ad..12079682c 100644
--- a/src/NewTools-Debugger/DebugSession.extension.st
+++ b/src/NewTools-Debugger/DebugSession.extension.st
@@ -1,16 +1,16 @@
-Extension { #name : #DebugSession }
+Extension { #name : 'DebugSession' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 DebugSession >> application [
 
 	^ nil
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 DebugSession >> application: anApplication [
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 DebugSession >> spanNewSession [
 
 	^ (self class 
diff --git a/src/NewTools-Debugger/Object.extension.st b/src/NewTools-Debugger/Object.extension.st
index 71a4f2392..054a05e6c 100644
--- a/src/NewTools-Debugger/Object.extension.st
+++ b/src/NewTools-Debugger/Object.extension.st
@@ -1,12 +1,12 @@
-Extension { #name : #Object }
+Extension { #name : 'Object' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 Object >> presentDiffIn: aStFailingAssertionPresenter [
 
 	aStFailingAssertionPresenter initializeObjectDiffPresenters
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 Object >> presentDiffWith: anObject in: aStFailingAssertionPresenter [
 
 	aStFailingAssertionPresenter initializeObjectDiffPresenters
diff --git a/src/NewTools-Debugger/SpCodePresenter.extension.st b/src/NewTools-Debugger/SpCodePresenter.extension.st
index 999e35594..7268c4f28 100644
--- a/src/NewTools-Debugger/SpCodePresenter.extension.st
+++ b/src/NewTools-Debugger/SpCodePresenter.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #SpCodePresenter }
+Extension { #name : 'SpCodePresenter' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 SpCodePresenter >> beForContext: aContext [
 	self interactionModel: (StDebuggerContextInteractionModel on: aContext)
 ]
diff --git a/src/NewTools-Debugger/StDebuggeAssertionFailureContextNotFound.class.st b/src/NewTools-Debugger/StDebuggeAssertionFailureContextNotFound.class.st
index 9513d79de..abfa6e7b6 100644
--- a/src/NewTools-Debugger/StDebuggeAssertionFailureContextNotFound.class.st
+++ b/src/NewTools-Debugger/StDebuggeAssertionFailureContextNotFound.class.st
@@ -2,7 +2,9 @@
 I am raised when a context cannot find in its sender chain an assertion failure context, that is, a context that compared two value, an actual and an expected.
 "
 Class {
-	#name : #StDebuggeAssertionFailureContextNotFound,
-	#superclass : #Exception,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggeAssertionFailureContextNotFound',
+	#superclass : 'Exception',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
diff --git a/src/NewTools-Debugger/StDebugger.class.st b/src/NewTools-Debugger/StDebugger.class.st
index 9c42851f0..c67e4399f 100644
--- a/src/NewTools-Debugger/StDebugger.class.st
+++ b/src/NewTools-Debugger/StDebugger.class.st
@@ -70,8 +70,8 @@ The meta inspection shows methods of the receiver's class hierarchy.
 Methods can be modified and saved in directly in that pane.
 "
 Class {
-	#name : #StDebugger,
-	#superclass : #StPresenter,
+	#name : 'StDebugger',
+	#superclass : 'StPresenter',
 	#traits : 'TDebugger',
 	#classTraits : 'TDebugger classTrait',
 	#instVars : [
@@ -91,20 +91,21 @@ Class {
 	],
 	#classVars : [
 		'EnableStackColoring',
-		'ErrorRecursion',
 		'FastTDD'
 	],
-	#category : #'NewTools-Debugger-View'
+	#category : 'NewTools-Debugger-View',
+	#package : 'NewTools-Debugger',
+	#tag : 'View'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger class >> activatedDebuggerExtensions [
 
 	^ self extensionToolsClasses select: [ :extension |
 		  extension showInDebugger ]
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebugger class >> buildCommandsGroupWith: stDebuggerInstance forRoot: rootCommandGroup [
 
 	StDebuggerStackCommandTreeBuilder
@@ -121,13 +122,13 @@ StDebugger class >> buildCommandsGroupWith: stDebuggerInstance forRoot: rootComm
 		forRoot: rootCommandGroup
 ]
 
-{ #category : #utilities }
+{ #category : 'utilities' }
 StDebugger class >> closeAllDebuggers [
 	<script>
 	StDebugger allInstancesDo: [ :dbg | dbg close ]
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebugger class >> debugSession: aDebugSession [
 
 	| debugger debugActionModel |
@@ -140,48 +141,48 @@ StDebugger class >> debugSession: aDebugSession [
 	^ debugger
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger class >> debuggerContextClass [
 	^ StDebuggerContext
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger class >> defaultDebuggerRank [
 
 	^ 10
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger class >> enableStackColoring [
 
 	^ EnableStackColoring
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger class >> enableStackColoring: anObject [
 
 	EnableStackColoring := anObject
 ]
 
-{ #category : #'tools registry' }
+{ #category : 'tools registry' }
 StDebugger class >> extensionToolsClasses [
 
 	^ TStDebuggerExtension users reject: [ :extensionClass |
 		  extensionClass isOnlyForTests ]
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StDebugger class >> fastTDD [
 	^FastTDD ifNil:[FastTDD := false]
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StDebugger class >> fastTDD: aBoolean [
 
 	FastTDD := aBoolean
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StDebugger class >> fastTDDSettingsOn: aBuilder [
 	<systemsettings>
 	(aBuilder setting: #fastTDD)
@@ -193,27 +194,26 @@ StDebugger class >> fastTDDSettingsOn: aBuilder [
 without requesting information from the user'
 ]
 
-{ #category : #'tools registry' }
+{ #category : 'tools registry' }
 StDebugger class >> hasAnyActivatedExtension: extensionsClasses [
 
 	^ extensionsClasses anySatisfy: [ :toolClass | 
 		  toolClass showInDebugger ]
 ]
 
-{ #category : #'class initialization' }
+{ #category : 'class initialization' }
 StDebugger class >> initialize [ 
-	self flag: 'Error recursion is used only here?'.
-	ErrorRecursion := false.
+
 	EnableStackColoring := true
 ]
 
-{ #category : #opening }
+{ #category : 'opening' }
 StDebugger class >> openOn: aDebugSession withFullView: aBool [
 	
 	^ self openOn: aDebugSession withFullView: aBool andNotification: nil
 ]
 
-{ #category : #opening }
+{ #category : 'opening' }
 StDebugger class >> openOn: aDebugSession withFullView: aBool andNotification: aString [
 	| debugger |
 	debugger := self on: aDebugSession.
@@ -221,19 +221,19 @@ StDebugger class >> openOn: aDebugSession withFullView: aBool andNotification: a
 	^ debugger
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger class >> sessionClass [
 	self flag: 'Should be replaced by Sindarin - should even be removed in that case!'.
 	^ DebugSession
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger class >> spanNewSessionFrom: anotherSession [
 	self flag: 'Where is that used? 2019-06-28'.
 	^ anotherSession spanNewSession
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StDebugger class >> stackColoringSettingOn: aBuilder [
 
 	<systemsettings>
@@ -246,25 +246,25 @@ StDebugger class >> stackColoringSettingOn: aBuilder [
 					'If enable, the debugger will highlight the elements of the stacks that are from the same class and same package as the selected context.'.
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger class >> taskbarIconName [
 
 	^#smallDebug
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger class >> updateBlockFor: aDebugger [
 
 	^ [ aDebugger updateStep ]
 ]
 
-{ #category : #'tools registry' }
+{ #category : 'tools registry' }
 StDebugger class >> usesExtensions [
 
 	^ self hasAnyActivatedExtension: self extensionToolsClasses
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> acceptCodeChanges: newSource forContext: aContext [
 
 	"It is wrong here that I have to use code adapter widget.
@@ -278,7 +278,7 @@ StDebugger >> acceptCodeChanges: newSource forContext: aContext [
 	self clearUnsavedCodeChanges
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> buildContextMenus [
 	| stackGroup codeCommands debuggerCommandGroup |
 	
@@ -302,40 +302,40 @@ StDebugger >> buildContextMenus [
 	stackHeader toolbarActions: (debuggerCommandGroup / StDebuggerConfigurationCommandTreeBuilder groupName).
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> canExecuteCreateMissingClassCommand [
 	^ self debuggerActionModel isInterruptedContextMissingClassException
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> canExecuteCreateMissingMethodCommand [
 	^ self debuggerActionModel isInterruptedContextDoesNotUnderstand
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> canExecuteCreateSubclassResponsibilityCommand [
 	^ self debuggerActionModel isInterruptedContextSubclassResponsibilityException
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> canExecuteDebugCommand [
 	^ self debuggerActionModel isContextSteppable
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> canExecuteRestartCommand [
 
 	^ (self debuggerActionModel isInterruptedContextPostMortem or: [ 
 		   self debuggerActionModel isInterruptedContextDead ]) not
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> canExecuteReturnCommand [
 
 	^ self debuggerActionModel isInterruptedContextDead not
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> clear [
 
 	extensionToolsNotebook pages do: [ :page |
@@ -351,7 +351,7 @@ StDebugger >> clear [
 	self clearDebugSession
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger >> clearCode [
 	
 	self code
@@ -360,26 +360,26 @@ StDebugger >> clearCode [
 		clearContent
 ]
 
-{ #category : #action }
+{ #category : 'action' }
 StDebugger >> clearDebugSession [
 
 	self debuggerActionModel ifNotNil: [ :debugActionModel |
 		debugActionModel clearDebugSession ]
 ]
 
-{ #category : #action }
+{ #category : 'action' }
 StDebugger >> clearDebuggerActionModel [
 	
 	self debuggerActionModel ifNotNil: [ :debugActionModel | debugActionModel clear ]
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> clearUnsavedCodeChanges [
 
 	unsavedCodeChanges := IdentityDictionary new
 ]
 
-{ #category : #opening }
+{ #category : 'opening' }
 StDebugger >> close [
 
 	programmaticallyClosed := true.
@@ -388,13 +388,13 @@ StDebugger >> close [
 			actionModel clearDebugSession ] ]
 ]
 
-{ #category : #'accessing - widgets' }
+{ #category : 'accessing - widgets' }
 StDebugger >> code [
 
 	^ code
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebugger >> codeLayout [
 
 	^ SpBoxLayout newTopToBottom
@@ -403,7 +403,7 @@ StDebugger >> codeLayout [
 		  yourself
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> connectPresenters [
 
 	super connectPresenters.
@@ -412,18 +412,18 @@ StDebugger >> connectPresenters [
 		self updateCodeFromContext ]
 ]
 
-{ #category : #'accessing - context' }
+{ #category : 'accessing - context' }
 StDebugger >> context [
  
 	^ self interruptedContext
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> copyStackToClipboard [
 	self debuggerActionModel copyStackToClipboard
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> createMissingClass [
 
 	| variableNode |
@@ -441,7 +441,7 @@ StDebugger >> createMissingClass [
 		self interruptedContext sender
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> createMissingMethod [
 
 	| msg chosenClass |
@@ -457,7 +457,7 @@ StDebugger >> createMissingMethod [
 	code takeKeyboardFocus 
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> createMissingMethodFor: aMessage in: aClass [
 
 	| method |
@@ -468,7 +468,7 @@ StDebugger >> createMissingMethodFor: aMessage in: aClass [
 	self selectTopContext
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> createSubclassResponsibility [
 
 	| senderContext msg chosenClass |
@@ -484,7 +484,7 @@ StDebugger >> createSubclassResponsibility [
 		forContext: senderContext
 ]
 
-{ #category : #'accessing - context' }
+{ #category : 'accessing - context' }
 StDebugger >> currentContext [
 	"I answer the context on which an action should be executed.
 	This is either the selected context or if nothing is selected the interrupted context."
@@ -494,29 +494,29 @@ StDebugger >> currentContext [
 		  ifNotNil: [ self selectedContext ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger >> debuggerActionModel [
 	^ debuggerActionModel
 ]
 
-{ #category : #subscription }
+{ #category : 'subscription' }
 StDebugger >> debuggerActionModelCleared [
 
 	self unsubscribeFromActionModel.
 	self unsubscribeFromSystemAnnouncer
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger >> debuggerInspectorClass [
 	^ StDebuggerInspector
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger >> debuggerInspectorModelClass [
 	^ StDebuggerInspectorModel
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDebugger >> defaultLayout [
 	^ SpPanedLayout newTopToBottom
 		positionOfSlider: 65 percent;
@@ -525,7 +525,7 @@ StDebugger >> defaultLayout [
 		yourself
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> discardCodeChangesFor: aContext [
 
 	self unsavedCodeChanges removeKey: aContext ifAbsent: [  ].
@@ -533,14 +533,14 @@ StDebugger >> discardCodeChangesFor: aContext [
 	self update
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebugger >> doBrowseClass [
 
 	self systemNavigation browse:
 		(self stackSelectionMethodContext value: self)
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> doBrowseClassReferences [
 
 	| cls |
@@ -550,21 +550,21 @@ StDebugger >> doBrowseClassReferences [
 		ifFalse: [ self systemNavigation browseAllCallsOnClass: cls ]
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebugger >> doBrowseHierarchy [
 
 	self systemNavigation browseHierarchy:
 		(self stackSelectionReceiverClassContext value: self)
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebugger >> doBrowseImplementors [
 
 	self systemNavigation browseAllImplementorsOf:
 		(self stackSelectionMethodSelectorContext value: self)
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebugger >> doBrowseMethodInheritance [
 
 	| cls |
@@ -579,14 +579,14 @@ StDebugger >> doBrowseMethodInheritance [
 		selector: (self stackSelectionMethodSelectorContext value: self)
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebugger >> doBrowseMethodReferences [
 
 	self systemNavigation browseAllSendersOrUsersOf:
 		(self stackSelectionMethodSelectorContext value: self)
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebugger >> doBrowseMethodVersions [
 
 	| target |
@@ -597,32 +597,32 @@ StDebugger >> doBrowseMethodVersions [
 		selector: target selector
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebugger >> doBrowseReceiverClass [
 
 	self systemNavigation browse:
 		(self stackSelectionReceiverClassContext value: self)
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebugger >> doBrowseSenders [
 
 	self systemNavigation browseAllSendersOf:
 		(self stackSelectionMethodSelectorContext value: self)
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger >> environment [
 
 ^ self class environment
 ]
 
-{ #category : #'stack - helpers' }
+{ #category : 'stack - helpers' }
 StDebugger >> exception [
 	^ self debuggerActionModel exception
 ]
 
-{ #category : #stack }
+{ #category : 'stack' }
 StDebugger >> expandStackIfLastItemIsSelected [
 	| selection |
 	selection := stackTable selection.
@@ -632,13 +632,13 @@ StDebugger >> expandStackIfLastItemIsSelected [
 	stackTable selectIndex: selection selectedIndex
 ]
 
-{ #category : #'accessing - widgets' }
+{ #category : 'accessing - widgets' }
 StDebugger >> extensionToolNotebook [
 
 	^ extensionToolsNotebook
 ]
 
-{ #category : #extensions }
+{ #category : 'extensions' }
 StDebugger >> extensionToolUpdateBlock [
 
 	^ [ :newPages |
@@ -647,23 +647,23 @@ StDebugger >> extensionToolUpdateBlock [
 		  <= s2 presenterProvider value displayOrder ] ]
 ]
 
-{ #category : #extensions }
+{ #category : 'extensions' }
 StDebugger >> extensionTools [
 	^ extensionTools ifNil: [ extensionTools := OrderedCollection new ]
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> fileOutSelectedContext [
 	self debuggerActionModel
 		fileOutMethod: stackTable selection selectedItem method
 ]
 
-{ #category : #stack }
+{ #category : 'stack' }
 StDebugger >> filterStack: aStack [
 	^self debuggerActionModel filterStack: aStack
 ]
 
-{ #category : #stack }
+{ #category : 'stack' }
 StDebugger >> findFirstRelevantStackIndexIn: aStack [
 	| counter |
 	counter := 1.
@@ -673,7 +673,7 @@ StDebugger >> findFirstRelevantStackIndexIn: aStack [
 	^ 1
 ]
 
-{ #category : #'updating - session' }
+{ #category : 'updating - session' }
 StDebugger >> forceSessionUpdate [
 
 	self
@@ -681,7 +681,7 @@ StDebugger >> forceSessionUpdate [
 		updateExtensionsFrom: self session
 ]
 
-{ #category : #api }
+{ #category : 'api' }
 StDebugger >> initialExtent [ 
 	
 	^ [ | w h |
@@ -692,7 +692,7 @@ StDebugger >> initialExtent [
 		do: [ 850@650 ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> initialize [
 
 	super initialize.
@@ -703,14 +703,14 @@ StDebugger >> initialize [
 	programmaticallyClosed := false.
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> initializeBreakpointInspector [
 	breakpointInspector := self
 		instantiate: StDebuggerBreakpointInspection
 		on: (StInspectorModel on: nil).
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> initializeCode [
 
 	code := self newCode.
@@ -719,7 +719,7 @@ StDebugger >> initializeCode [
 	code whenResetDo: [ self discardCodeChangesFor: self selectedContext ]
 ]
 
-{ #category : #extensions }
+{ #category : 'extensions' }
 StDebugger >> initializeExtensionTools [
 
 	| sortedToolClasses pages |
@@ -739,7 +739,7 @@ StDebugger >> initializeExtensionTools [
 	extensionToolsNotebook pages: pages
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> initializeInspector [
 
 	inspector := self
@@ -748,7 +748,7 @@ StDebugger >> initializeInspector [
 	inspector label: 'Receiver'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> initializePresenters [
 
 	self initializeStack.
@@ -761,7 +761,7 @@ StDebugger >> initializePresenters [
 	self layout: self defaultLayout
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> initializeShortcuts: aWindowPresenter [
 
 	self flag: #DBG_TempSolvesSpecBug_RemoveWhenFixed.
@@ -785,7 +785,7 @@ StDebugger >> initializeShortcuts: aWindowPresenter [
 		toAction: [ self restartCurrentContext ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> initializeStack [
 
 	stackTable := self newTable.
@@ -830,7 +830,7 @@ StDebugger >> initializeStack [
 	stackHeader label: 'Stack'
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> initializeToolbar [
 
 	toolbar := self newToolbar.
@@ -838,7 +838,7 @@ StDebugger >> initializeToolbar [
 	toolbar displayMode: self application toolbarDisplayMode
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> initializeWindow: aWindowPresenter [
 
 	super initializeWindow: aWindowPresenter.
@@ -850,7 +850,7 @@ StDebugger >> initializeWindow: aWindowPresenter [
 	self initializeShortcuts: aWindowPresenter
 ]
 
-{ #category : #extensions }
+{ #category : 'extensions' }
 StDebugger >> instantiateExtensionToolsPage: aToolClass [
 	| toolInstance |
 	toolInstance := self instantiate: aToolClass on: self.
@@ -861,33 +861,33 @@ StDebugger >> instantiateExtensionToolsPage: aToolClass [
 		provider: [ toolInstance ]
 ]
 
-{ #category : #'accessing - context' }
+{ #category : 'accessing - context' }
 StDebugger >> interruptedContext [
 
 	^ self debuggerActionModel interruptedContext
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger >> interruptedProcess [
 
 	^ self debuggerActionModel  interruptedProcess
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebugger >> isInSelectedContextClass: context [
 	"Return true if the given context is in the same class than the currently selected context of the stack."
 
 	^ self selectedContext methodClass = context methodClass
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebugger >> isInSelectedContextPackage: context [
 	"Return true if the given context is in the same package than the currently selected context of the stack."
 
 	^ self selectedContext method package = context method package
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> keybindsForFromContextMenu: aGroupElement [
 	| keybinds keybindsCommands |
 	keybinds := KMCategory new.
@@ -904,7 +904,7 @@ StDebugger >> keybindsForFromContextMenu: aGroupElement [
 	^ keybinds
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebugger >> newDebuggerContext [
 
 	^ self class debuggerContextClass new
@@ -913,7 +913,7 @@ StDebugger >> newDebuggerContext [
 		  yourself
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebugger >> newDebuggerContextFor: aContext [
 
 	^ self newDebuggerContext
@@ -922,13 +922,13 @@ StDebugger >> newDebuggerContextFor: aContext [
 		  yourself
 ]
 
-{ #category : #'accessing - context' }
+{ #category : 'accessing - context' }
 StDebugger >> newTitle [
 
 	^ self debuggerActionModel statusStringForContext
 ]
 
-{ #category : #api }
+{ #category : 'api' }
 StDebugger >> okToChange [
 
 	self code canDiscardEdits
@@ -937,7 +937,7 @@ StDebugger >> okToChange [
 	^ self code canDiscardEdits
 ]
 
-{ #category : #opening }
+{ #category : 'opening' }
 StDebugger >> openWithFullView [
 
 	"Create and schedule a full debugger with the given label. Do not
@@ -946,13 +946,13 @@ StDebugger >> openWithFullView [
 	self open
 ]
 
-{ #category : #opening }
+{ #category : 'opening' }
 StDebugger >> openWithNotification: notificationString [
 
 	self openWithFullView
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> peelToFirstLike: aContext [
 
 	self debuggerActionModel peelToFirstLike: aContext.
@@ -960,7 +960,7 @@ StDebugger >> peelToFirstLike: aContext [
 	self code text: self currentContext sourceCode
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StDebugger >> printReceiverClassInContext: aContext [
 
 	| receiverClass methodClass |
@@ -976,7 +976,7 @@ StDebugger >> printReceiverClassInContext: aContext [
 		  contents
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> proceedDebugSession [
 
 	self unsubscribeFromActionModel .
@@ -984,7 +984,7 @@ StDebugger >> proceedDebugSession [
 	self close
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StDebugger >> protocolSuggestionsFor: aClass [
 
 	| classProtocols reject allExistingProtocols interestingProtocols |
@@ -995,13 +995,13 @@ StDebugger >> protocolSuggestionsFor: aClass [
 	^ interestingProtocols reject: [ :e | reject includes: e ]
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> recompileMethodTo: aString inContext: aContext notifying: aNotifyer [
 
 	^ self debuggerActionModel recompileMethodTo: aString inContext: aContext notifying: aNotifyer.
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> recordUnsavedCodeChanges [
 
 	|codeInteractionModel codeText|
@@ -1012,12 +1012,12 @@ StDebugger >> recordUnsavedCodeChanges [
 	self unsavedCodeChanges at: codeInteractionModel context put: codeText
 ]
 
-{ #category : #extensions }
+{ #category : 'extensions' }
 StDebugger >> registerExtensionTool: anExtension [
 	self extensionTools add: anExtension
 ]
 
-{ #category : #'ui requests' }
+{ #category : 'ui requests' }
 StDebugger >> requestClassFrom: aClass [
 
 	^ self requestClassFrom: aClass to: ProtoObject
@@ -1025,7 +1025,7 @@ StDebugger >> requestClassFrom: aClass [
 	
 ]
 
-{ #category : #'ui requests' }
+{ #category : 'ui requests' }
 StDebugger >> requestClassFrom: aClass to: aSuperclass [
 
 	self class fastTDD ifTrue: [ ^ aClass ].
@@ -1034,7 +1034,7 @@ StDebugger >> requestClassFrom: aClass to: aSuperclass [
 	
 ]
 
-{ #category : #'ui requests' }
+{ #category : 'ui requests' }
 StDebugger >> requestProtocolIn: aClass [
 
 	| entryCompletion applicants choice |
@@ -1057,7 +1057,7 @@ StDebugger >> requestProtocolIn: aClass [
 	^ choice ifEmpty: [ Protocol unclassified ]
 ]
 
-{ #category : #'ui requests' }
+{ #category : 'ui requests' }
 StDebugger >> requestSuperclassOf: aClass to: aSuperclass [
 
 	| classes |
@@ -1073,7 +1073,7 @@ StDebugger >> requestSuperclassOf: aClass to: aSuperclass [
 		   openModal) ifNil: [ Abort signal ]
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> restartCurrentContext [
 
 	self debuggerActionModel restartContext: self currentContext.
@@ -1082,7 +1082,7 @@ StDebugger >> restartCurrentContext [
 	self updateCodeFromContext
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> returnEnteredValue [
 	| expression |
 	self flag: #DBG_HowToTestNilIfUserCancels.
@@ -1095,14 +1095,14 @@ StDebugger >> returnEnteredValue [
 		fromContext: self currentContext
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> runToSelection [
 	self debuggerActionModel
 		runToSelection: self code selectionInterval
 		inContext: self currentContext
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> selectNextExecutedExpression [
 
 	| sourceNodeExecuted |
@@ -1111,29 +1111,29 @@ StDebugger >> selectNextExecutedExpression [
 		(sourceNodeExecuted start to: sourceNodeExecuted stop)
 ]
 
-{ #category : #stack }
+{ #category : 'stack' }
 StDebugger >> selectTopContext [
 	stackTable selectIndex: 1
 ]
 
-{ #category : #'updating - actions' }
+{ #category : 'updating - actions' }
 StDebugger >> selectedCodeRangeForContext: aContext [
 
 	^ self debuggerActionModel selectedCodeRangeForContext: aContext
 ]
 
-{ #category : #'accessing - context' }
+{ #category : 'accessing - context' }
 StDebugger >> selectedContext [
 
 	^ self stackTable selection selectedItem
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger >> session [
 	^ self debuggerActionModel session
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger >> session: aSession [
 
 	debuggerActionModel
@@ -1143,13 +1143,13 @@ StDebugger >> session: aSession [
 		ifNotNil: [ debuggerActionModel session: aSession ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> setModelBeforeInitialization: aSession [
 
 	self session: aSession
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> setStackAndCodeContainer [
 
 	stackAndCodeContainer := self class usesExtensions
@@ -1158,19 +1158,19 @@ StDebugger >> setStackAndCodeContainer [
 		                         ifFalse: [ self stackAndCodeLayout ]
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> showFullStack [
 	stackTable items: (self filterStack: self stack)
 
 ]
 
-{ #category : #'accessing - variables' }
+{ #category : 'accessing - variables' }
 StDebugger >> stack [
 	^ self debuggerActionModel stack 
 
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebugger >> stackAndCodeLayout [
 
 	^ SpPanedLayout newTopToBottom
@@ -1180,7 +1180,7 @@ StDebugger >> stackAndCodeLayout [
 		yourself
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebugger >> stackAndCodeWithExtensionsLayout [
 
 	^ (SpPanedLayout newLeftToRight
@@ -1190,7 +1190,7 @@ StDebugger >> stackAndCodeWithExtensionsLayout [
 			yourself)
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebugger >> stackColorForContext: context [
 	"I return the color the text should have in the stack by comparing the context in parameter to the selected context.
 	
@@ -1208,14 +1208,14 @@ StDebugger >> stackColorForContext: context [
 				  ifFalse: [ self theme textColor ] ]
 ]
 
-{ #category : #stack }
+{ #category : 'stack' }
 StDebugger >> stackIconForContext: context [
 
 	self unsavedCodeChanges at: context ifAbsent: [ ^ nil ].
 	^ self iconNamed: #overlayDirty
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebugger >> stackLayout [
 	^ SpBoxLayout newTopToBottom
 		add: #stackHeader
@@ -1226,58 +1226,58 @@ StDebugger >> stackLayout [
 		yourself
 ]
 
-{ #category : #'stack - helpers' }
+{ #category : 'stack - helpers' }
 StDebugger >> stackOfSize: anInteger [
 
 	^ self debuggerActionModel stackOfSize: anInteger
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> stackSelectionMethodContext [
 
 	^ [ :dbg | stackTable selection selectedItem homeMethod ]
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> stackSelectionMethodSelectorContext [
 
 	^ [ :dbg | stackTable selection selectedItem method selector ]
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> stackSelectionReceiverClassContext [
 
 	^ [ :dbg | stackTable selection selectedItem receiver class ]
 ]
 
-{ #category : #'commands - support' }
+{ #category : 'commands - support' }
 StDebugger >> stackSelectionReceiverContext [
 
 	^ [ :dbg | stackTable selection selectedItem receiver ]
 ]
 
-{ #category : #'accessing - widgets' }
+{ #category : 'accessing - widgets' }
 StDebugger >> stackTable [
 
 	^ stackTable
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> stepInto [
 	self debuggerActionModel stepInto: self currentContext
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> stepOver [
 	self debuggerActionModel stepOver: self currentContext
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebugger >> stepThrough [
 	self debuggerActionModel stepThrough: self currentContext
 ]
 
-{ #category : #subscription }
+{ #category : 'subscription' }
 StDebugger >> subscribeToActionModel [
 
 	self debuggerActionModel
@@ -1301,7 +1301,7 @@ StDebugger >> subscribeToActionModel [
 		to: self
 ]
 
-{ #category : #'system subscriptions' }
+{ #category : 'system subscriptions' }
 StDebugger >> susbcribeToExtensionToggleAnnouncement [
 
 	SystemAnnouncer uniqueInstance weak
@@ -1310,50 +1310,50 @@ StDebugger >> susbcribeToExtensionToggleAnnouncement [
 		to: self
 ]
 
-{ #category : #'accessing - widgets' }
+{ #category : 'accessing - widgets' }
 StDebugger >> toolbar [
 
 	^ toolbar
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> unsavedCodeChanges [
 
 	^ unsavedCodeChanges ifNil: [ 
 		  unsavedCodeChanges := IdentityDictionary new ]
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> unsavedCodeChangesFor: aContext [ 
 	^self unsavedCodeChanges at: aContext
 ]
 
-{ #category : #'events - removing' }
+{ #category : 'events - removing' }
 StDebugger >> unsubscribeFromActionModel [
 
 	self debuggerActionModel ifNotNil: [ :actionModel |
 		actionModel unsubscribe: self ]
 ]
 
-{ #category : #'system subscription' }
+{ #category : 'system subscription' }
 StDebugger >> unsubscribeFromSystemAnnouncer [
 
 	SystemAnnouncer uniqueInstance unsubscribe: self
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger >> updateAfterMethodAdded [
 
 	self updateToolbar
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger >> updateCodeFromContext [
 
 	self updateCodeFromContext: self currentContext
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> updateCodeFromContext: aContext [
 
 	| selectionInterval formerCodeInteractionModel |
@@ -1376,7 +1376,7 @@ StDebugger >> updateCodeFromContext: aContext [
 		forInterval: selectionInterval
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger >> updateCodeTextSegmentDecoratorsIn: aContext forInterval: selectionInterval [
 	
 	self code removeAllTextSegmentDecorations.
@@ -1399,7 +1399,7 @@ StDebugger >> updateCodeTextSegmentDecoratorsIn: aContext forInterval: selection
 		title: 'Click me!';"
 ]
 
-{ #category : #'updating - actions' }
+{ #category : 'updating - actions' }
 StDebugger >> updateContextChanged [
 	"A context has changed when a method has been recompiled. If a method has been recompiled with additional instance variables and/or temporary variables, the inspector needs to be updated"
 
@@ -1409,12 +1409,12 @@ StDebugger >> updateContextChanged [
 	self updateStep
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger >> updateExtensionsFrom: newSession [
 	self extensionTools do:[:tool| tool updatePresenter]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> updateExtensionsFromAnnouncement: aStDebuggerToggleAnnouncement [
 
 	| extensionToggled |
@@ -1450,7 +1450,7 @@ StDebugger >> updateExtensionsFromAnnouncement: aStDebuggerToggleAnnouncement [
 	self layout: self defaultLayout
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger >> updateInspectorFromContext: aContext [
 
 	inspector
@@ -1462,31 +1462,31 @@ StDebugger >> updateInspectorFromContext: aContext [
 	inspector getRawInspectorPresenterOrNil ifNotNil: [ :p | p update ]
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger >> updatePredicatesForContext: aContext [
 
 	self debuggerActionModel updateContextPredicate
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebugger >> updatePresenter [
 
 	self updateStackFromSession: self session.
 	self buildContextMenus
 ]
 
-{ #category : #'updating - actions' }
+{ #category : 'updating - actions' }
 StDebugger >> updateRestart [
 
 	self updateStep
 ]
 
-{ #category : #'updating - actions' }
+{ #category : 'updating - actions' }
 StDebugger >> updateResume [
 
 ]
 
-{ #category : #'presenter - code' }
+{ #category : 'presenter - code' }
 StDebugger >> updateSourceCodeFor: aContext [
 
 	| codeText |
@@ -1496,7 +1496,7 @@ StDebugger >> updateSourceCodeFor: aContext [
 	self code text: codeText
 ]
 
-{ #category : #stack }
+{ #category : 'stack' }
 StDebugger >> updateStackFromSession: aSession [
 	| stack |
 	stack := self filterStack: aSession stack.
@@ -1506,7 +1506,7 @@ StDebugger >> updateStackFromSession: aSession [
 		scrollToSelection: true
 ]
 
-{ #category : #'updating - actions' }
+{ #category : 'updating - actions' }
 StDebugger >> updateStep [
   | previousASTScope previousContext currentASTScope currentContext |
 	
@@ -1528,7 +1528,7 @@ StDebugger >> updateStep [
 		p update ]
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger >> updateToolbar [
 	
 	toolbarCommandGroup ifNil: [ ^ self ].
@@ -1536,13 +1536,13 @@ StDebugger >> updateToolbar [
 		spCommand updateEnableStatus ]
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebugger >> updateWindowTitle [
 
 	self withWindowDo: [ :window | window title: self newTitle ].
 ]
 
-{ #category : #'ui requests' }
+{ #category : 'ui requests' }
 StDebugger >> warning: aString for: aPresenter [
 
 	self newPopover
diff --git a/src/NewTools-Debugger/StDebuggerActionModel.class.st b/src/NewTools-Debugger/StDebuggerActionModel.class.st
index 3d854fa78..5b500268e 100644
--- a/src/NewTools-Debugger/StDebuggerActionModel.class.st
+++ b/src/NewTools-Debugger/StDebuggerActionModel.class.st
@@ -2,8 +2,8 @@
 I implement debug actions exposed by debuggers, and performed on the current debug session.
 "
 Class {
-	#name : #StDebuggerActionModel,
-	#superclass : #Object,
+	#name : 'StDebuggerActionModel',
+	#superclass : 'Object',
 	#instVars : [
 		'session',
 		'contextPredicate',
@@ -16,10 +16,12 @@ Class {
 	#classVars : [
 		'ShouldFilterStack'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerActionModel class >> on: aDebugSession [
 
 	^ self basicNew
@@ -27,17 +29,17 @@ StDebuggerActionModel class >> on: aDebugSession [
 		  initialize
 ]
 
-{ #category : #asserting }
+{ #category : 'asserting' }
 StDebuggerActionModel class >> shouldFilterStack [
 	^ShouldFilterStack ifNil:[ShouldFilterStack := true]
 ]
 
-{ #category : #asserting }
+{ #category : 'asserting' }
 StDebuggerActionModel class >> shouldFilterStack: aBoolean [
 	ShouldFilterStack := aBoolean
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StDebuggerActionModel class >> shouldFilterStackSettingsOn: aBuilder [
 	<systemsettings>
 	(aBuilder setting: #shouldFilterStack)
@@ -48,13 +50,13 @@ StDebuggerActionModel class >> shouldFilterStackSettingsOn: aBuilder [
 		description: 'Defines if methods with pragma #debuggerCompleteToSender are filtered (hidden) in the debugger stack'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> announcer [
 
 	^ announcer ifNil: [ announcer := Announcer new ]
 ]
 
-{ #category : #'debug - session' }
+{ #category : 'debug - session' }
 StDebuggerActionModel >> autoClassifyMessage: aMessage inClass: aClass [
 
 	| method |
@@ -62,7 +64,7 @@ StDebuggerActionModel >> autoClassifyMessage: aMessage inClass: aClass [
 	method isClassified ifFalse: [ MethodClassifier classify: method ]
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebuggerActionModel >> clear [
 
 	self unsubscribeFromSystemAnnouncer.
@@ -72,7 +74,7 @@ StDebuggerActionModel >> clear [
 	announcer := nil
 ]
 
-{ #category : #'debug - execution' }
+{ #category : 'debug - execution' }
 StDebuggerActionModel >> clearDebugSession [
 
 	contextPredicate := nil.
@@ -81,7 +83,7 @@ StDebuggerActionModel >> clearDebugSession [
 		clear
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> computeInitialTopContext [
 
 	topContext := session exception signalContext.
@@ -92,7 +94,7 @@ StDebuggerActionModel >> computeInitialTopContext [
 		topContext := self interruptedContext ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> contextPredicate [
 
 	^ contextPredicate ifNil: [ 
@@ -100,7 +102,7 @@ StDebuggerActionModel >> contextPredicate [
 			                      self topContext ]
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> contextPredicateFor: aContext [
 
 	| postMortem ex |
@@ -116,7 +118,7 @@ StDebuggerActionModel >> contextPredicateFor: aContext [
 	^ self predicateFor: aContext exception: ex postMortem: postMortem
 ]
 
-{ #category : #'debug - predicates' }
+{ #category : 'debug - predicates' }
 StDebuggerActionModel >> contextSignalsAnException: aContext [
 
 	^ aContext notNil 
@@ -124,7 +126,7 @@ StDebuggerActionModel >> contextSignalsAnException: aContext [
 		and: [  aContext selector = #signal ] ]
 ]
 
-{ #category : #'debug - stack' }
+{ #category : 'debug - stack' }
 StDebuggerActionModel >> copyStackToClipboard [
 	Clipboard
 		clipboardText:
@@ -132,22 +134,22 @@ StDebuggerActionModel >> copyStackToClipboard [
 				streamContents: [ :s | self interruptedContext printDebugStackOn: s ])
 ]
 
-{ #category : #'stack - helpers' }
+{ #category : 'stack - helpers' }
 StDebuggerActionModel >> exception [
 	^ self session exception
 ]
 
-{ #category : #'debug - stack' }
+{ #category : 'debug - stack' }
 StDebuggerActionModel >> fileOutMethod: aMethod [
 	aMethod methodClass fileOutMethod: aMethod selector
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> filterStack [
 	^ filterStack
 ]
 
-{ #category : #'debug - stack' }
+{ #category : 'debug - stack' }
 StDebuggerActionModel >> filterStack: aStack [
 	| context contextsToReject |	
 	self shouldFilterStack ifFalse: [  ^aStack ].
@@ -169,7 +171,7 @@ StDebuggerActionModel >> filterStack: aStack [
 	^ aStack
 ]
 
-{ #category : #'debug - session' }
+{ #category : 'debug - session' }
 StDebuggerActionModel >> implement: aMessage inClass: aClass forContext: aContext [
 
 	| method |
@@ -182,7 +184,7 @@ StDebuggerActionModel >> implement: aMessage inClass: aClass forContext: aContex
 	^ method
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerActionModel >> initialize [
 	super initialize.
 	self computeInitialTopContext.
@@ -192,23 +194,23 @@ StDebuggerActionModel >> initialize [
 	preventUpdate := false
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> interruptedContext [
 	^self session interruptedContext
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> interruptedProcess [
 	^ self session interruptedProcess
 ]
 
-{ #category : #'debug - predicates' }
+{ #category : 'debug - predicates' }
 StDebuggerActionModel >> isContextAnAssertionFailure [
 
 	^ self contextPredicate isContextAnAssertionFailure
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> isContextPostMortem: aContext [
 
 	aContext == topContext ifFalse: [ 
@@ -219,59 +221,59 @@ StDebuggerActionModel >> isContextPostMortem: aContext [
 	^ self session isContextPostMortem: self interruptedContext
 ]
 
-{ #category : #'debug - predicates' }
+{ #category : 'debug - predicates' }
 StDebuggerActionModel >> isContextSteppable [
 
 	self interruptedContext ifNil: [ ^ false ].
 	^ self contextPredicate isSteppable
 ]
 
-{ #category : #'debug - predicates' }
+{ #category : 'debug - predicates' }
 StDebuggerActionModel >> isInterruptedContextAnAssertEqualsFailure [
 
 	^ self contextPredicate isContextAnAssertionFailure
 ]
 
-{ #category : #'debug - predicates' }
+{ #category : 'debug - predicates' }
 StDebuggerActionModel >> isInterruptedContextDead [
 	^ self contextPredicate isContextDead
 ]
 
-{ #category : #'debug - predicates' }
+{ #category : 'debug - predicates' }
 StDebuggerActionModel >> isInterruptedContextDoesNotUnderstand [
 	^self contextPredicate isContextDoesNotUnderstand
 
 ]
 
-{ #category : #'debug - predicates' }
+{ #category : 'debug - predicates' }
 StDebuggerActionModel >> isInterruptedContextMissingClassException [
 
 	^ self contextPredicate isContextMissingClassException
 ]
 
-{ #category : #'debug - predicates' }
+{ #category : 'debug - predicates' }
 StDebuggerActionModel >> isInterruptedContextPostMortem [
 	^ self contextPredicate isContextPostMortem
 ]
 
-{ #category : #'debug - predicates' }
+{ #category : 'debug - predicates' }
 StDebuggerActionModel >> isInterruptedContextSubclassResponsibilityException [
 	^ self contextPredicate isContextSubclassResponsibilityException
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerActionModel >> newStepAnnouncement [
 
 	^ (StDebuggerActionModelStepAnnouncement debuggerActionModel: self)
 ]
 
-{ #category : #'debug - execution' }
+{ #category : 'debug - execution' }
 StDebuggerActionModel >> peelToFirstLike: aContext [
 	self session peelToFirstLike: aContext.
 	self updateTopContext
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> predicateFor: aContext exception: exception postMortem: isContextPostMortem [
 
 	^ (StDebuggerErrorContextPredicate context: aContext)
@@ -280,7 +282,7 @@ StDebuggerActionModel >> predicateFor: aContext exception: exception postMortem:
 		  yourself
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> predicateFor: aContext failure: testFailure postMortem: isContextPostMortem [
 
 	^ (StDebuggerTestFailureContextPredicate context: aContext)
@@ -289,7 +291,7 @@ StDebuggerActionModel >> predicateFor: aContext failure: testFailure postMortem:
 		  yourself
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> predicateFor: aContext postMortem: isContextPostMortem [
 
 	^ (StDebuggerContextPredicate context: aContext)
@@ -297,7 +299,7 @@ StDebuggerActionModel >> predicateFor: aContext postMortem: isContextPostMortem
 		  yourself
 ]
 
-{ #category : #updating }
+{ #category : 'updating' }
 StDebuggerActionModel >> preventUpdatesDuring: aBlock [
 
 	"Sets the prevent update flag during the execution of a block. Restores its value after the block 	finishes"
@@ -310,13 +312,13 @@ StDebuggerActionModel >> preventUpdatesDuring: aBlock [
 	self update ] ensure: [ preventUpdate := oldEventFlag ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> previousASTScope [
 
 	^ previousASTScope
 ]
 
-{ #category : #'debug - execution' }
+{ #category : 'debug - execution' }
 StDebuggerActionModel >> proceedDebugSession [
 
 	contextPredicate := nil.
@@ -325,13 +327,13 @@ StDebuggerActionModel >> proceedDebugSession [
 		clear
 ]
 
-{ #category : #'events-triggering' }
+{ #category : 'events-triggering' }
 StDebuggerActionModel >> raiseUpdateEvents: anAnnouncement [
 
 	self announcer announce: anAnnouncement
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebuggerActionModel >> recompileMethodTo: aString inContext: aContext notifying: aNotifyer [
 
 	| methodContext homePC |
@@ -349,7 +351,7 @@ StDebuggerActionModel >> recompileMethodTo: aString inContext: aContext notifyin
 		                     homePC) scope
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> referenceContext [
 	"The reference context is the context that we wish to see in the debugger's stack.
 	It it either the interrupted context if we are in a non-exception case,
@@ -358,7 +360,7 @@ StDebuggerActionModel >> referenceContext [
 	^topContext receiver signalerContext 
 ]
 
-{ #category : #'events - handling' }
+{ #category : 'events - handling' }
 StDebuggerActionModel >> registerActionsForSession: aSession [
 
 	self flag: 'Rewrite it'.
@@ -373,7 +375,7 @@ StDebuggerActionModel >> registerActionsForSession: aSession [
 			when: #clear send: #clear to: self ]
 ]
 
-{ #category : #'events - removing' }
+{ #category : 'events - removing' }
 StDebuggerActionModel >> removeActionsForSession: aSession [
 	self flag: 'Rewrite it'.
 	aSession
@@ -386,7 +388,7 @@ StDebuggerActionModel >> removeActionsForSession: aSession [
 				removeActionsForEvent: #contextChanged ]
 ]
 
-{ #category : #'debug - execution' }
+{ #category : 'debug - execution' }
 StDebuggerActionModel >> restartContext: aContext [
 
 	previousASTScope := (aContext compiledCode sourceNodeForPC:
@@ -395,7 +397,7 @@ StDebuggerActionModel >> restartContext: aContext [
 	self updateTopContext
 ]
 
-{ #category : #'debug - execution' }
+{ #category : 'debug - execution' }
 StDebuggerActionModel >> returnValueFromExpression: aString fromContext: aContext [
 	| value |
 	value := session class compiler
@@ -406,23 +408,23 @@ StDebuggerActionModel >> returnValueFromExpression: aString fromContext: aContex
 	self updateTopContext
 ]
 
-{ #category : #'debug - execution' }
+{ #category : 'debug - execution' }
 StDebuggerActionModel >> runToSelection: aSelectionInterval inContext: aContext [
 	self session runToSelection: aSelectionInterval inContext: aContext.
 	self updateTopContext
 ]
 
-{ #category : #actions }
+{ #category : 'actions' }
 StDebuggerActionModel >> selectedCodeRangeForContext: aContext [ 
 	^ self session selectedCodeRangeForContext: aContext
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> session [
 	^session
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> session: aDebugSession [
 	session ifNotNil: [ self removeActionsForSession: session ].
 	session := aDebugSession.
@@ -433,29 +435,29 @@ StDebuggerActionModel >> session: aDebugSession [
 	self updateIfAble
 ]
 
-{ #category : #'debug - stack' }
+{ #category : 'debug - stack' }
 StDebuggerActionModel >> shouldFilterStack [
 
 	^ self filterStack and: [ self class shouldFilterStack ]
 ]
 
-{ #category : #'accessing - variables' }
+{ #category : 'accessing - variables' }
 StDebuggerActionModel >> stack [
 	^ self session stack
 ]
 
-{ #category : #'stack - helpers' }
+{ #category : 'stack - helpers' }
 StDebuggerActionModel >> stackOfSize: anInteger [ 
 	^ self session stackOfSize: anInteger
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> statusStringForContext [
 
 	^ self contextPredicate printDescription
 ]
 
-{ #category : #'debug - stepping' }
+{ #category : 'debug - stepping' }
 StDebuggerActionModel >> stepInto: aContext [
 
 	previousASTScope := aContext sourceNodeExecuted scope.
@@ -466,7 +468,7 @@ StDebuggerActionModel >> stepInto: aContext [
 	self updateTopContext
 ]
 
-{ #category : #'debug - stepping' }
+{ #category : 'debug - stepping' }
 StDebuggerActionModel >> stepOver: aContext [
 
 	previousASTScope := aContext sourceNodeExecuted scope.
@@ -478,7 +480,7 @@ StDebuggerActionModel >> stepOver: aContext [
 	self updateTopContext
 ]
 
-{ #category : #'debug - stepping' }
+{ #category : 'debug - stepping' }
 StDebuggerActionModel >> stepThrough: aContext [
 
 	previousASTScope := aContext sourceNodeExecuted scope.
@@ -486,7 +488,7 @@ StDebuggerActionModel >> stepThrough: aContext [
 	self updateTopContext
 ]
 
-{ #category : #'system subscription' }
+{ #category : 'system subscription' }
 StDebuggerActionModel >> subscribeToMethodAddedAnnouncement [
 
 	SystemAnnouncer uniqueInstance weak
@@ -495,31 +497,31 @@ StDebuggerActionModel >> subscribeToMethodAddedAnnouncement [
 		to: self
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> topContext [
 	^ topContext
 ]
 
-{ #category : #removing }
+{ #category : 'removing' }
 StDebuggerActionModel >> unsubscribe: anEventListener [
 
 	self announcer unsubscribe: anEventListener
 ]
 
-{ #category : #'system subscription' }
+{ #category : 'system subscription' }
 StDebuggerActionModel >> unsubscribeFromSystemAnnouncer [
 
 	SystemAnnouncer uniqueInstance unsubscribe: self
 ]
 
-{ #category : #updating }
+{ #category : 'updating' }
 StDebuggerActionModel >> update [
 
 	self update:
 		(StDebuggerActionModelStepAnnouncement debuggerActionModel: self)
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> update: anAnnouncement [
 
 	self updateTopContext.
@@ -529,7 +531,7 @@ StDebuggerActionModel >> update: anAnnouncement [
 	self raiseUpdateEvents: anAnnouncement
 ]
 
-{ #category : #'updating - widgets' }
+{ #category : 'updating - widgets' }
 StDebuggerActionModel >> updateAfterMethodAdded [
 
 	self updateContextPredicate.
@@ -538,7 +540,7 @@ StDebuggerActionModel >> updateAfterMethodAdded [
 			 self)
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerActionModel >> updateContextChanged [
 
 	self updateIfAble:
@@ -546,44 +548,44 @@ StDebuggerActionModel >> updateContextChanged [
 			 debuggerActionModel: self)
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> updateContextPredicate [
 	^self updateContextPredicateFor: self topContext
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> updateContextPredicateFor: aContext [    
 	contextPredicate := self contextPredicateFor: aContext.
 	^contextPredicate
 ]
 
-{ #category : #'debug - session' }
+{ #category : 'debug - session' }
 StDebuggerActionModel >> updateDebugSession [
 	self contextPredicate updateSessionForModel: self 
 		
 ]
 
-{ #category : #'debug - session' }
+{ #category : 'debug - session' }
 StDebuggerActionModel >> updateDebugSessionException: e [
 
 	self session exception: e
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> updateIfAble [
 
 	self updateIfAble:
 		(StDebuggerActionModelStepAnnouncement debuggerActionModel: self)
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModel >> updateIfAble: anAnnouncement [
 
 	preventUpdate ifNil: [ ^ self ].
 	preventUpdate ifFalse: [ self update: anAnnouncement ]
 ]
 
-{ #category : #announcement }
+{ #category : 'announcement' }
 StDebuggerActionModel >> updateRestart [
 
 	self updateIfAble:
@@ -591,27 +593,27 @@ StDebuggerActionModel >> updateRestart [
 			   self)
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerActionModel >> updateResume [
 
 	self updateIfAble:
 		(StDebuggerActionModelResumeAnnouncement debuggerActionModel: self)
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerActionModel >> updateStep [
 
 	self updateIfAble:
 		(StDebuggerActionModelStepAnnouncement debuggerActionModel: self)
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StDebuggerActionModel >> updateTopContext [
 
 	topContext := self interruptedContext
 ]
 
-{ #category : #announcer }
+{ #category : 'announcer' }
 StDebuggerActionModel >> when: anAnnouncementClass send: aSelector to: anObject [
 
 	self announcer weak
diff --git a/src/NewTools-Debugger/StDebuggerActionModelAnnouncement.class.st b/src/NewTools-Debugger/StDebuggerActionModelAnnouncement.class.st
index 3d29d4a91..a4ef8adfa 100644
--- a/src/NewTools-Debugger/StDebuggerActionModelAnnouncement.class.st
+++ b/src/NewTools-Debugger/StDebuggerActionModelAnnouncement.class.st
@@ -1,25 +1,27 @@
 Class {
-	#name : #StDebuggerActionModelAnnouncement,
-	#superclass : #Announcement,
+	#name : 'StDebuggerActionModelAnnouncement',
+	#superclass : 'Announcement',
 	#instVars : [
 		'debuggerActionModel'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerActionModelAnnouncement class >> debuggerActionModel: aDebuggerActionModel [
 
 	^ self new debuggerActionModel: aDebuggerActionModel
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModelAnnouncement >> debuggerActionModel [
 
 	^ debuggerActionModel
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerActionModelAnnouncement >> debuggerActionModel: aDebuggerActionModel [
 
 	debuggerActionModel := aDebuggerActionModel
diff --git a/src/NewTools-Debugger/StDebuggerActionModelClearAnnouncement.class.st b/src/NewTools-Debugger/StDebuggerActionModelClearAnnouncement.class.st
index 592b111f5..2a652509b 100644
--- a/src/NewTools-Debugger/StDebuggerActionModelClearAnnouncement.class.st
+++ b/src/NewTools-Debugger/StDebuggerActionModelClearAnnouncement.class.st
@@ -1,5 +1,7 @@
 Class {
-	#name : #StDebuggerActionModelClearAnnouncement,
-	#superclass : #StDebuggerActionModelAnnouncement,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerActionModelClearAnnouncement',
+	#superclass : 'StDebuggerActionModelAnnouncement',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
diff --git a/src/NewTools-Debugger/StDebuggerActionModelContextChangedAnnouncement.class.st b/src/NewTools-Debugger/StDebuggerActionModelContextChangedAnnouncement.class.st
index 78df56c81..4d01145ec 100644
--- a/src/NewTools-Debugger/StDebuggerActionModelContextChangedAnnouncement.class.st
+++ b/src/NewTools-Debugger/StDebuggerActionModelContextChangedAnnouncement.class.st
@@ -1,5 +1,7 @@
 Class {
-	#name : #StDebuggerActionModelContextChangedAnnouncement,
-	#superclass : #StDebuggerActionModelAnnouncement,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerActionModelContextChangedAnnouncement',
+	#superclass : 'StDebuggerActionModelAnnouncement',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
diff --git a/src/NewTools-Debugger/StDebuggerActionModelMethodAddedAnnouncement.class.st b/src/NewTools-Debugger/StDebuggerActionModelMethodAddedAnnouncement.class.st
index eee85d40b..aecad00a8 100644
--- a/src/NewTools-Debugger/StDebuggerActionModelMethodAddedAnnouncement.class.st
+++ b/src/NewTools-Debugger/StDebuggerActionModelMethodAddedAnnouncement.class.st
@@ -1,5 +1,7 @@
 Class {
-	#name : #StDebuggerActionModelMethodAddedAnnouncement,
-	#superclass : #StDebuggerActionModelAnnouncement,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerActionModelMethodAddedAnnouncement',
+	#superclass : 'StDebuggerActionModelAnnouncement',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
diff --git a/src/NewTools-Debugger/StDebuggerActionModelRestartAnnouncement.class.st b/src/NewTools-Debugger/StDebuggerActionModelRestartAnnouncement.class.st
index 0a20e231f..8706433a2 100644
--- a/src/NewTools-Debugger/StDebuggerActionModelRestartAnnouncement.class.st
+++ b/src/NewTools-Debugger/StDebuggerActionModelRestartAnnouncement.class.st
@@ -1,5 +1,7 @@
 Class {
-	#name : #StDebuggerActionModelRestartAnnouncement,
-	#superclass : #StDebuggerActionModelAnnouncement,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerActionModelRestartAnnouncement',
+	#superclass : 'StDebuggerActionModelAnnouncement',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
diff --git a/src/NewTools-Debugger/StDebuggerActionModelResumeAnnouncement.class.st b/src/NewTools-Debugger/StDebuggerActionModelResumeAnnouncement.class.st
index fc0b9b588..94b888c92 100644
--- a/src/NewTools-Debugger/StDebuggerActionModelResumeAnnouncement.class.st
+++ b/src/NewTools-Debugger/StDebuggerActionModelResumeAnnouncement.class.st
@@ -1,5 +1,7 @@
 Class {
-	#name : #StDebuggerActionModelResumeAnnouncement,
-	#superclass : #StDebuggerActionModelAnnouncement,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerActionModelResumeAnnouncement',
+	#superclass : 'StDebuggerActionModelAnnouncement',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
diff --git a/src/NewTools-Debugger/StDebuggerActionModelStepAnnouncement.class.st b/src/NewTools-Debugger/StDebuggerActionModelStepAnnouncement.class.st
index cdd2c9237..6f1a8cce5 100644
--- a/src/NewTools-Debugger/StDebuggerActionModelStepAnnouncement.class.st
+++ b/src/NewTools-Debugger/StDebuggerActionModelStepAnnouncement.class.st
@@ -1,5 +1,7 @@
 Class {
-	#name : #StDebuggerActionModelStepAnnouncement,
-	#superclass : #StDebuggerActionModelAnnouncement,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerActionModelStepAnnouncement',
+	#superclass : 'StDebuggerActionModelAnnouncement',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
diff --git a/src/NewTools-Debugger/StDebuggerAssertionFailureResult.class.st b/src/NewTools-Debugger/StDebuggerAssertionFailureResult.class.st
index bd0b526f0..9ba7cab3a 100644
--- a/src/NewTools-Debugger/StDebuggerAssertionFailureResult.class.st
+++ b/src/NewTools-Debugger/StDebuggerAssertionFailureResult.class.st
@@ -5,34 +5,36 @@ I am just a convenience place holder for the results of an assertion failure:
 I am meant to be used when expected and actual results do not satisfy the assertion.
 "
 Class {
-	#name : #StDebuggerAssertionFailureResult,
-	#superclass : #Object,
+	#name : 'StDebuggerAssertionFailureResult',
+	#superclass : 'Object',
 	#instVars : [
 		'actual',
 		'expected'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerAssertionFailureResult >> actual [
 
 	^ actual
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerAssertionFailureResult >> actual: anObject [
 
 	actual := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerAssertionFailureResult >> expected [
 
 	^ expected
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerAssertionFailureResult >> expected: anObject [
 
 	expected := anObject
diff --git a/src/NewTools-Debugger/StDebuggerCodeCommandTreeBuilder.class.st b/src/NewTools-Debugger/StDebuggerCodeCommandTreeBuilder.class.st
index aa12c83cc..b1ddebdea 100644
--- a/src/NewTools-Debugger/StDebuggerCodeCommandTreeBuilder.class.st
+++ b/src/NewTools-Debugger/StDebuggerCodeCommandTreeBuilder.class.st
@@ -8,27 +8,29 @@ As I provide the default debugger commands, you should only extend me by using t
 Using me to add command in the tree makes them default for the debugger code presenter.
 "
 Class {
-	#name : #StDebuggerCodeCommandTreeBuilder,
-	#superclass : #StDebuggerCommandTreeBuilder,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerCodeCommandTreeBuilder',
+	#superclass : 'StDebuggerCommandTreeBuilder',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCodeCommandTreeBuilder class >> displayStrategy [
 	^CmUIDisplayAsSubMenu 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCodeCommandTreeBuilder class >> groupDescription [
 	^ 'Debug actions from code'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCodeCommandTreeBuilder class >> groupName [ 	
 	^'Code'
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerCodeCommandTreeBuilder >> buildDebuggerCommandGroup [
 	| codeGroup |
 	codeGroup := self group.
@@ -36,7 +38,7 @@ StDebuggerCodeCommandTreeBuilder >> buildDebuggerCommandGroup [
 	codeGroup beDisplayedAsGroup
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerCodeCommandTreeBuilder >> codeDebugCommands [
 	| group |
 	group := (CmCommandGroup named: self codeDebugCommandsGroupName)
@@ -51,17 +53,17 @@ StDebuggerCodeCommandTreeBuilder >> codeDebugCommands [
 	^ group
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCodeCommandTreeBuilder >> codeDebugCommandsDescription [
 	^'Execution control'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCodeCommandTreeBuilder >> codeDebugCommandsGroupName [
 	^'Execution'
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerCodeCommandTreeBuilder >> codeExecutionControlCommandsClasses [
 	^ {StRunToSelectionCommand}
 ]
diff --git a/src/NewTools-Debugger/StDebuggerCommandTreeBuilder.class.st b/src/NewTools-Debugger/StDebuggerCommandTreeBuilder.class.st
index 7e0fcb5c1..82b536bd6 100644
--- a/src/NewTools-Debugger/StDebuggerCommandTreeBuilder.class.st
+++ b/src/NewTools-Debugger/StDebuggerCommandTreeBuilder.class.st
@@ -11,41 +11,43 @@ For instance:
 - an ""accessing-command classes"" protocol returning arrays of methods (i.e., groups)
 "
 Class {
-	#name : #StDebuggerCommandTreeBuilder,
-	#superclass : #Object,
+	#name : 'StDebuggerCommandTreeBuilder',
+	#superclass : 'Object',
 	#instVars : [
 		'rootCommandGroup',
 		'stDebuggerInstance'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerCommandTreeBuilder class >> buildCommandsGroupWith: aStDebuggerInstance forRoot: aRootCommandGroup [
 	^self new buildCommandsGroupWith: aStDebuggerInstance forRoot: aRootCommandGroup
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommandTreeBuilder class >> displayStrategy [
 	^self subclassResponsibility 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommandTreeBuilder class >> groupDescription [
 	^self subclassResponsibility 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommandTreeBuilder class >> groupName [
 	^self subclassResponsibility 
 ]
 
-{ #category : #converting }
+{ #category : 'converting' }
 StDebuggerCommandTreeBuilder >> asMenuPresenter [ 	
 	^rootCommandGroup asMenuPresenter
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerCommandTreeBuilder >> buildAndRegisterGroup [
 	"builds the group that will register under the provided root command group"
 
@@ -57,41 +59,41 @@ StDebuggerCommandTreeBuilder >> buildAndRegisterGroup [
 	^ group
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerCommandTreeBuilder >> buildCommandsGroupWith: aStDebuggerInstance forRoot: aRootCommandGroup [
 	stDebuggerInstance := aStDebuggerInstance.
 	rootCommandGroup := aRootCommandGroup.
 	self buildDebuggerCommandGroup
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerCommandTreeBuilder >> buildDebuggerCommandGroup [
 	self subclassResponsibility 
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerCommandTreeBuilder >> buildSpecCommand: aCommandClass forContext: anObject [
 	^ aCommandClass forSpecContext: anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommandTreeBuilder >> displayStrategy [
 	^self class displayStrategy new
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommandTreeBuilder >> group [
 	^ rootCommandGroup
 		commandOrGroupNamed: self groupName
 		ifNone: [ self buildAndRegisterGroup ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommandTreeBuilder >> groupDescription [
 	^self class groupDescription
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerCommandTreeBuilder >> groupName [ 
 	^self class groupName
 ]
diff --git a/src/NewTools-Debugger/StDebuggerConfigurationCommandTreeBuilder.class.st b/src/NewTools-Debugger/StDebuggerConfigurationCommandTreeBuilder.class.st
index de549b02b..c91cadfb3 100644
--- a/src/NewTools-Debugger/StDebuggerConfigurationCommandTreeBuilder.class.st
+++ b/src/NewTools-Debugger/StDebuggerConfigurationCommandTreeBuilder.class.st
@@ -8,27 +8,29 @@ As I provide the **default** debugger commands, you should only extend me by usi
 Using me to add command in the tree makes them default for the debugger configuration.
 "
 Class {
-	#name : #StDebuggerConfigurationCommandTreeBuilder,
-	#superclass : #StDebuggerCommandTreeBuilder,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerConfigurationCommandTreeBuilder',
+	#superclass : 'StDebuggerCommandTreeBuilder',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerConfigurationCommandTreeBuilder class >> displayStrategy [
 	^CmUIDisplayAsSubMenu 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerConfigurationCommandTreeBuilder class >> groupDescription [
 	^ 'Debugger configuration actions'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerConfigurationCommandTreeBuilder class >> groupName [ 	
 	^'Debugger configuration'
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerConfigurationCommandTreeBuilder >> buildDebuggerCommandGroup [
 
 	^ self group
@@ -36,7 +38,7 @@ StDebuggerConfigurationCommandTreeBuilder >> buildDebuggerCommandGroup [
 		  yourself
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerConfigurationCommandTreeBuilder >> configurationCommandClasses [
 
 	^ {
@@ -44,7 +46,7 @@ StDebuggerConfigurationCommandTreeBuilder >> configurationCommandClasses [
 		  StDebuggerSettingsCommand }
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerConfigurationCommandTreeBuilder >> generalConfigurationCommandsGroup [
 
 	| group |
@@ -58,13 +60,13 @@ StDebuggerConfigurationCommandTreeBuilder >> generalConfigurationCommandsGroup [
 	^ group
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerConfigurationCommandTreeBuilder >> generalConfigurationGroupDescription [
 
 	^ 'General configuration options for the StDebugger'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerConfigurationCommandTreeBuilder >> generalConfigurationGroupName [
 
 	^ 'General debugger configuration'
diff --git a/src/NewTools-Debugger/StDebuggerContext.class.st b/src/NewTools-Debugger/StDebuggerContext.class.st
index 311f49c4c..af0091db6 100644
--- a/src/NewTools-Debugger/StDebuggerContext.class.st
+++ b/src/NewTools-Debugger/StDebuggerContext.class.st
@@ -3,17 +3,19 @@ I am a simple wrapper holding the current context and the current debug session
 My purpose is only to display context and debug session related information in the debugger inspector.
 "
 Class {
-	#name : #StDebuggerContext,
-	#superclass : #Object,
+	#name : 'StDebuggerContext',
+	#superclass : 'Object',
 	#instVars : [
 		'context',
 		'exception',
 		'debugger'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerContext class >> context: aContext [
 
 	^ self new
@@ -21,7 +23,7 @@ StDebuggerContext class >> context: aContext [
 		  yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContext >> buildExtensionNodes [
 
 	| visitor |
@@ -35,7 +37,7 @@ StDebuggerContext >> buildExtensionNodes [
 		  ifNil: [ #(  ) asOrderedCollection ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContext >> buildInspectorNodes [
 
 	| nodes argsNodes tempsNodes tempsAndArgs |
@@ -56,24 +58,24 @@ StDebuggerContext >> buildInspectorNodes [
 	^ nodes
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContext >> context [
 
 	^ context ifNil: [ context := [] asContext ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContext >> context: anObject [
 	context := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContext >> debugger: aDebugger [
 
 	debugger := aDebugger
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerContext >> doesNotUnderstandNodesFor: anException [
 
 	^ (self exceptionNodesFor: anException)
@@ -84,23 +86,23 @@ StDebuggerContext >> doesNotUnderstandNodesFor: anException [
 		  yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContext >> exception [
 	^ exception ifNil:[exception := OupsNullException new]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContext >> exception: anException [
 	exception := anException 
 ]
 
-{ #category : #nodes }
+{ #category : 'nodes' }
 StDebuggerContext >> exceptionNodes [
 
 	^ self exception stDebuggerInspectorNodesFor: self
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerContext >> exceptionNodesFor: anException [
 
 	^ OrderedCollection new
@@ -111,43 +113,43 @@ StDebuggerContext >> exceptionNodesFor: anException [
 		  yourself
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerContext >> nullExceptionNodesFor: anException [
 
 	^ #(  )
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StDebuggerContext >> printOn: aStream [
 	aStream nextPutAll: context asString 
 ]
 
-{ #category : #nodes }
+{ #category : 'nodes' }
 StDebuggerContext >> receiverNodes [
 
 	^ self context receiver allInspectorNodes reject: [ :node | 
 		  node label = 'self' ]
 ]
 
-{ #category : #nodes }
+{ #category : 'nodes' }
 StDebuggerContext >> selfNode [
 
 	^ StInspectorSelfNode hostObject: (self context home ifNotNil: [:home | home receiver])
 ]
 
-{ #category : #nodes }
+{ #category : 'nodes' }
 StDebuggerContext >> stackTopNode [
 	^StInspectorStackTopNode hostObject: self context
 ]
 
-{ #category : #nodes }
+{ #category : 'nodes' }
 StDebuggerContext >> temporaryVariablesNodes [
 
 	^ self context astScope allTemps collect: [ :temp | 
 		  (StInspectorTempNode hostObject: self context) tempVariable: temp ]
 ]
 
-{ #category : #nodes }
+{ #category : 'nodes' }
 StDebuggerContext >> thisContextNode [ 
 	^StInspectorThisContextNode hostObject: self context
 ]
diff --git a/src/NewTools-Debugger/StDebuggerContextInteractionModel.class.st b/src/NewTools-Debugger/StDebuggerContextInteractionModel.class.st
index 3ee2e1685..831d6939f 100644
--- a/src/NewTools-Debugger/StDebuggerContextInteractionModel.class.st
+++ b/src/NewTools-Debugger/StDebuggerContextInteractionModel.class.st
@@ -1,33 +1,35 @@
 Class {
-	#name : #StDebuggerContextInteractionModel,
-	#superclass : #SpCodeInteractionModel,
+	#name : 'StDebuggerContextInteractionModel',
+	#superclass : 'SpCodeInteractionModel',
 	#instVars : [
 		'context',
 		'bindings'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerContextInteractionModel class >> on: aContext [
 
 	^ self new context: aContext
 ]
 
-{ #category : #adding }
+{ #category : 'adding' }
 StDebuggerContextInteractionModel >> addBinding: aBinding [
 
 	self flag: 'This is experimental code to add a binding without writing code'.
 	self bindings add: aBinding 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextInteractionModel >> behavior [
 
 	^ self context receiver class
 ]
 
-{ #category : #binding }
+{ #category : 'binding' }
 StDebuggerContextInteractionModel >> bindingOf: aString [
 
 	"we can not call #lookupVar: without checking first as it would create the variable"
@@ -38,47 +40,47 @@ StDebuggerContextInteractionModel >> bindingOf: aString [
 		  ifFalse: [ self bindings associationAt: aString ifAbsent: [ nil ] ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextInteractionModel >> bindings [
 
 	^ bindings ifNil: [ bindings := Dictionary new ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextInteractionModel >> context [
 
 	^context
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextInteractionModel >> context: aContext [
 	context := aContext
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextInteractionModel >> doItContext [
 
 	^ self context
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextInteractionModel >> doItReceiver [
 
 	^ self context receiver
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerContextInteractionModel >> hasBindingInContextOf: aString [
 	^ (context lookupVar: aString) notNil
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerContextInteractionModel >> hasBindingInInteractionModelOf: aString [
 	"we search the name in the interaction model as we would do in a playground"
 	^ self bindings includesKey: aString
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerContextInteractionModel >> hasBindingOf: aString [
 
 	"we lookup the name without creating a new variable then we search in the interaction model"
@@ -87,18 +89,18 @@ StDebuggerContextInteractionModel >> hasBindingOf: aString [
 		  self hasBindingInInteractionModelOf: aString ]
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerContextInteractionModel >> hasUnsavedCodeChanges [
 
 	^ context notNil and: [ context sourceCode ~= owner text asString ]
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerContextInteractionModel >> isScripting [
 	^context belongsToDoIt
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextInteractionModel >> object [
 
 	^ self doItReceiver
diff --git a/src/NewTools-Debugger/StDebuggerContextPredicate.class.st b/src/NewTools-Debugger/StDebuggerContextPredicate.class.st
index 38f9a8456..0dc3b9394 100644
--- a/src/NewTools-Debugger/StDebuggerContextPredicate.class.st
+++ b/src/NewTools-Debugger/StDebuggerContextPredicate.class.st
@@ -7,84 +7,86 @@ I reference the context I describe.
 I become obsolete as soon as an action is performed on the context.
 "
 Class {
-	#name : #StDebuggerContextPredicate,
-	#superclass : #Object,
+	#name : 'StDebuggerContextPredicate',
+	#superclass : 'Object',
 	#instVars : [
 		'context',
 		'postMortem'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerContextPredicate class >> context: anObject [
 
 	^ self new context: anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextPredicate >> context [
 	^ context
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextPredicate >> context: aContext [
 	context := aContext
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerContextPredicate >> contextSignalsException [
 	^false
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerContextPredicate >> initialize [ 
 	super initialize.
 	postMortem := false
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerContextPredicate >> isContextAnAssertionFailure [
 	^false
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerContextPredicate >> isContextDead [
 	^context isDead
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerContextPredicate >> isContextDoesNotUnderstand [
 	^false
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerContextPredicate >> isContextMissingClassException [
 	^false
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerContextPredicate >> isContextPostMortem [
 	^postMortem
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerContextPredicate >> isContextSubclassResponsibilityException [
 	^false
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerContextPredicate >> isSteppable [
 
 	^ self isContextPostMortem not and: [ self isContextDead not ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerContextPredicate >> postMortem: aBoolean [
 	postMortem := aBoolean
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StDebuggerContextPredicate >> printDescription [
 	|str|
 	str := WriteStream on: String new.
@@ -93,14 +95,14 @@ StDebuggerContextPredicate >> printDescription [
 	^str contents
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StDebuggerContextPredicate >> printDescriptionPrefixOn: str [
 
 	self printPostMortemDescriptionOn: str.
 	self printHaltDescriptionOn: str
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StDebuggerContextPredicate >> printHaltDescriptionOn: str [
 
 	context sourceNodeExecuted isHaltNode ifFalse: [ ^ self ].
@@ -108,7 +110,7 @@ StDebuggerContextPredicate >> printHaltDescriptionOn: str [
 	str space
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StDebuggerContextPredicate >> printPostMortemDescriptionOn: str [
 
 	postMortem ifFalse: [ ^ self ].
@@ -116,7 +118,7 @@ StDebuggerContextPredicate >> printPostMortemDescriptionOn: str [
 	str space
 ]
 
-{ #category : #updating }
+{ #category : 'updating' }
 StDebuggerContextPredicate >> updateSessionForModel: aStDebuggerActionModel [
 	aStDebuggerActionModel updateDebugSessionException: OupsNullException new
 	
diff --git a/src/NewTools-Debugger/StDebuggerErrorContextPredicate.class.st b/src/NewTools-Debugger/StDebuggerErrorContextPredicate.class.st
index 368da8b4d..5d105e9c6 100644
--- a/src/NewTools-Debugger/StDebuggerErrorContextPredicate.class.st
+++ b/src/NewTools-Debugger/StDebuggerErrorContextPredicate.class.st
@@ -4,15 +4,17 @@ I provide a specialized context description in the case where an exception was f
 I reference that exception.
 "
 Class {
-	#name : #StDebuggerErrorContextPredicate,
-	#superclass : #StDebuggerContextPredicate,
+	#name : 'StDebuggerErrorContextPredicate',
+	#superclass : 'StDebuggerContextPredicate',
 	#instVars : [
 		'exception'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerErrorContextPredicate >> assertEqualsSelectors [
 	self flag: 'Add the denies... use a pragma?'.
 	^ #(#assert:equals: #assert:closeTo:precision: #assert:closeTo: #assert:identicalTo: #assertCollection:equals: #assertCollection:hasSameElements:)
@@ -22,17 +24,17 @@ StDebuggerErrorContextPredicate >> assertEqualsSelectors [
 	     #assertCollection:hasSameElements: )"
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerErrorContextPredicate >> contextSignalsException [
 	^true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerErrorContextPredicate >> exception: anObject [
 	exception := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerErrorContextPredicate >> exceptionWhiteList [
 
 	^ { 
@@ -41,7 +43,7 @@ StDebuggerErrorContextPredicate >> exceptionWhiteList [
 		  Halt }
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerErrorContextPredicate >> isContextDoesNotUnderstand [
 
 	^ exception class = MessageNotUnderstood and: [ 
@@ -52,18 +54,18 @@ StDebuggerErrorContextPredicate >> isContextDoesNotUnderstand [
 				  exception signalerContext method methodClass == Object ] ]
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerErrorContextPredicate >> isContextMissingClassException [
 
 	^ #(#UndeclaredVariableRead #UndeclaredVariableWrite) includes: exception class name
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerErrorContextPredicate >> isContextSubclassResponsibilityException [
 	^ exception class == SubclassResponsibility
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerErrorContextPredicate >> isSteppable [
 
 	super isSteppable ifFalse: [ ^ false ].
@@ -75,7 +77,7 @@ StDebuggerErrorContextPredicate >> isSteppable [
 	^ exception isResumable
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StDebuggerErrorContextPredicate >> printDescription [
 
 	| str |
@@ -87,7 +89,7 @@ StDebuggerErrorContextPredicate >> printDescription [
 	^ str contents
 ]
 
-{ #category : #updating }
+{ #category : 'updating' }
 StDebuggerErrorContextPredicate >> updateSessionForModel: aStDebuggerActionModel [
 
 	aStDebuggerActionModel updateDebugSessionException: exception
diff --git a/src/NewTools-Debugger/StDebuggerExtensionActivationToggle.class.st b/src/NewTools-Debugger/StDebuggerExtensionActivationToggle.class.st
index 70c645d56..5d02d455f 100644
--- a/src/NewTools-Debugger/StDebuggerExtensionActivationToggle.class.st
+++ b/src/NewTools-Debugger/StDebuggerExtensionActivationToggle.class.st
@@ -1,13 +1,15 @@
 Class {
-	#name : #StDebuggerExtensionActivationToggle,
-	#superclass : #Announcement,
+	#name : 'StDebuggerExtensionActivationToggle',
+	#superclass : 'Announcement',
 	#instVars : [
 		'debuggerExtensionClass'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionActivationToggle class >> debuggerExtensionClass: aDebuggerExtensionClass [
 
 	^ self new
@@ -15,13 +17,13 @@ StDebuggerExtensionActivationToggle class >> debuggerExtensionClass: aDebuggerEx
 		  yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionActivationToggle >> debuggerExtensionClass [
 
 	^ debuggerExtensionClass
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionActivationToggle >> debuggerExtensionClass: anObject [
 
 	debuggerExtensionClass := anObject
diff --git a/src/NewTools-Debugger/StDebuggerExtensionInspectorNodeBuilderVisitor.class.st b/src/NewTools-Debugger/StDebuggerExtensionInspectorNodeBuilderVisitor.class.st
index 0a945def1..e22f45bf9 100644
--- a/src/NewTools-Debugger/StDebuggerExtensionInspectorNodeBuilderVisitor.class.st
+++ b/src/NewTools-Debugger/StDebuggerExtensionInspectorNodeBuilderVisitor.class.st
@@ -2,12 +2,14 @@
 I am a debugger extension visitor that is used to display in the debugger inspector variables that were added via debugger extensions.
 "
 Class {
-	#name : #StDebuggerExtensionInspectorNodeBuilderVisitor,
-	#superclass : #StDebuggerExtensionVisitor,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerExtensionInspectorNodeBuilderVisitor',
+	#superclass : 'StDebuggerExtensionVisitor',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerExtensionInspectorNodeBuilderVisitor >> initializeResult [
 
 	result := OrderedCollection new
diff --git a/src/NewTools-Debugger/StDebuggerExtensionSettings.class.st b/src/NewTools-Debugger/StDebuggerExtensionSettings.class.st
index ea17627fb..cf32f68d9 100644
--- a/src/NewTools-Debugger/StDebuggerExtensionSettings.class.st
+++ b/src/NewTools-Debugger/StDebuggerExtensionSettings.class.st
@@ -2,12 +2,14 @@
 I define settings to configure debugger extensions, *i.e.*, all users of `TStDebuggerExtension`.
 "
 Class {
-	#name : #StDebuggerExtensionSettings,
-	#superclass : #Object,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerExtensionSettings',
+	#superclass : 'Object',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #settings }
+{ #category : 'settings' }
 StDebuggerExtensionSettings class >> debuggerExtensionSettingsForClass: toolClass builder: aBuilder [
 
 	| toolName |
@@ -30,7 +32,7 @@ StDebuggerExtensionSettings class >> debuggerExtensionSettingsForClass: toolClas
 					'Position of the tool tab in the debugger right column.' ]
 ]
 
-{ #category : #settings }
+{ #category : 'settings' }
 StDebuggerExtensionSettings class >> debuggerExtensionSettingsOn: aBuilder [
 
 	<systemsettings>
diff --git a/src/NewTools-Debugger/StDebuggerExtensionVisitor.class.st b/src/NewTools-Debugger/StDebuggerExtensionVisitor.class.st
index 0a828fe11..dd6fac227 100644
--- a/src/NewTools-Debugger/StDebuggerExtensionVisitor.class.st
+++ b/src/NewTools-Debugger/StDebuggerExtensionVisitor.class.st
@@ -11,47 +11,49 @@ NewExtension>>#accept: aVisitor
 ```
 "
 Class {
-	#name : #StDebuggerExtensionVisitor,
-	#superclass : #Object,
+	#name : 'StDebuggerExtensionVisitor',
+	#superclass : 'Object',
 	#instVars : [
 		'result'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerExtensionVisitor >> initialize [ 
 
 	super initialize.
 	self initializeResult
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerExtensionVisitor >> initializeResult [
 
 	self subclassResponsibility 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionVisitor >> result [
 
 	^ result
 ]
 
-{ #category : #visiting }
+{ #category : 'visiting' }
 StDebuggerExtensionVisitor >> visit: aStDebuggerExtension [
 
 	aStDebuggerExtension accept: self
 ]
 
-{ #category : #visiting }
+{ #category : 'visiting' }
 StDebuggerExtensionVisitor >> visitBreakpoints: aBreakpointsExtension [
 ]
 
-{ #category : #visiting }
+{ #category : 'visiting' }
 StDebuggerExtensionVisitor >> visitBytecode: aBytecodeExtension [
 ]
 
-{ #category : #visiting }
+{ #category : 'visiting' }
 StDebuggerExtensionVisitor >> visitSindarin: aSindarinExtension [
 ]
diff --git a/src/NewTools-Debugger/StDebuggerInspector.class.st b/src/NewTools-Debugger/StDebuggerInspector.class.st
index 642125d1b..e31fdb1ac 100644
--- a/src/NewTools-Debugger/StDebuggerInspector.class.st
+++ b/src/NewTools-Debugger/StDebuggerInspector.class.st
@@ -6,8 +6,8 @@ I add specific debugger functionalities:
 - I dynamically change my layout depending on the context (e.g., I show a diff view in case of an assertion failure)
 "
 Class {
-	#name : #StDebuggerInspector,
-	#superclass : #SpPresenter,
+	#name : 'StDebuggerInspector',
+	#superclass : 'SpPresenter',
 	#instVars : [
 		'inspector',
 		'model',
@@ -21,41 +21,43 @@ Class {
 	#classInstVars : [
 		'maximizeAssertionSpec'
 	],
-	#category : #'NewTools-Debugger-View'
+	#category : 'NewTools-Debugger-View',
+	#package : 'NewTools-Debugger',
+	#tag : 'View'
 }
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebuggerInspector class >> maximizeAssertionSpec [
 	^maximizeAssertionSpec ifNil:[maximizeAssertionSpec := false]
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebuggerInspector class >> maximizeAssertionSpec: aboolean [
 	maximizeAssertionSpec := aboolean
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerInspector class >> openOn: anObject [
 
 	^ (self on: (StInspectorModel on: anObject)) open
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebuggerInspector class >> title [
 	 ^'Debugger Inspection'
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebuggerInspector class >> toggleMaximizeAssertionSpec [
 	self maximizeAssertionSpec: self maximizeAssertionSpec not
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspector >> assertionFailure [
 	^assertionFailure 
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDebuggerInspector >> assertionFailureLayout [
 	| assertionFailureLayout |
 	
@@ -76,22 +78,22 @@ StDebuggerInspector >> assertionFailureLayout [
 	^ assertionFailureLayout
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDebuggerInspector >> assertionLayoutSelector [
 	^#assertionFailureLayout
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDebuggerInspector >> currentLayoutSelector [
 	^currentLayoutSelector
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspector >> debuggerInspectorModelClass [
 	^ StDebuggerInspectorModel
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDebuggerInspector >> defaultLayout [
 
 	^ SpBoxLayout newTopToBottom
@@ -99,38 +101,38 @@ StDebuggerInspector >> defaultLayout [
 		  yourself
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDebuggerInspector >> defaultLayoutSelector [
 	^#defaultLayout
 ]
 
-{ #category : #updating }
+{ #category : 'updating' }
 StDebuggerInspector >> forceRawInspectionUpdate [
 
 	self getRawInspectorPresenterOrNil ifNotNil: [ :inspection | 
 		inspection update ]
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StDebuggerInspector >> getRawInspectorPresenterOrNil [
 	^ inspector millerList pages first rawInspectorPageOrNil activePresenter
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StDebuggerInspector >> getRawInspectorSelectedPath [
 	^ self getRawInspectorPresenterOrNil
 		  ifNil: [ #(  ) ]
 		  ifNotNil: [ :raw | raw selectedPath ]
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerInspector >> initialize [
 
 	super initialize.
 	shouldBeUpdated := false
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerInspector >> initializeLateralToolbar [
 	| button |
 	
@@ -151,7 +153,7 @@ StDebuggerInspector >> initializeLateralToolbar [
 	lateralToolbar add: button
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerInspector >> initializePresenters [
 
 	label := self newLabel.
@@ -160,38 +162,38 @@ StDebuggerInspector >> initializePresenters [
 	self initializeLateralToolbar
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspector >> inspectedObject [
 
 	^ self model inspectedObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspector >> label: aString [
 
 	label label: aString
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StDebuggerInspector >> model [
 
 	^ model
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StDebuggerInspector >> model: aModel [
 
 	model := aModel.
 	inspector model: model
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspector >> rawInspectionSelectionCache [
 	^ rawInspectionSelectionCache ifNil: [ 
 		  rawInspectionSelectionCache := Dictionary new ]
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StDebuggerInspector >> restoreRawInspectionSelectionForContext: aContext [
 	aContext ifNil: [ ^ self ].
 	self getRawInspectorPresenterOrNil
@@ -212,7 +214,7 @@ StDebuggerInspector >> restoreRawInspectionSelectionForContext: aContext [
 			raw selectPath: path ]
 ]
 
-{ #category : #private }
+{ #category : 'private' }
 StDebuggerInspector >> saveRawInspectionSelectionForContext: aContext [
 	| selectionPath |
 	aContext ifNil: [ ^ self ].
@@ -225,43 +227,43 @@ StDebuggerInspector >> saveRawInspectionSelectionForContext: aContext [
 		put: selectionPath
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDebuggerInspector >> setAssertionLayout [
 	currentLayoutSelector := self assertionLayoutSelector.
 	self layout: self assertionFailureLayout
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDebuggerInspector >> setDefaultLayout [
 	
 	currentLayoutSelector := self defaultLayoutSelector.
 	self layout: self defaultLayout
 ]
 
-{ #category : #'accessing - model' }
+{ #category : 'accessing - model' }
 StDebuggerInspector >> setModelBeforeInitialization: aModel [
 
 	model := aModel
 ]
 
-{ #category : #asserting }
+{ #category : 'asserting' }
 StDebuggerInspector >> shouldUpdate [
 
 	shouldBeUpdated := true
 ]
 
-{ #category : #updating }
+{ #category : 'updating' }
 StDebuggerInspector >> shouldUpdateContext: oldContext with: newContext [
 
 	^ oldContext ~~ newContext or: [ shouldBeUpdated ]
 ]
 
-{ #category : #stepping }
+{ #category : 'stepping' }
 StDebuggerInspector >> step [
 	inspector step
 ]
 
-{ #category : #updating }
+{ #category : 'updating' }
 StDebuggerInspector >> updateEvaluationPaneReceiver [
 	"| context evaluator |
 	
@@ -270,7 +272,7 @@ StDebuggerInspector >> updateEvaluationPaneReceiver [
 	evaluator beForContextReceiver: context"
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDebuggerInspector >> updateLayoutForContexts: aContext isAssertionFailure: isTopContextFailingAssertion [
 
 	| assertionResult |
@@ -292,7 +294,7 @@ StDebuggerInspector >> updateLayoutForContexts: aContext isAssertionFailure: isT
 	self setAssertionLayout
 ]
 
-{ #category : #updating }
+{ #category : 'updating' }
 StDebuggerInspector >> updateWith: inspectedObject [
 
 	| oldContext newContext |
diff --git a/src/NewTools-Debugger/StDebuggerInspectorModel.class.st b/src/NewTools-Debugger/StDebuggerInspectorModel.class.st
index 19642c5e9..3b2299385 100644
--- a/src/NewTools-Debugger/StDebuggerInspectorModel.class.st
+++ b/src/NewTools-Debugger/StDebuggerInspectorModel.class.st
@@ -3,41 +3,43 @@ I am a model representing the first variable lists in the debugger inspector.
 
 "
 Class {
-	#name : #StDebuggerInspectorModel,
-	#superclass : #StInspectorModel,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerInspectorModel',
+	#superclass : 'StInspectorModel',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspectorModel >> allInspectorNodes [
 
 	^ self inspectedObject buildInspectorNodes
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspectorModel >> debuggerContextClass [
 	^ StDebuggerContext
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspectorModel >> defaultObjectInspectorClass [
 
 	^ StDebuggerRawObjectInspector
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerInspectorModel >> initialize [
 	super initialize.
 	inspectedObject := self debuggerContextClass new
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspectorModel >> inspectedObject [
 
 	^ inspectedObject ifNil: [ inspectedObject := self debuggerContextClass new ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerInspectorModel >> labelString [
 
 	^ (self descriptionStringFor: self inspectedObject context receiver) 
diff --git a/src/NewTools-Debugger/StDebuggerRawObjectInspector.class.st b/src/NewTools-Debugger/StDebuggerRawObjectInspector.class.st
index 011fdb3f4..93b07a315 100644
--- a/src/NewTools-Debugger/StDebuggerRawObjectInspector.class.st
+++ b/src/NewTools-Debugger/StDebuggerRawObjectInspector.class.st
@@ -4,15 +4,17 @@ I show only a compacted raw view instead of a notebook page, in particular I rem
 Activating one of my items (by clicking or double-clicking on it) shows a miller list with a standard object inspector.
 "
 Class {
-	#name : #StDebuggerRawObjectInspector,
-	#superclass : #StObjectInspectorPresenter,
+	#name : 'StDebuggerRawObjectInspector',
+	#superclass : 'StObjectInspectorPresenter',
 	#instVars : [
 		'raw'
 	],
-	#category : #'NewTools-Debugger-View'
+	#category : 'NewTools-Debugger-View',
+	#package : 'NewTools-Debugger',
+	#tag : 'View'
 }
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebuggerRawObjectInspector class >> noHeaderSpec [
 	<spec: #default>
 	^ SpBoxLayout newTopToBottom
@@ -20,7 +22,7 @@ StDebuggerRawObjectInspector class >> noHeaderSpec [
 		yourself
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerRawObjectInspector >> defaultLayout [
 	
 	^ SpBoxLayout newTopToBottom 
@@ -30,7 +32,7 @@ StDebuggerRawObjectInspector >> defaultLayout [
 
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerRawObjectInspector >> initializePresenters [
 
 
@@ -42,24 +44,24 @@ StDebuggerRawObjectInspector >> initializePresenters [
 	super initializePresenters
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerRawObjectInspector >> rawInspectorPageOrNil [
 	^raw
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerRawObjectInspector >> selectedObject [
 	"The debugger raw object inspector is opened on a StDebuggerContext object that holds context information. Here the view expected by users is on the receiver and not on the StDebuggerContext."
 	^super selectedObject context receiver
 ]
 
-{ #category : #stepping }
+{ #category : 'stepping' }
 StDebuggerRawObjectInspector >> step [
 	super step.
 	raw step
 ]
 
-{ #category : #'private - updating' }
+{ #category : 'private - updating' }
 StDebuggerRawObjectInspector >> updateHeaderBar [
 	| filter |
 
diff --git a/src/NewTools-Debugger/StDebuggerSpecSelector.class.st b/src/NewTools-Debugger/StDebuggerSpecSelector.class.st
index 9bb859a5f..834501d1a 100644
--- a/src/NewTools-Debugger/StDebuggerSpecSelector.class.st
+++ b/src/NewTools-Debugger/StDebuggerSpecSelector.class.st
@@ -15,52 +15,54 @@ Three cases:
 		- AND at least one existing extension class is activated as debugger extension
 "
 Class {
-	#name : #StDebuggerSpecSelector,
-	#superclass : #Object,
+	#name : 'StDebuggerSpecSelector',
+	#superclass : 'Object',
 	#instVars : [
 		'specSelector'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerSpecSelector class >> debuggerClass [ 	
 	^StDebugger
 ]
 
-{ #category : #'specs - default selectors' }
+{ #category : 'specs - default selectors' }
 StDebuggerSpecSelector class >> defaultDebuggerWithExtensionSpecSelector [
 	^#debuggerWithExtensionsSpec
 ]
 
-{ #category : #'specs - default selectors' }
+{ #category : 'specs - default selectors' }
 StDebuggerSpecSelector class >> defaultDebuggerWithoutExtensionSpecSelector [
 	^#debuggerWithoutExtensionsSpec
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerSpecSelector class >> defaultSelector [
 	^self on: self defaultDebuggerWithExtensionSpecSelector
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerSpecSelector class >> on: aSelector [
 	^self new specSelector: aSelector
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerSpecSelector >> debuggerClass [ 
 	^self class debuggerClass
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerSpecSelector >> isDefaultSelector: aSelector [
 	^ {self class defaultDebuggerWithExtensionSpecSelector.
 	self class defaultDebuggerWithoutExtensionSpecSelector}
 		includes: aSelector
 ]
 
-{ #category : #'specs - selectors' }
+{ #category : 'specs - selectors' }
 StDebuggerSpecSelector >> selectExtensionActivationSpecFrom: aDefaultSpecSelector [
 
 	"Altered depending on the current configuration of the debugger extensions.
@@ -75,7 +77,7 @@ StDebuggerSpecSelector >> selectExtensionActivationSpecFrom: aDefaultSpecSelecto
 				   self debuggerClass extensionToolsClasses)
 ]
 
-{ #category : #'specs - selectors' }
+{ #category : 'specs - selectors' }
 StDebuggerSpecSelector >> selectSpecSelector [
 	"Sets and returns the spec selector to be use by the presenter.
 	Two cases:
@@ -91,7 +93,7 @@ StDebuggerSpecSelector >> selectSpecSelector [
 	^ self selectExtensionActivationSpecFrom: selector
 ]
 
-{ #category : #'specs - selectors' }
+{ #category : 'specs - selectors' }
 StDebuggerSpecSelector >> selectorForDebuggerStatus: debuggerExtensionsActivated extensionsStatus: debuggerHasExtensions [
 	"This is only relevant in the case we use default StDebugger specs for which the extension column can be configured in settings"
 
@@ -100,12 +102,12 @@ StDebuggerSpecSelector >> selectorForDebuggerStatus: debuggerExtensionsActivated
 		ifFalse: [ self class defaultDebuggerWithoutExtensionSpecSelector ]
 ]
 
-{ #category : #'specs - default selector' }
+{ #category : 'specs - default selector' }
 StDebuggerSpecSelector >> specSelector [
 	^ specSelector
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerSpecSelector >> specSelector: anObject [
 	specSelector := anObject
 ]
diff --git a/src/NewTools-Debugger/StDebuggerStackCommandTreeBuilder.class.st b/src/NewTools-Debugger/StDebuggerStackCommandTreeBuilder.class.st
index 3e627f716..13ed40fb2 100644
--- a/src/NewTools-Debugger/StDebuggerStackCommandTreeBuilder.class.st
+++ b/src/NewTools-Debugger/StDebuggerStackCommandTreeBuilder.class.st
@@ -8,37 +8,39 @@ As I provide the default debugger commands, you should only extend me by using t
 Using me to add command in the tree makes them default for the debugger stack presenter.
 "
 Class {
-	#name : #StDebuggerStackCommandTreeBuilder,
-	#superclass : #StDebuggerCommandTreeBuilder,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerStackCommandTreeBuilder',
+	#superclass : 'StDebuggerCommandTreeBuilder',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder class >> displayStrategy [
 	^CmUIDisplayAsSubMenu
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder class >> groupDescription [
 	^ 'Actions on the debugger stack.'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder class >> groupName [ 	
 	^'Stack'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> browseGroupDescription [
 	^ 'Navigate the system from the stack'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> browseGroupName [
 	^ 'Browse'
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerStackCommandTreeBuilder >> buildDebuggerCommandGroup [
 	|stackGroup|
 	stackGroup := self group.	
@@ -50,7 +52,7 @@ StDebuggerStackCommandTreeBuilder >> buildDebuggerCommandGroup [
 	
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerStackCommandTreeBuilder >> buildSpecCommand: aCommandClass forContext: aBlock [
 
 	| cmd |
@@ -59,14 +61,14 @@ StDebuggerStackCommandTreeBuilder >> buildSpecCommand: aCommandClass forContext:
 	^ cmd
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerStackCommandTreeBuilder >> stackActionsCommandsClasses [
 	^ {
 	StReturnValueCommand
 	}
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerStackCommandTreeBuilder >> stackContextMenuActionsCommands [
 	| group |
 	group := (CmCommandGroup named: self stackContextMenuActionsGroupName)
@@ -81,17 +83,17 @@ StDebuggerStackCommandTreeBuilder >> stackContextMenuActionsCommands [
 	^ group
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackContextMenuActionsDescription [
 	^ 'Actions on the selected context'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackContextMenuActionsGroupName [
 	^ 'Context Actions'
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerStackCommandTreeBuilder >> stackContextMenuBrowseCommands [
 	| group |
 	group := (CmCommandGroup named: self browseGroupName) asSpecGroup.
@@ -104,7 +106,7 @@ StDebuggerStackCommandTreeBuilder >> stackContextMenuBrowseCommands [
 	^ group
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerStackCommandTreeBuilder >> stackContextMenuExplorationCommands [
 	| group |
 	group := (CmCommandGroup
@@ -128,17 +130,17 @@ StDebuggerStackCommandTreeBuilder >> stackContextMenuExplorationCommands [
 	^ group
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackContextMenuExplorationDescription [
 	^ 'Explore the receiver object''s graph'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackContextMenuExplorationGroupName [
 	^ 'Explore'
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerStackCommandTreeBuilder >> stackContextMenuStackEditionsCommands [
 	| group |
 	group := (CmCommandGroup named: self stackGroupName) asSpecGroup.
@@ -151,7 +153,7 @@ StDebuggerStackCommandTreeBuilder >> stackContextMenuStackEditionsCommands [
 	^ group
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerStackCommandTreeBuilder >> stackContextNavigationCommands [
 	"Commands to navigate the context"
 
@@ -169,12 +171,12 @@ StDebuggerStackCommandTreeBuilder >> stackContextNavigationCommands [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackContextNavigationGroupName [
 	^ 'Receiver class code navigation commands'
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerStackCommandTreeBuilder >> stackEditionCommandsClasses [
 	^ {
 	StCopyStackToClipboardCommand.
@@ -184,7 +186,7 @@ StDebuggerStackCommandTreeBuilder >> stackEditionCommandsClasses [
 	}
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerStackCommandTreeBuilder >> stackExplorationCommandsClasses [
 	^ OrderedCollection new
 		addAll: self stackReceiverClassExplorationCommandsClasses;
@@ -192,17 +194,17 @@ StDebuggerStackCommandTreeBuilder >> stackExplorationCommandsClasses [
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackGroupDescription [
 	^ 'Stack edition'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackGroupName [
 	^ 'Stack'
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerStackCommandTreeBuilder >> stackMethodCommandsClasses [
 	^ {
 	SpBrowseMethodInheritanceCommand.
@@ -210,7 +212,7 @@ StDebuggerStackCommandTreeBuilder >> stackMethodCommandsClasses [
 	}
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerStackCommandTreeBuilder >> stackMethodNavigationCommands [
 
 	"Commands to navigate the selected context's method "
@@ -225,12 +227,12 @@ StDebuggerStackCommandTreeBuilder >> stackMethodNavigationCommands [
 	^ group
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackMethodNavigationGroupName [
 	^ 'Selected method navigation commands'
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerStackCommandTreeBuilder >> stackMethodSelectorCommandsClasses [
 	^ {
 	SpBrowseImplementorsCommand.
@@ -239,7 +241,7 @@ StDebuggerStackCommandTreeBuilder >> stackMethodSelectorCommandsClasses [
 	}
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerStackCommandTreeBuilder >> stackMethodSelectorNavigationCommands [
 	"Commands to navigate the selected context's method selector as context "
 
@@ -257,12 +259,12 @@ StDebuggerStackCommandTreeBuilder >> stackMethodSelectorNavigationCommands [
 	^ group
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackMethodSelectorNavigationGroupName [
 	^ 'Selected method''s selector navigation commands'
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerStackCommandTreeBuilder >> stackReceiverClassExplorationCommandsClasses [
 	^ {
 	SpBrowseInstancesCommand.
@@ -270,7 +272,7 @@ StDebuggerStackCommandTreeBuilder >> stackReceiverClassExplorationCommandsClasse
 	}
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerStackCommandTreeBuilder >> stackReceiverClassNavigationCommands [
 	"Commands to navigate the selected context's receiver class as context "
 
@@ -288,12 +290,12 @@ StDebuggerStackCommandTreeBuilder >> stackReceiverClassNavigationCommands [
 	^ group
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerStackCommandTreeBuilder >> stackReceiverClassNavigationGroupName [
 	^ 'Receiver class navigation commands'
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerStackCommandTreeBuilder >> stackReceiverCommandsClasses [
 	^ {
 	SpBrowseClassReferencesCommand.
@@ -304,7 +306,7 @@ StDebuggerStackCommandTreeBuilder >> stackReceiverCommandsClasses [
 	}
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerStackCommandTreeBuilder >> stackReceiverExplorationCommandsClasses [
 	^ {SpBrowsePointersToCommand}
 ]
diff --git a/src/NewTools-Debugger/StDebuggerTestFailureContextPredicate.class.st b/src/NewTools-Debugger/StDebuggerTestFailureContextPredicate.class.st
index 3f62a0a52..4cc464aca 100644
--- a/src/NewTools-Debugger/StDebuggerTestFailureContextPredicate.class.st
+++ b/src/NewTools-Debugger/StDebuggerTestFailureContextPredicate.class.st
@@ -5,35 +5,37 @@ I reference that test  failure.
 
 "
 Class {
-	#name : #StDebuggerTestFailureContextPredicate,
-	#superclass : #StDebuggerContextPredicate,
+	#name : 'StDebuggerTestFailureContextPredicate',
+	#superclass : 'StDebuggerContextPredicate',
 	#instVars : [
 		'failure'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerTestFailureContextPredicate >> contextSignalsException [
 	^true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTestFailureContextPredicate >> failure: anObject [
 	failure := anObject
 ]
 
-{ #category : #predicates }
+{ #category : 'predicates' }
 StDebuggerTestFailureContextPredicate >> isContextAnAssertionFailure [
 	^true
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StDebuggerTestFailureContextPredicate >> isSteppable [ 
 	^false
 ]
 
-{ #category : #printing }
+{ #category : 'printing' }
 StDebuggerTestFailureContextPredicate >> printDescription [
 
 	| str |
diff --git a/src/NewTools-Debugger/StDebuggerToolbarCommandTreeBuilder.class.st b/src/NewTools-Debugger/StDebuggerToolbarCommandTreeBuilder.class.st
index dc39e93f2..6d4c28591 100644
--- a/src/NewTools-Debugger/StDebuggerToolbarCommandTreeBuilder.class.st
+++ b/src/NewTools-Debugger/StDebuggerToolbarCommandTreeBuilder.class.st
@@ -8,27 +8,29 @@ As I provide the default debugger commands, you should only extend me by using t
 Using me to add command in the tree makes them default for the debugger  toolbar presenter.
 "
 Class {
-	#name : #StDebuggerToolbarCommandTreeBuilder,
-	#superclass : #StDebuggerCommandTreeBuilder,
-	#category : #'NewTools-Debugger-Model'
+	#name : 'StDebuggerToolbarCommandTreeBuilder',
+	#superclass : 'StDebuggerCommandTreeBuilder',
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder class >> displayStrategy [
 	^CmUIDisplayAsGroup
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder class >> groupDescription [
 	^ 'Debug actions'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder class >> groupName [ 	
 	^'Toolbar'
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerToolbarCommandTreeBuilder >> buildCommandGroupFrom: commandClasses named: commandGroupName description: commandGroupDescription [
 	| group |
 	group := (CmCommandGroup named: commandGroupName) asSpecGroup.
@@ -42,7 +44,7 @@ StDebuggerToolbarCommandTreeBuilder >> buildCommandGroupFrom: commandClasses nam
 	^ group
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerToolbarCommandTreeBuilder >> buildDebuggerCommandGroup [
 	|group|
 	group := self group.
@@ -53,12 +55,12 @@ StDebuggerToolbarCommandTreeBuilder >> buildDebuggerCommandGroup [
 	
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerToolbarCommandTreeBuilder >> contextControlCommandClasses [
 	^ {StDefineMissingEntityCommand}
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerToolbarCommandTreeBuilder >> contextControlDebuggingCommands [
 	^ self
 		buildCommandGroupFrom: self contextControlCommandClasses
@@ -66,24 +68,24 @@ StDebuggerToolbarCommandTreeBuilder >> contextControlDebuggingCommands [
 		description: self contextControlGroupDescription
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder >> contextControlGroupDescription [
 	^'Actions performed on the interrupted context'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder >> contextControlGroupName [
 	^'Context control'
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerToolbarCommandTreeBuilder >> contextRequestCommandClasses [
 	^ {
 	StWhereIsCommand
 	}
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerToolbarCommandTreeBuilder >> contextRequestDebuggingCommands [
 	^ self
 		buildCommandGroupFrom: self contextRequestCommandClasses
@@ -91,27 +93,27 @@ StDebuggerToolbarCommandTreeBuilder >> contextRequestDebuggingCommands [
 		description: self contextRequestGroupDescription
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder >> contextRequestGroupDescription [
 	^ 'Requests on the interrupted context'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder >> contextRequestGroupName [
 	^'Context requests'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder >> defaultDebugActionsDescription [
 	^'Defaults debugging actions'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder >> defaultDebugActionsGroupName [
 	^'Debugging actions'
 ]
 
-{ #category : #'accessing - commands classes' }
+{ #category : 'accessing - commands classes' }
 StDebuggerToolbarCommandTreeBuilder >> executionControlCommandClasses [
 	^ {
 	StProceedCommand.
@@ -124,7 +126,7 @@ StDebuggerToolbarCommandTreeBuilder >> executionControlCommandClasses [
 	}
 ]
 
-{ #category : #commands }
+{ #category : 'commands' }
 StDebuggerToolbarCommandTreeBuilder >> executionControlDebuggingCommands [
 	^ self
 		buildCommandGroupFrom: self executionControlCommandClasses
@@ -132,12 +134,12 @@ StDebuggerToolbarCommandTreeBuilder >> executionControlDebuggingCommands [
 		description: self executionControlGroupDescription
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder >> executionControlGroupDescription [
 	^'Debug actions applied to the executed context'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerToolbarCommandTreeBuilder >> executionControlGroupName [
 	^'Execution control'
 ]
diff --git a/src/NewTools-Debugger/StDebuggerTreeTablePresenter.class.st b/src/NewTools-Debugger/StDebuggerTreeTablePresenter.class.st
index 92d303360..1de6e224d 100644
--- a/src/NewTools-Debugger/StDebuggerTreeTablePresenter.class.st
+++ b/src/NewTools-Debugger/StDebuggerTreeTablePresenter.class.st
@@ -6,17 +6,19 @@ I'm used to display all variables that are my roots. I can filter these variable
 In the debugger, I'm used to display all variables in the selected context and you can filter/unfilter them by clicking/double-clicking one of their variable tag.
 "
 Class {
-	#name : #StDebuggerTreeTablePresenter,
-	#superclass : #SpTreeTablePresenter,
+	#name : 'StDebuggerTreeTablePresenter',
+	#superclass : 'SpTreeTablePresenter',
 	#instVars : [
 		'items',
 		'filter',
 		'isFiltered'
 	],
-	#category : #'NewTools-Debugger-View'
+	#category : 'NewTools-Debugger-View',
+	#package : 'NewTools-Debugger',
+	#tag : 'View'
 }
 
-{ #category : #api }
+{ #category : 'api' }
 StDebuggerTreeTablePresenter >> applyFilter [
 
 	filter ifNil: [ ^ items ].
@@ -27,23 +29,23 @@ StDebuggerTreeTablePresenter >> applyFilter [
 	^ items select: [ :item | item variableTag = filter ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTreeTablePresenter >> filter [
 	^ filter
 ]
 
-{ #category : #api }
+{ #category : 'api' }
 StDebuggerTreeTablePresenter >> hasActiveFilter [
 	^isFiltered 
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerTreeTablePresenter >> initialize [
 	super initialize.
 	isFiltered := false
 ]
 
-{ #category : #api }
+{ #category : 'api' }
 StDebuggerTreeTablePresenter >> roots: aCollection [
 
 	items := aCollection.
@@ -51,7 +53,7 @@ StDebuggerTreeTablePresenter >> roots: aCollection [
 
 ]
 
-{ #category : #api }
+{ #category : 'api' }
 StDebuggerTreeTablePresenter >> toggleFilter: aVariableTag [
 
 	filter := aVariableTag.
diff --git a/src/NewTools-Debugger/StFailingAssertionInspector.class.st b/src/NewTools-Debugger/StFailingAssertionInspector.class.st
index 865eaef2f..25897fa5f 100644
--- a/src/NewTools-Debugger/StFailingAssertionInspector.class.st
+++ b/src/NewTools-Debugger/StFailingAssertionInspector.class.st
@@ -10,8 +10,8 @@ Only opens for following assertions failures:
 #assertCollection:hasSameElements:
 "
 Class {
-	#name : #StFailingAssertionInspector,
-	#superclass : #SpPresenter,
+	#name : 'StFailingAssertionInspector',
+	#superclass : 'SpPresenter',
 	#instVars : [
 		'actualObjectHeader',
 		'expectedObjectHeader',
@@ -21,10 +21,12 @@ Class {
 		'expectedObjectMillerList',
 		'stringDiff'
 	],
-	#category : #'NewTools-Debugger-View'
+	#category : 'NewTools-Debugger-View',
+	#package : 'NewTools-Debugger',
+	#tag : 'View'
 }
 
-{ #category : #layout }
+{ #category : 'layout' }
 StFailingAssertionInspector class >> defaultLayout [
 
 	^ SpPanedLayout newLeftToRight
@@ -40,7 +42,7 @@ StFailingAssertionInspector class >> defaultLayout [
 		  yourself
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StFailingAssertionInspector class >> diffInspectorsFromActual: actualObject expected: expectedObject application: aStApplication [
 
 	| diffPresenter |
@@ -56,51 +58,51 @@ StFailingAssertionInspector class >> diffInspectorsFromActual: actualObject expe
 	^ diffPresenter
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StFailingAssertionInspector class >> stringSpec [
 	^ SpBoxLayout newTopToBottom
 		add: #stringDiff;
 		yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StFailingAssertionInspector >> actualObject [
 	^ actualObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StFailingAssertionInspector >> actualObject: anObject [
 	actualObject := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StFailingAssertionInspector >> actualObjectMillerList [
 	^ actualObjectMillerList
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StFailingAssertionInspector >> expectedObject [
 	^ expectedObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StFailingAssertionInspector >> expectedObject: anObject [
 	expectedObject := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StFailingAssertionInspector >> expectedObjectMillerList [
 	^ expectedObjectMillerList
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StFailingAssertionInspector >> initializeMillerList: list forObject: object [
 	list
 		presenterBlock: [ :aModel | self treeTableInspectionFor: aModel ];
 		setRootModel: object 
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StFailingAssertionInspector >> initializeObjectDiffPresenters [
 			
 	actualObjectHeader := (self instantiate: StHeaderBar)
@@ -120,13 +122,13 @@ StFailingAssertionInspector >> initializeObjectDiffPresenters [
 		forObject: expectedObject
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StFailingAssertionInspector >> initializePresenters [
 
 	actualObject presentDiffWith: expectedObject in: self
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StFailingAssertionInspector >> initializeStringDiffPresenters [
 	
 	stringDiff := self newDiff.
@@ -137,12 +139,12 @@ StFailingAssertionInspector >> initializeStringDiffPresenters [
 	stringDiff rightText: expectedObject printString
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StFailingAssertionInspector >> stringDiff [
 	^stringDiff
 ]
 
-{ #category : #views }
+{ #category : 'views' }
 StFailingAssertionInspector >> treeTableInspectionFor: aModel [
 	| rawInspection |
 	rawInspection := StRawInspectionPresenter new.
diff --git a/src/NewTools-Debugger/StRawInspectionPresenter.extension.st b/src/NewTools-Debugger/StRawInspectionPresenter.extension.st
index 0cbcbb58f..43008ae4e 100644
--- a/src/NewTools-Debugger/StRawInspectionPresenter.extension.st
+++ b/src/NewTools-Debugger/StRawInspectionPresenter.extension.st
@@ -1,23 +1,23 @@
-Extension { #name : #StRawInspectionPresenter }
+Extension { #name : 'StRawInspectionPresenter' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 StRawInspectionPresenter >> activePresenter [
 	^self
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 StRawInspectionPresenter >> addVariableTagColumn [
 
 	attributeTable addColumn: self variableTagColumn
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 StRawInspectionPresenter >> attributeTable [
 
 	^attributeTable
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 StRawInspectionPresenter >> beForDebugger [
 
 	attributeTable := (self instantiate: StDebuggerTreeTablePresenter)
@@ -37,13 +37,13 @@ StRawInspectionPresenter >> beForDebugger [
 		children: [ :node | #() ]
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 StRawInspectionPresenter >> selectedPageName [
 
 	^'Context'
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 StRawInspectionPresenter >> updateNodesFromScope: oldASTScope to: newASTScope [
 
 	| nodes newTemps oldTemps tempsToRemove tempsToAdd |
@@ -66,7 +66,7 @@ StRawInspectionPresenter >> updateNodesFromScope: oldASTScope to: newASTScope [
 	self attributeTable roots: nodes
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 StRawInspectionPresenter >> variableTagColumn [
 
 	^  SpLinkTableColumn new 
diff --git a/src/NewTools-Debugger/String.extension.st b/src/NewTools-Debugger/String.extension.st
index 44b3bf6a1..f0b2f8dc4 100644
--- a/src/NewTools-Debugger/String.extension.st
+++ b/src/NewTools-Debugger/String.extension.st
@@ -1,11 +1,11 @@
-Extension { #name : #String }
+Extension { #name : 'String' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 String >> presentDiffIn: aStFailingAssertionPresenter [
 	aStFailingAssertionPresenter initializeStringDiffPresenters
 ]
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 String >> presentDiffWith: anObject in: aStFailingAssertionPresenter [
 	anObject presentDiffIn: aStFailingAssertionPresenter
 ]
diff --git a/src/NewTools-Debugger/TStDebuggerExtension.trait.st b/src/NewTools-Debugger/TStDebuggerExtension.trait.st
index 4cb529618..13e68fe01 100644
--- a/src/NewTools-Debugger/TStDebuggerExtension.trait.st
+++ b/src/NewTools-Debugger/TStDebuggerExtension.trait.st
@@ -3,7 +3,7 @@ All Spec presenters using me will be recognised as debugger extensions when open
 
 "
 Trait {
-	#name : #TStDebuggerExtension,
+	#name : 'TStDebuggerExtension',
 	#instVars : [
 		'debugger'
 	],
@@ -11,39 +11,41 @@ Trait {
 		'showDebuggerExtension',
 		'debuggerExtensionDisplayOrder'
 	],
-	#category : #'NewTools-Debugger-Model'
+	#category : 'NewTools-Debugger-Model',
+	#package : 'NewTools-Debugger',
+	#tag : 'Model'
 }
 
-{ #category : #'debugger extension' }
+{ #category : 'debugger extension' }
 TStDebuggerExtension classSide >> defaultDisplayOrder [
 
 	^ 1
 ]
 
-{ #category : #'debugger extension' }
+{ #category : 'debugger extension' }
 TStDebuggerExtension classSide >> displayOrder [
 
 	^ debuggerExtensionDisplayOrder ifNil: [ 
 		  debuggerExtensionDisplayOrder := self defaultDisplayOrder ]
 ]
 
-{ #category : #'debugger extension' }
+{ #category : 'debugger extension' }
 TStDebuggerExtension classSide >> displayOrder: anInteger [
 	debuggerExtensionDisplayOrder := anInteger
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 TStDebuggerExtension classSide >> isOnlyForTests [
 
 	^ false
 ]
 
-{ #category : #'debugger extension' }
+{ #category : 'debugger extension' }
 TStDebuggerExtension classSide >> showInDebugger [
 	^showDebuggerExtension ifNil: [showDebuggerExtension := false]
 ]
 
-{ #category : #'debugger extension' }
+{ #category : 'debugger extension' }
 TStDebuggerExtension classSide >> showInDebugger: aBoolean [
 
 	self showInDebugger = aBoolean ifTrue: [ "The activated state hasn't changed. So we don't announce an extension toggle"
@@ -53,32 +55,32 @@ TStDebuggerExtension classSide >> showInDebugger: aBoolean [
 		(StDebuggerExtensionActivationToggle debuggerExtensionClass: self)
 ]
 
-{ #category : #visiting }
+{ #category : 'visiting' }
 TStDebuggerExtension >> accept: aVisitor [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 TStDebuggerExtension >> debugger [
 	^debugger
 ]
 
-{ #category : #'debugger extension' }
+{ #category : 'debugger extension' }
 TStDebuggerExtension >> debuggerExtensionToolName [
 	^self explicitRequirement 
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 TStDebuggerExtension >> debuggerLayout [
 
 	^ self defaultLayout
 ]
 
-{ #category : #'debugger extension' }
+{ #category : 'debugger extension' }
 TStDebuggerExtension >> displayOrder [
 	^self class displayOrder
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 TStDebuggerExtension >> setModelBeforeInitialization: aDebugger [
 	 debugger := aDebugger
 ]
diff --git a/src/NewTools-Debugger/TemporaryVariable.extension.st b/src/NewTools-Debugger/TemporaryVariable.extension.st
index 7fc5d60b2..30ae730da 100644
--- a/src/NewTools-Debugger/TemporaryVariable.extension.st
+++ b/src/NewTools-Debugger/TemporaryVariable.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #TemporaryVariable }
+Extension { #name : 'TemporaryVariable' }
 
-{ #category : #'*NewTools-Debugger' }
+{ #category : '*NewTools-Debugger' }
 TemporaryVariable >> variableTag [
 	^ 'temp. var'
 ]
diff --git a/src/NewTools-Debugger/package.st b/src/NewTools-Debugger/package.st
index 4a4a2aaca..dd9115f39 100644
--- a/src/NewTools-Debugger/package.st
+++ b/src/NewTools-Debugger/package.st
@@ -1 +1 @@
-Package { #name : #'NewTools-Debugger' }
+Package { #name : 'NewTools-Debugger' }

From 74413d3d3dbb14287aa91445d400c88346d56423 Mon Sep 17 00:00:00 2001
From: adri09070 <97704417+adri09070@users.noreply.github.com>
Date: Fri, 29 Sep 2023 14:37:00 +0200
Subject: [PATCH 2/3] cleaning debugger class-side protocols and unused methods

Co-authored-by: Steven Costiou <26929529+StevenCostiou@users.noreply.github.com>
---
 .../ContextTest.extension.st                  |   4 +-
 .../HaltInCompiledBlockPrintOnTest.class.st   |  14 +-
 .../ObjectWithPrintingRaisingHalt.class.st    |  10 +-
 ...ObjectWithPrintingRaisingHaltTest.class.st |  10 +-
 .../StDebugContextForTests.class.st           |  14 +-
 .../StDebugger.extension.st                   |  15 +-
 .../StDebuggerActionModel.extension.st        |   4 +-
 ...buggerActionModelAnnouncementTest.class.st |  12 +-
 .../StDebuggerActionModelTest.class.st        | 156 +++++++++---------
 .../StDebuggerAssertionContextTest.class.st   |  14 +-
 ...ebuggerCodeCommandTreeBuilderTest.class.st |  24 +--
 .../StDebuggerCommandTest.class.st            |  58 +++----
 .../StDebuggerCommandTreeBuilderTest.class.st |  20 ++-
 ...nfigurationCommandTreeBuilderTest.class.st |  20 ++-
 ...buggerContextInteractionModelTest.class.st |  34 ++--
 .../StDebuggerContextPredicateTest.class.st   |  22 +--
 .../StDebuggerContextTest.class.st            |  42 ++---
 ...DebuggerErrorContextPredicate.extension.st |   4 +-
 ...ebuggerExtensionGeneratorForTests.class.st |  14 +-
 .../StDebuggerExtensionMechanismTest.class.st |  32 ++--
 .../StDebuggerExtensionTestListener.class.st  |  12 +-
 .../StDebuggerInspectorTest.class.st          |  34 ++--
 .../StDebuggerMockCommandTreeBuilder.class.st |  16 +-
 .../StDebuggerObjectForTests.class.st         |  20 ++-
 .../StDebuggerRawObjectInspectorTest.class.st |  10 +-
 ...buggerStackCommandTreeBuilderTest.class.st |  76 ++++-----
 .../StDebuggerTest.class.st                   | 156 +++++++++---------
 ...ebuggerToolCommandTreeBuilderTest.class.st |  28 ++--
 ...ggerToolbarCommandTreeBuilderTest.class.st |  50 +++---
 .../StDebuggerTreeTablePresenter.extension.st |   6 +-
 .../StDebuggerTreeTablePresenterTest.class.st |  26 +--
 .../StDebuggerUsingSpecSelectorMock.class.st  |  38 +++--
 .../StDummyDebuggerPresenter.class.st         |  52 +++---
 .../StFailingAssertionInspectorTest.class.st  |  14 +-
 .../StMockContext.class.st                    |  16 +-
 .../StMockDebugCommand.class.st               |  16 +-
 .../StMockDebuggerActionModel.class.st        |  22 +--
 .../StMockSession.class.st                    |  30 ++--
 .../StTestDebuggerProvider.class.st           |  58 +++----
 .../TStDebuggerExtensionTest.class.st         |  20 ++-
 .../TStDebuggerExtensionTestClass.class.st    |  14 +-
 src/NewTools-Debugger-Tests/package.st        |   2 +-
 src/NewTools-Debugger/StDebugger.class.st     |  32 +---
 43 files changed, 663 insertions(+), 608 deletions(-)

diff --git a/src/NewTools-Debugger-Tests/ContextTest.extension.st b/src/NewTools-Debugger-Tests/ContextTest.extension.st
index b1bcda8f1..50b8804c6 100644
--- a/src/NewTools-Debugger-Tests/ContextTest.extension.st
+++ b/src/NewTools-Debugger-Tests/ContextTest.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #ContextTest }
+Extension { #name : 'ContextTest' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 ContextTest >> testFailedAssertionContextInSenderChain [
 
 	
diff --git a/src/NewTools-Debugger-Tests/HaltInCompiledBlockPrintOnTest.class.st b/src/NewTools-Debugger-Tests/HaltInCompiledBlockPrintOnTest.class.st
index af618dd74..353cbc898 100644
--- a/src/NewTools-Debugger-Tests/HaltInCompiledBlockPrintOnTest.class.st
+++ b/src/NewTools-Debugger-Tests/HaltInCompiledBlockPrintOnTest.class.st
@@ -1,13 +1,15 @@
 Class {
-	#name : #HaltInCompiledBlockPrintOnTest,
-	#superclass : #TestCase,
+	#name : 'HaltInCompiledBlockPrintOnTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'oldCode'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 HaltInCompiledBlockPrintOnTest >> setUp [
 	super setUp.
 	
@@ -17,13 +19,13 @@ HaltInCompiledBlockPrintOnTest >> setUp [
 	'.
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 HaltInCompiledBlockPrintOnTest >> tearDown [ 
 	oldCode ifNotNil: 	[BlockClosure compileSilently: oldCode].
 	super tearDown
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 HaltInCompiledBlockPrintOnTest >> testExecutingHaltingPrintOnABlockOpensASingleDebugger [
 
 	| ourException dbg debugSession sem myProcess |
diff --git a/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHalt.class.st b/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHalt.class.st
index c423ce1f6..2270e85ec 100644
--- a/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHalt.class.st
+++ b/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHalt.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #ObjectWithPrintingRaisingHalt,
-	#superclass : #Object,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'ObjectWithPrintingRaisingHalt',
+	#superclass : 'Object',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #printing }
+{ #category : 'printing' }
 ObjectWithPrintingRaisingHalt >> printOn: aStream [
 
 	<haltOrBreakpointForTesting>
diff --git a/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHaltTest.class.st b/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHaltTest.class.st
index 979f84462..ef59882cc 100644
--- a/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHaltTest.class.st
+++ b/src/NewTools-Debugger-Tests/ObjectWithPrintingRaisingHaltTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #ObjectWithPrintingRaisingHaltTest,
-	#superclass : #TestCase,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'ObjectWithPrintingRaisingHaltTest',
+	#superclass : 'TestCase',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 ObjectWithPrintingRaisingHaltTest >> testInspectingObjectWithPrintOnWithHaltOpenInspector [
 	"Make sure that inspecting an object with a broken printOn: does not produce an endless loop.
 	"
diff --git a/src/NewTools-Debugger-Tests/StDebugContextForTests.class.st b/src/NewTools-Debugger-Tests/StDebugContextForTests.class.st
index 24456e027..d2285fa79 100644
--- a/src/NewTools-Debugger-Tests/StDebugContextForTests.class.st
+++ b/src/NewTools-Debugger-Tests/StDebugContextForTests.class.st
@@ -4,25 +4,27 @@ By default, I act as if a user validated the requested popup.
 This is for tests.
 "
 Class {
-	#name : #StDebugContextForTests,
-	#superclass : #DebugContext,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StDebugContextForTests',
+	#superclass : 'DebugContext',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #private }
+{ #category : 'private' }
 StDebugContextForTests >> browseMethod: aMethod [
 
 	"Do not open a browser, we are in a test"
 ]
 
-{ #category : #'ui requests' }
+{ #category : 'ui requests' }
 StDebugContextForTests >> confirm: aString [
 	"Voluntarily returns true to simulate popup validation"
 
 	^ true
 ]
 
-{ #category : #'ui requests' }
+{ #category : 'ui requests' }
 StDebugContextForTests >> confirm: message trueChoice: trueChoice falseChoice: falseChoice [
 	"Yes?"
 	^ true
diff --git a/src/NewTools-Debugger-Tests/StDebugger.extension.st b/src/NewTools-Debugger-Tests/StDebugger.extension.st
index 5d592da75..6d1528b07 100644
--- a/src/NewTools-Debugger-Tests/StDebugger.extension.st
+++ b/src/NewTools-Debugger-Tests/StDebugger.extension.st
@@ -1,18 +1,25 @@
-Extension { #name : #StDebugger }
+Extension { #name : 'StDebugger' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
+StDebugger class >> activatedDebuggerExtensions [
+
+	^ self extensionToolsClasses select: [ :extension |
+		  extension showInDebugger ]
+]
+
+{ #category : '*NewTools-Debugger-Tests' }
 StDebugger >> inspector [
 
 	^ inspector
 ]
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebugger >> stackAndCodeContainer [
 
 	^ stackAndCodeContainer
 ]
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebugger >> toolbarCommandGroup [
 
 	^ toolbarCommandGroup
diff --git a/src/NewTools-Debugger-Tests/StDebuggerActionModel.extension.st b/src/NewTools-Debugger-Tests/StDebuggerActionModel.extension.st
index 28562fc79..1ec0e4a77 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerActionModel.extension.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerActionModel.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #StDebuggerActionModel }
+Extension { #name : 'StDebuggerActionModel' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebuggerActionModel >> hasSubscriber: aDebugger [
 
 	^ self announcer hasSubscriber: aDebugger
diff --git a/src/NewTools-Debugger-Tests/StDebuggerActionModelAnnouncementTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerActionModelAnnouncementTest.class.st
index 6393ff4eb..bf62e6b2a 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerActionModelAnnouncementTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerActionModelAnnouncementTest.class.st
@@ -1,20 +1,22 @@
 Class {
-	#name : #StDebuggerActionModelAnnouncementTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerActionModelAnnouncementTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'debugActionModel'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerActionModelAnnouncementTest >> setUp [
 
 	super setUp.
 	debugActionModel := StMockDebuggerActionModel new
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelAnnouncementTest >> testDebuggerActionModel [
 
 	| actionModelAnnouncement |
diff --git a/src/NewTools-Debugger-Tests/StDebuggerActionModelTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerActionModelTest.class.st
index 86c81fb27..5e05ecd41 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerActionModelTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerActionModelTest.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : #StDebuggerActionModelTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerActionModelTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'session',
 		'debugActionModel',
@@ -10,21 +10,23 @@ Class {
 		'methodWithBlockContextOriginalSource',
 		'setResultOriginalSourceCode'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #benchmarking }
+{ #category : 'benchmarking' }
 StDebuggerActionModelTest class >> benchFilterStack [
 	<script>
 	^self new benchmarkFilterStack inspect
 ]
 
-{ #category : #benchmarks }
+{ #category : 'benchmarks' }
 StDebuggerActionModelTest >> bench: aBlock [
 	^ aBlock timeToRun asNanoSeconds
 ]
 
-{ #category : #benchmarks }
+{ #category : 'benchmarks' }
 StDebuggerActionModelTest >> benchmarkFilterStack [
 	| stack1 stack2 beforeResults afterResults |
 	[ self method1: 0 ]
@@ -53,7 +55,7 @@ StDebuggerActionModelTest >> benchmarkFilterStack [
 	New behavior: ', afterResults printString, ' nanoseconds measured.'
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> changeSession: aDebugSession [
 
 	debugActionModel clear; clearDebugSession.
@@ -61,7 +63,7 @@ StDebuggerActionModelTest >> changeSession: aDebugSession [
 	debugActionModel := StDebuggerActionModel on: session
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> emptyContextForMethod: aCompiledMethod [
 	^ (Context newForMethod: aCompiledMethod)
 		  initializeWith: nil
@@ -72,35 +74,35 @@ StDebuggerActionModelTest >> emptyContextForMethod: aCompiledMethod [
 		  yourself
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> evaluateMethodWithDeadHomeBlockContext [
 
 	self methodWithDeadBlockContext value
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> fileOutMethod: anObject [
 	result := anObject
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> method1: i [
 	^self method2: i+1
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> method2: i [
 	<haltOrBreakpointForTesting>
 	i = 9999 ifTrue: [ self halt. ^i ].
 	^self method1: i+1
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> methodClass [
 	^self
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> methodWithBlockContext [
 
 	| block |
@@ -108,18 +110,18 @@ StDebuggerActionModelTest >> methodWithBlockContext [
 	block value
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> methodWithDeadBlockContext [
 
 	^ [ (1+1 ) printString ]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> methodWithPragma [
 	<debuggerCompleteToSender>
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> newSessionWithBlockContext [
 
 	| process method |
@@ -135,7 +137,7 @@ StDebuggerActionModelTest >> newSessionWithBlockContext [
 		debugActionModel stepInto: debugActionModel topContext ]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> newSessionWithDeadHomeBlockContext [
 
 	| process method |
@@ -153,7 +155,7 @@ StDebuggerActionModelTest >> newSessionWithDeadHomeBlockContext [
 	]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> resetModifiedSourceCode [
 
 	methodWithBlockContextOriginalSource ifNotNil: [
@@ -162,18 +164,18 @@ StDebuggerActionModelTest >> resetModifiedSourceCode [
 		self class compile: setResultOriginalSourceCode ]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> session [
 	^debugger session
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerActionModelTest >> setResult [
 	result := 2 squared.
 	^result
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerActionModelTest >> setSessionAndDebuggerModelForMethod: aMethod inContext: aContext [
 
 	| dummyActionModel |
@@ -188,7 +190,7 @@ StDebuggerActionModelTest >> setSessionAndDebuggerModelForMethod: aMethod inCont
 	shouldFilterStack := StDebuggerActionModel shouldFilterStack
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerActionModelTest >> setUp [
 
 	| method process |
@@ -202,7 +204,7 @@ StDebuggerActionModelTest >> setUp [
 		inContext: process suspendedContext
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerActionModelTest >> tearDown [
 	debugActionModel clear.
 	debugger ifNotNil: [ debugger clear].
@@ -219,7 +221,7 @@ StDebuggerActionModelTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testClearDebugSession [
 	| process |
 	process := session interruptedProcess.
@@ -229,7 +231,7 @@ StDebuggerActionModelTest >> testClearDebugSession [
 	self assert: session interruptedContext isNil
 ]
 
-{ #category : #'tests - contexts' }
+{ #category : 'tests - contexts' }
 StDebuggerActionModelTest >> testComputeInitialTopContext [
 
 	| newSession dummyActionModel |
@@ -257,7 +259,7 @@ StDebuggerActionModelTest >> testComputeInitialTopContext [
 		identicalTo: session interruptedContext
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testCopyStackToClipboard [
 	debugActionModel copyStackToClipboard.
 	self
@@ -267,17 +269,17 @@ StDebuggerActionModelTest >> testCopyStackToClipboard [
 				streamContents: [ :s | session interruptedContext shortDebugStackOn: s ])
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testCreateMissingMethod [
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testDefaultShouldFilterStack [
 
 	self assert: StDebuggerActionModel shouldFilterStack
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testDynamicShouldFilterStack [
 
 	| mockDebugActionModel |
@@ -296,7 +298,7 @@ StDebuggerActionModelTest >> testDynamicShouldFilterStack [
 		clearDebugSession
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testDynamicShouldFilterStackUpdate [
 
 	|mockDebugActionModel context|
@@ -346,7 +348,7 @@ StDebuggerActionModelTest >> testDynamicShouldFilterStackUpdate [
 	
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterClear [
 
 	| dummyActionModel dummyDebugger |
@@ -375,7 +377,7 @@ StDebuggerActionModelTest >> testEventAfterClear [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterMethodAdded [
 
 	| dummyActionModel dummyDebugger |
@@ -404,7 +406,7 @@ StDebuggerActionModelTest >> testEventAfterMethodAdded [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterProceed [
 
 	| ctx dummyDebugger |
@@ -429,7 +431,7 @@ StDebuggerActionModelTest >> testEventAfterProceed [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterRecompileMethod [
 
 	| ctx dummyDebugger |
@@ -465,7 +467,7 @@ StDebuggerActionModelTest >> testEventAfterRecompileMethod [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterRestart [
 
 	| ctx dummyDebugger |
@@ -494,7 +496,7 @@ StDebuggerActionModelTest >> testEventAfterRestart [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterStepInto [
 
 	| ctx dummyDebugger |
@@ -519,7 +521,7 @@ StDebuggerActionModelTest >> testEventAfterStepInto [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterStepOver [
 
 	| ctx dummyDebugger |
@@ -544,7 +546,7 @@ StDebuggerActionModelTest >> testEventAfterStepOver [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testEventAfterStepThrough [
 
 	| ctx dummyDebugger |
@@ -569,7 +571,7 @@ StDebuggerActionModelTest >> testEventAfterStepThrough [
 		identicalTo: debugActionModel
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testExceptionProvidesSameExceptionAsTheSessionOne [
 
 	self
@@ -577,13 +579,13 @@ StDebuggerActionModelTest >> testExceptionProvidesSameExceptionAsTheSessionOne [
 		equals: debugActionModel session exception
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testFileOutMethod [
 	debugActionModel fileOutMethod: self.
 	self assert: result equals: self selector
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testFilterDNUStack [
 
 	|stack filteredStack dummyActionModel|
@@ -610,7 +612,7 @@ StDebuggerActionModelTest >> testFilterDNUStack [
 	
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testFilterMissingSubclassResponsibilityStack [
 
 	|stack filteredStack dummyActionModel|	
@@ -632,7 +634,7 @@ StDebuggerActionModelTest >> testFilterMissingSubclassResponsibilityStack [
 	self assert: filteredStack second identicalTo: stack fifth
 ]
 
-{ #category : #'tests - stack filtering' }
+{ #category : 'tests - stack filtering' }
 StDebuggerActionModelTest >> testFilterStack [
 
 	|stack filteredStack dummyActionModel|
@@ -660,7 +662,7 @@ StDebuggerActionModelTest >> testFilterStack [
 	self assert: filteredStack second identicalTo: stack third
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testImplementInClassForContext [
 	|method|
 	method := (StDebuggerUsingSpecSelectorMock lookupSelector: #method).
@@ -677,7 +679,7 @@ StDebuggerActionModelTest >> testImplementInClassForContext [
 	self assert: method methodClass identicalTo: StDebuggerUsingSpecSelectorMock
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testImplementMethodClassification [
 
 	| method |
@@ -716,7 +718,7 @@ StDebuggerActionModelTest >> testImplementMethodClassification [
 	self deny: method isClassified
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testInitialization [
 	self assert: debugActionModel session identicalTo: session.
 	self
@@ -724,13 +726,13 @@ StDebuggerActionModelTest >> testInitialization [
 		identicalTo: session interruptedContext
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testInterruptedContextProvidesSameContextAsTheSessionOne [
 
 	self assert: debugActionModel interruptedContext equals: debugActionModel session interruptedContext 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testInterruptedProcessProvidesSameProcessAsTheSessionOne [
 
 	self
@@ -738,7 +740,7 @@ StDebuggerActionModelTest >> testInterruptedProcessProvidesSameProcessAsTheSessi
 		equals: debugActionModel session interruptedProcess
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsContextAnAssertionFailure [
 	| dummyActionModel |
 	dummyActionModel := StTestDebuggerProvider new debuggerWithFailingAssertionContext debuggerActionModel.
@@ -747,12 +749,12 @@ StDebuggerActionModelTest >> testIsContextAnAssertionFailure [
 	self assert: debugActionModel isContextAnAssertionFailure
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsContextSteppable [
 	self assert: debugActionModel isContextSteppable
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextAnAssertEqualsFailure [
 	| dummyActionModel |
 	dummyActionModel := StTestDebuggerProvider new debuggerWithFailingAssertionContext debuggerActionModel.
@@ -763,13 +765,13 @@ StDebuggerActionModelTest >> testIsInterruptedContextAnAssertEqualsFailure [
 	self assert: debugActionModel isContextAnAssertionFailure
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextDead [
 	session interruptedContext pc: nil.
 	self assert: debugActionModel isInterruptedContextDead
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextDoesNotUnderstand [
 	| dummyActionModel |
 	dummyActionModel := StTestDebuggerProvider new debuggerWithDNUContext debuggerActionModel.
@@ -780,7 +782,7 @@ StDebuggerActionModelTest >> testIsInterruptedContextDoesNotUnderstand [
 	self deny: debugActionModel isInterruptedContextDoesNotUnderstand
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextMissingClassException [
 	| dummyActionModel |
 	StTestDebuggerProvider compileMissingClassContextBuilder.
@@ -790,13 +792,13 @@ StDebuggerActionModelTest >> testIsInterruptedContextMissingClassException [
 	self assert: debugActionModel isInterruptedContextMissingClassException
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextPostMortem [
 	session resume.
 	self assert: debugActionModel isInterruptedContextPostMortem
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testIsInterruptedContextSubclassResponsibilityException [
 	| dummyActionModel |
 	dummyActionModel := StTestDebuggerProvider new debuggerWithMissingSubclassResponsibilityContext debuggerActionModel.
@@ -805,7 +807,7 @@ StDebuggerActionModelTest >> testIsInterruptedContextSubclassResponsibilityExcep
 	self assert: debugActionModel isInterruptedContextSubclassResponsibilityException
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testPeelToFirstLike [
 
 	| firstCaller dummyActionModel |
@@ -835,7 +837,7 @@ StDebuggerActionModelTest >> testPeelToFirstLike [
 	self assert: debugActionModel topContext identicalTo: firstCaller
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testProceedDebugSession [
 	self deny: session interruptedContext isNil.
 	self assert: result isNil.
@@ -844,7 +846,7 @@ StDebuggerActionModelTest >> testProceedDebugSession [
 	self assert: result equals: 4
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRecompileMethodToInBlockContext [
 
 	| contextChanged previousASTScope |
@@ -875,7 +877,7 @@ StDebuggerActionModelTest >> testRecompileMethodToInBlockContext [
 		identicalTo: (self class >> #methodWithBlockContext) ast statements first value scope
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRecompileMethodToInBlockContextWithDeadHome [
 
 	| contextChanged |
@@ -899,7 +901,7 @@ StDebuggerActionModelTest >> testRecompileMethodToInBlockContextWithDeadHome [
 	^ [ (1 + 1) printString ] yourself'
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRecompileMethodToInBlockContextWithDeadHomeRemainsInOldBlock [
 
 	| contextChanged |
@@ -920,7 +922,7 @@ StDebuggerActionModelTest >> testRecompileMethodToInBlockContextWithDeadHomeRema
 	self assert: debugActionModel topContext equals: contextChanged
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRecompileMethodToInContextNotifyingUpdatesSourceCodeAndContext [
 
 	| oldStack contextChanged expectedNewStack rejectedFromOldStack |
@@ -953,7 +955,7 @@ StDebuggerActionModelTest >> testRecompileMethodToInContextNotifyingUpdatesSourc
 	self assert: debugActionModel topContext identicalTo: contextChanged
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRestartContext [
 	|topContext topPC|
 	topContext := 
@@ -966,7 +968,7 @@ StDebuggerActionModelTest >> testRestartContext [
 	self assert: session interruptedContext pc equals: topPC
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testReturnValueFromExpressionFromContext [
 	session stepInto.
 	session stepInto.
@@ -976,7 +978,7 @@ StDebuggerActionModelTest >> testReturnValueFromExpressionFromContext [
 	self assert: result equals: 0
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testRunToSelectionInContext [
 	|method node|
 	method := (self class >> #setResult).
@@ -986,7 +988,7 @@ StDebuggerActionModelTest >> testRunToSelectionInContext [
 	self assert: (method sourceNodeForPC: session interruptedContext pc) identicalTo: node
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testSelectedCodeRangeForContext [
 
 	| method node |
@@ -1010,13 +1012,13 @@ StDebuggerActionModelTest >> testSelectedCodeRangeForContext [
 		(session selectedCodeRangeForContext: session interruptedContext)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testSessionStackProvidesSameStackAsTheSessionOne [
 
 	self assert: debugActionModel stack equals: debugActionModel session stack
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testStackOfSizeWhenStackIsBigger [
 
 	| oldStack newStack |
@@ -1033,7 +1035,7 @@ StDebuggerActionModelTest >> testStackOfSizeWhenStackIsBigger [
 		(newStack collect: [ :obj | obj ] from: 2 to: oldStack size + 1)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerActionModelTest >> testStackOfSizeWhenStackIsNotBigger [
 
 	| oldStack newStack |
@@ -1047,7 +1049,7 @@ StDebuggerActionModelTest >> testStackOfSizeWhenStackIsNotBigger [
 		equals: (newStack collect: [ :obj | obj ] from: 1 to: oldStack size)
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testStepInto [
 	|ctx|
 	ctx := session interruptedContext.
@@ -1057,7 +1059,7 @@ StDebuggerActionModelTest >> testStepInto [
 	self assert: session stack second identicalTo: ctx
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testStepIntoQuickMethods [
 	|ctx|
 	ctx := StMockContext new.
@@ -1073,7 +1075,7 @@ StDebuggerActionModelTest >> testStepIntoQuickMethods [
 	self assert: ctx stepIntoQuickMethodBooleans second equals: false
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testStepOver [
 	| method ctx |
 	method := self class >> #setResult.
@@ -1089,7 +1091,7 @@ StDebuggerActionModelTest >> testStepOver [
 		identicalTo: method ast statements second
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerActionModelTest >> testStepThrough [
 	| method ctx |
 	method := self class >> #setResult.
@@ -1105,7 +1107,7 @@ StDebuggerActionModelTest >> testStepThrough [
 		identicalTo: method ast statements second
 ]
 
-{ #category : #'tests - predicates' }
+{ #category : 'tests - predicates' }
 StDebuggerActionModelTest >> testUpdateDebugSession [
 
 	| exception dummyActionModel |
@@ -1120,7 +1122,7 @@ StDebuggerActionModelTest >> testUpdateDebugSession [
 	self assert: session exception identicalTo: exception
 ]
 
-{ #category : #'tests - contexts' }
+{ #category : 'tests - contexts' }
 StDebuggerActionModelTest >> testUpdateTopContext [
 	
 	| dummyActionModel |
@@ -1135,7 +1137,7 @@ StDebuggerActionModelTest >> testUpdateTopContext [
 	
 ]
 
-{ #category : #'tests - contexts' }
+{ #category : 'tests - contexts' }
 StDebuggerActionModelTest >> testUpdateTopContextAfterSessionOperation [
 	|mockDebugActionModel context|
 	context := [  ] asContext.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerAssertionContextTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerAssertionContextTest.class.st
index 57d61ea06..16325af8c 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerAssertionContextTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerAssertionContextTest.class.st
@@ -1,14 +1,16 @@
 Class {
-	#name : #StDebuggerAssertionContextTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerAssertionContextTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'session',
 		'debugger'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerAssertionContextTest >> tearDown [
 	session ifNotNil:[session clear].
 	debugger ifNotNil: [ 
@@ -20,7 +22,7 @@ StDebuggerAssertionContextTest >> tearDown [
 	super tearDown 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerAssertionContextTest >> testFindFailedAssertionContextInSenderChain [
 
 	debugger := StTestDebuggerProvider new debuggerWithFailingAssertionContext.
@@ -35,7 +37,7 @@ StDebuggerAssertionContextTest >> testFindFailedAssertionContextInSenderChain [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerAssertionContextTest >> testFindFailedAssertionResultsInSenderChain [
 	| assertionResult|
 	debugger := StTestDebuggerProvider new debuggerWithFailingAssertionContext.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerCodeCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerCodeCommandTreeBuilderTest.class.st
index 41230739c..2850e59f4 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerCodeCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerCodeCommandTreeBuilderTest.class.st
@@ -1,17 +1,19 @@
 Class {
-	#name : #StDebuggerCodeCommandTreeBuilderTest,
-	#superclass : #StDebuggerToolCommandTreeBuilderTest,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'StDebuggerCodeCommandTreeBuilderTest',
+	#superclass : 'StDebuggerToolCommandTreeBuilderTest',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerCodeCommandTreeBuilderTest >> newBuilder [
 	^ StDebuggerCodeCommandTreeBuilder
 		buildCommandsGroupWith: debugger
 		forRoot: rootGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testCodeDebugCommands [
 	|codeCommandClasses|
 	codeCommandClasses := OrderedCollection new.
@@ -23,34 +25,34 @@ StDebuggerCodeCommandTreeBuilderTest >> testCodeDebugCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testCodeDebugCommandsDescription [
 	self assert: builder  codeDebugCommandsDescription equals: 'Execution control'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testCodeDebugCommandsGroupName [
 	self assert: builder  codeDebugCommandsGroupName equals: 'Execution'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testCodeExecutionControlCommandsClasses [
 	self
 		assertCollection: builder codeExecutionControlCommandsClasses
 		equals: {StRunToSelectionCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testDisplayStrategy [
 	self assert: builder class displayStrategy equals: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testGroupDescription [
 	self assert: builder class groupDescription equals: 'Debug actions from code'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCodeCommandTreeBuilderTest >> testGroupName [
 	self assert: builder class groupName equals: 'Code'
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerCommandTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerCommandTest.class.st
index e16e44cda..8c5f08e23 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerCommandTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerCommandTest.class.st
@@ -1,13 +1,15 @@
 Class {
-	#name : #StDebuggerCommandTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerCommandTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'debuggerProvider'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerCommandTest >> setUp [
 	"Hooks that subclasses may override to define the fixture of test."
 
@@ -15,7 +17,7 @@ StDebuggerCommandTest >> setUp [
 	debuggerProvider := StTestDebuggerProvider new
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerCommandTest >> tearDown [
 	debuggerProvider terminate.
 	(StTestDebuggerProvider lookupSelector:
@@ -24,7 +26,7 @@ StDebuggerCommandTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInDNUContext [
 
 	| debugger |
@@ -65,7 +67,7 @@ StDebuggerCommandTest >> testCommandsInDNUContext [
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInDeadContext [
 
 	| debugger |
@@ -103,7 +105,7 @@ StDebuggerCommandTest >> testCommandsInDeadContext [
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInErrorContext [
 
 	| debugger |
@@ -143,7 +145,7 @@ StDebuggerCommandTest >> testCommandsInErrorContext [
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInFailingTestContext [
 
 	|debugger|
@@ -174,7 +176,7 @@ StDebuggerCommandTest >> testCommandsInFailingTestContext [
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInMissingClassContext [
 	"When a class is missing, it is possible we are trying to send it a message.
 	Define new class and define new method must be possible. "	
@@ -208,7 +210,7 @@ StDebuggerCommandTest >> testCommandsInMissingClassContext [
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInMissingSubclassResponsibilityContext [
 
 	| debugger |
@@ -249,7 +251,7 @@ StDebuggerCommandTest >> testCommandsInMissingSubclassResponsibilityContext [
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTest >> testCommandsInRunnableContext [
 
 	|debugger|
@@ -280,7 +282,7 @@ StDebuggerCommandTest >> testCommandsInRunnableContext [
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStCopyStackToClipboardCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -291,7 +293,7 @@ StDebuggerCommandTest >> testStCopyStackToClipboardCommandExecution [
 	self assert: debugger tag equals: #copyStackToClipboard
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStDefineClassCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -302,7 +304,7 @@ StDebuggerCommandTest >> testStDefineClassCommandExecution [
 	self assert: debugger tag equals: #createMissingClass
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStDefineMethodCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -313,7 +315,7 @@ StDebuggerCommandTest >> testStDefineMethodCommandExecution [
 	self assert: debugger tag equals: #createMissingMethod
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStDefineMissingEntityCommandExecution [
 
 	| debugger command oldActionModel |
@@ -350,7 +352,7 @@ StDebuggerCommandTest >> testStDefineMissingEntityCommandExecution [
 	debugger debuggerActionModel clear
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStDefineSubclassResponsabilityCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -361,7 +363,7 @@ StDebuggerCommandTest >> testStDefineSubclassResponsabilityCommandExecution [
 	self assert: debugger tag equals: #createSubclassResponsibility
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStFileOutMethodCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -372,7 +374,7 @@ StDebuggerCommandTest >> testStFileOutMethodCommandExecution [
 	self assert: debugger tag equals: #fileOutSelectedContext
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStPeelToFirstCommandExecution [
 	
 	|debugger command|
@@ -383,7 +385,7 @@ StDebuggerCommandTest >> testStPeelToFirstCommandExecution [
 	self assert: debugger tag equals: #peelToFirstLike:
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStProceedCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -394,7 +396,7 @@ StDebuggerCommandTest >> testStProceedCommandExecution [
 	self assert: debugger tag equals: #proceedDebugSession
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStRestartCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -405,7 +407,7 @@ StDebuggerCommandTest >> testStRestartCommandExecution [
 	self assert: debugger tag equals: #restartCurrentContext
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStReturnValueCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -416,7 +418,7 @@ StDebuggerCommandTest >> testStReturnValueCommandExecution [
 	self assert: debugger tag equals: #returnEnteredValue
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStRunToSelectionCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -427,7 +429,7 @@ StDebuggerCommandTest >> testStRunToSelectionCommandExecution [
 	self assert: debugger tag equals: #runToSelection
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStShowFullStackCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -438,7 +440,7 @@ StDebuggerCommandTest >> testStShowFullStackCommandExecution [
 	self assert: debugger tag equals: #showFullStack
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStStepIntoCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -449,7 +451,7 @@ StDebuggerCommandTest >> testStStepIntoCommandExecution [
 	self assert: debugger tag equals: #stepInto
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStStepOverCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -460,7 +462,7 @@ StDebuggerCommandTest >> testStStepOverCommandExecution [
 	self assert: debugger tag equals: #stepOver
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStStepThroughCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
@@ -471,7 +473,7 @@ StDebuggerCommandTest >> testStStepThroughCommandExecution [
 	self assert: debugger tag equals: #stepThrough
 ]
 
-{ #category : #'tests - execution' }
+{ #category : 'tests - execution' }
 StDebuggerCommandTest >> testStWhereIsCommandExecution [
 	"Generated 5 June 2020"
 	|debugger command|
diff --git a/src/NewTools-Debugger-Tests/StDebuggerCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerCommandTreeBuilderTest.class.st
index 7ccc3bd82..75a73593d 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerCommandTreeBuilderTest.class.st
@@ -1,13 +1,15 @@
 Class {
-	#name : #StDebuggerCommandTreeBuilderTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerCommandTreeBuilderTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'builder'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerCommandTreeBuilderTest >> setUp [
 	"Hooks that subclasses may override to define the fixture of test."
 	
@@ -15,12 +17,12 @@ StDebuggerCommandTreeBuilderTest >> setUp [
 	builder := StDebuggerMockCommandTreeBuilder new
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testDisplayStrategy [
 	self assert: builder displayStrategy class equals: builder class displayStrategy
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testGroup [
 	|rootGroup|
 	rootGroup := (CmCommandGroup named: 'root') asSpecGroup.
@@ -30,7 +32,7 @@ StDebuggerCommandTreeBuilderTest >> testGroup [
 	self assert: builder group description equals: builder class groupDescription
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testGroupBuilding [
 	|rootGroup|
 	rootGroup := (CmCommandGroup named: 'root') asSpecGroup.
@@ -44,12 +46,12 @@ StDebuggerCommandTreeBuilderTest >> testGroupBuilding [
 	self deny: rootGroup groups first isRoot
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testGroupDescription [
 	self assert: builder groupDescription equals: builder class groupDescription
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerCommandTreeBuilderTest >> testGroupName [
 	self assert: builder groupName equals: builder class groupName
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerConfigurationCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerConfigurationCommandTreeBuilderTest.class.st
index 1a49b9d1f..1457316df 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerConfigurationCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerConfigurationCommandTreeBuilderTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StDebuggerConfigurationCommandTreeBuilderTest,
-	#superclass : #StDebuggerToolCommandTreeBuilderTest,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'StDebuggerConfigurationCommandTreeBuilderTest',
+	#superclass : 'StDebuggerToolCommandTreeBuilderTest',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerConfigurationCommandTreeBuilderTest >> newBuilder [
 
 	^ StDebuggerConfigurationCommandTreeBuilder
@@ -12,7 +14,7 @@ StDebuggerConfigurationCommandTreeBuilderTest >> newBuilder [
 		  forRoot: rootGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testConfigurationCommands [
 	self
 		assertCommandGroup: builder generalConfigurationCommandsGroup
@@ -21,7 +23,7 @@ StDebuggerConfigurationCommandTreeBuilderTest >> testConfigurationCommands [
 		displayStrategy: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testConfigurationCommandsClasses [
 
 	self assertCollection: builder configurationCommandClasses equals: {
@@ -29,19 +31,19 @@ StDebuggerConfigurationCommandTreeBuilderTest >> testConfigurationCommandsClasse
 			StDebuggerSettingsCommand }
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testDisplayStrategy [
 	self
 		assert: builder class displayStrategy
 		equals: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testGroupDescription [
 	self assert: builder class groupDescription equals: 'Debugger configuration actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerConfigurationCommandTreeBuilderTest >> testGroupName [
 	self assert: builder class groupName equals: 'Debugger configuration'
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerContextInteractionModelTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerContextInteractionModelTest.class.st
index ba66fb6e2..c98bd0458 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerContextInteractionModelTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerContextInteractionModelTest.class.st
@@ -1,14 +1,16 @@
 Class {
-	#name : #StDebuggerContextInteractionModelTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerContextInteractionModelTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'instanceVariableForTest',
 		'model'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerContextInteractionModelTest >> helperMethodForBindings [
 
 	| tempVariableForTest |
@@ -17,7 +19,7 @@ StDebuggerContextInteractionModelTest >> helperMethodForBindings [
 	^ 44
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerContextInteractionModelTest >> setUp [
 
 	| context |
@@ -31,7 +33,7 @@ StDebuggerContextInteractionModelTest >> setUp [
 	"Put here a common initialization logic for tests"
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testAddBinding [
 
 	self assert: (model bindingOf: 'tata') equals: nil.
@@ -43,7 +45,7 @@ StDebuggerContextInteractionModelTest >> testAddBinding [
 		equals: 'titi'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testAddBindingDeletesOldBindingIfSameKey [
 
 	self
@@ -57,7 +59,7 @@ StDebuggerContextInteractionModelTest >> testAddBindingDeletesOldBindingIfSameKe
 		equals: 42
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testBindingOf [
 
 	"These are values given in the setUp method and in the helper method"
@@ -93,7 +95,7 @@ StDebuggerContextInteractionModelTest >> testBindingOf [
 		equals: 41
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testBindingOfPrioritizesContextBindingsToInteractionModelBindings [
 
 	"These are values given in the setUp method and in the helper method"
@@ -121,7 +123,7 @@ StDebuggerContextInteractionModelTest >> testBindingOfPrioritizesContextBindings
 		equals: 42.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testCompile [
 
 	| result |
@@ -151,7 +153,7 @@ StDebuggerContextInteractionModelTest >> testCompile [
 	self assert: result equals: 53
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testHasBindingsInContextOf [
 
 	self
@@ -161,7 +163,7 @@ StDebuggerContextInteractionModelTest >> testHasBindingsInContextOf [
 		assert: (model hasBindingInContextOf: 'tata') not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testHasBindingsInInteractionModelOf [
 
 	self
@@ -174,7 +176,7 @@ StDebuggerContextInteractionModelTest >> testHasBindingsInInteractionModelOf [
 		assert: (model hasBindingInInteractionModelOf: 'tata') not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testHasBindingsReturnsTrueWhenVariableIsInContextOrInInteractionModel [
 
 	self
@@ -184,7 +186,7 @@ StDebuggerContextInteractionModelTest >> testHasBindingsReturnsTrueWhenVariableI
 		assert: (model hasBindingOf: 'tata') not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testHasUnsavedCodeChanges [
 
 	| code |
@@ -198,7 +200,7 @@ StDebuggerContextInteractionModelTest >> testHasUnsavedCodeChanges [
 	self assert: model hasUnsavedCodeChanges
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testInteractionModelArePreservedAfterChangingContext [
 
 	self
@@ -214,7 +216,7 @@ StDebuggerContextInteractionModelTest >> testInteractionModelArePreservedAfterCh
 	self assert: (model hasBindingOf: 'tempVariableForTest') not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextInteractionModelTest >> testNilContextModel [
 
 	self deny:
diff --git a/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st
index e36a8ec4c..c8d498a52 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerContextPredicateTest.class.st
@@ -1,26 +1,28 @@
 Class {
-	#name : #StDebuggerContextPredicateTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerContextPredicateTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'predicate',
 		'context'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerContextPredicateTest >> setUp [
 	super setUp.
 	context := [  ] asContext.
 	predicate := (StDebuggerContextPredicate context: context)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testContext [
 	self assert: predicate context identicalTo: context
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testIsContextDead [
 	
 	self deny: predicate isContextDead.
@@ -28,7 +30,7 @@ StDebuggerContextPredicateTest >> testIsContextDead [
 	self assert: predicate isContextDead
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testIsSteppable [
 
 	self assert: predicate isSteppable.
@@ -42,13 +44,13 @@ StDebuggerContextPredicateTest >> testIsSteppable [
 	self deny: predicate isSteppable
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testPrintDescription [
 	self skip.
 	self assert: predicate printDescription equals: '0'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testPrintHaltDescription [
 	|haltContext|
 	haltContext := (StTestDebuggerProvider new debuggerWithRunnableContext) interruptedContext.
@@ -56,7 +58,7 @@ StDebuggerContextPredicateTest >> testPrintHaltDescription [
 	self assert: predicate printDescription equals: 'Halt in ', haltContext printString
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextPredicateTest >> testPrintPostMortemDescription [
 	self skip.
 	predicate postMortem: true.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerContextTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerContextTest.class.st
index 4d46ec001..adaf89580 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerContextTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerContextTest.class.st
@@ -1,14 +1,16 @@
 Class {
-	#name : #StDebuggerContextTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerContextTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'debuggerContext',
 		'hostObject'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerContextTest >> contextWithArgs [
 
 	"Creates and returns a context in which we step until we enter a method with temporary variables, then step two times over the assignement of the first temp"
@@ -23,7 +25,7 @@ StDebuggerContextTest >> contextWithArgs [
 	^ context
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerContextTest >> contextWithArgsInBlock [
 
 	"Creates and returns a context in which we step until we enter a method with arguments in a block, then step 4 times until we're in the block"
@@ -38,7 +40,7 @@ StDebuggerContextTest >> contextWithArgsInBlock [
 	^ context
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerContextTest >> contextWithTemps [
 
 	"Creates and returns a context in which we step until we enter a method with temporary variables, then step two times over the assignement of the first temp"
@@ -53,7 +55,7 @@ StDebuggerContextTest >> contextWithTemps [
 	^ context
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerContextTest >> setUp [
 	super setUp.
 	
@@ -61,7 +63,7 @@ StDebuggerContextTest >> setUp [
 	hostObject := StDebuggerObjectForTests new
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testArgumentsNodes [
 	|nodes| 
 	debuggerContext context: self contextWithArgs.
@@ -78,7 +80,7 @@ StDebuggerContextTest >> testArgumentsNodes [
 	self deny: (nodes anySatisfy: [:n| n key = 'self'])
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testArgumentsNodesInBlock [
 	|nodes|
 	debuggerContext context: self contextWithArgsInBlock.
@@ -93,7 +95,7 @@ StDebuggerContextTest >> testArgumentsNodesInBlock [
 	self deny: (nodes anySatisfy: [:n| n key = 'self'])
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testBuildInspectorNodes [
 	|nodes nodesNames|
 	debuggerContext context: self contextWithArgs.
@@ -119,7 +121,7 @@ StDebuggerContextTest >> testBuildInspectorNodes [
 	self assert: nodesNames size equals: 8
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testBuildInspectorNodesForException [
 	| nodes object exception |
 	<ignoreNotImplementedSelectors: #(toto)>
@@ -137,7 +139,7 @@ StDebuggerContextTest >> testBuildInspectorNodesForException [
 	self assert: (nodes last) rawValue identicalTo: object
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testContext [
 
 	| closure contextSource ctx |
@@ -151,7 +153,7 @@ StDebuggerContextTest >> testContext [
 	self assert: debuggerContext context identicalTo: ctx
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testExceptionNodes [
 
 	| nodes object exception |
@@ -176,7 +178,7 @@ StDebuggerContextTest >> testExceptionNodes [
 	self assert: nodes first variableTag equals: 'implicit'.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testNoDuplicatesBetweenArgsAndTemps [
 	|nodes nodesNamesArray nodesNamesSet|
 	debuggerContext context: self contextWithArgs.
@@ -186,13 +188,13 @@ StDebuggerContextTest >> testNoDuplicatesBetweenArgsAndTemps [
 	self assertCollection: nodesNamesArray equals: nodesNamesSet
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testNullExceptionNodes [
 
 	self assertEmpty: debuggerContext exceptionNodes
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testReceiverNodes [
 
 	| nodes |
@@ -203,7 +205,7 @@ StDebuggerContextTest >> testReceiverNodes [
 	self assert: nodes first rawValue equals: hostObject instVar
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testSelfNodes [
 
 	| node |
@@ -213,7 +215,7 @@ StDebuggerContextTest >> testSelfNodes [
 	self assert: node rawValue identicalTo: hostObject.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testStackTopNode [	
 	| node|
 	"We step once on the context to be on the value part of the next assignment"
@@ -223,7 +225,7 @@ StDebuggerContextTest >> testStackTopNode [
 	self assert: node rawValue equals: 0
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testTemporaryVariablesNodes [
 	|nodes|	
 	debuggerContext context: self contextWithTemps.
@@ -240,7 +242,7 @@ StDebuggerContextTest >> testTemporaryVariablesNodes [
 	self deny: (nodes anySatisfy: [:n| n key = 'self'])
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerContextTest >> testThisContextNode [
 	|ctx node|
 	ctx := self contextWithTemps.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerErrorContextPredicate.extension.st b/src/NewTools-Debugger-Tests/StDebuggerErrorContextPredicate.extension.st
index e48f84fce..a432e67a5 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerErrorContextPredicate.extension.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerErrorContextPredicate.extension.st
@@ -1,6 +1,6 @@
-Extension { #name : #StDebuggerErrorContextPredicate }
+Extension { #name : 'StDebuggerErrorContextPredicate' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebuggerErrorContextPredicate >> exception [
 
 	^ exception
diff --git a/src/NewTools-Debugger-Tests/StDebuggerExtensionGeneratorForTests.class.st b/src/NewTools-Debugger-Tests/StDebuggerExtensionGeneratorForTests.class.st
index 38fd3278b..d4421af13 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerExtensionGeneratorForTests.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerExtensionGeneratorForTests.class.st
@@ -3,12 +3,14 @@ I just provide helper methods to generate and remove classes that use the `TStDe
 These classes are used exclusively in tests, and should be part of the system (remove them in your `tearDown`).
 "
 Class {
-	#name : #StDebuggerExtensionGeneratorForTests,
-	#superclass : #Object,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StDebuggerExtensionGeneratorForTests',
+	#superclass : 'Object',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionGeneratorForTests class >> generateTestClass [
 
 	self classInstaller make: [ :builder |
@@ -23,7 +25,7 @@ StDebuggerExtensionGeneratorForTests class >> generateTestClass [
 	self testClass compile: 'debuggerExtensionToolName ^ ''TStDebuggerExtensionTestClass'''.
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionGeneratorForTests class >> removeTestClass [
 
 	Smalltalk
@@ -31,7 +33,7 @@ StDebuggerExtensionGeneratorForTests class >> removeTestClass [
 		ifPresent: [ :class | class removeFromSystem ]
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionGeneratorForTests class >> testClass [
 
 	^ Smalltalk at: #TStDebuggerExtensionTestClass
diff --git a/src/NewTools-Debugger-Tests/StDebuggerExtensionMechanismTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerExtensionMechanismTest.class.st
index c12ddae80..f7dc4107d 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerExtensionMechanismTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerExtensionMechanismTest.class.st
@@ -1,24 +1,26 @@
 Class {
-	#name : #StDebuggerExtensionMechanismTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerExtensionMechanismTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'debugger',
 		'oldActivatedExtensions'
 	],
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionMechanismTest >> debugger [
 	^ debugger ifNil: [ debugger := self debuggerClass basicNew ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionMechanismTest >> debuggerClass [
 	^ StDebugger
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerExtensionMechanismTest >> disableTStDebuggerExtensionTestClassAsExtension [
 
 	TStDebuggerExtensionTestClass class compile: 'isOnlyForTests
@@ -26,7 +28,7 @@ StDebuggerExtensionMechanismTest >> disableTStDebuggerExtensionTestClassAsExtens
 	^ true'
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StDebuggerExtensionMechanismTest >> enableTStDebuggerExtensionTestClassAsExtension [
 
 	TStDebuggerExtensionTestClass class compile: 'isOnlyForTests
@@ -34,7 +36,7 @@ StDebuggerExtensionMechanismTest >> enableTStDebuggerExtensionTestClassAsExtensi
 	^ false'
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionMechanismTest >> setUp [
 
 	super setUp.
@@ -42,7 +44,7 @@ StDebuggerExtensionMechanismTest >> setUp [
 	StDummyDebuggerPresenter showInDebugger: false
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerExtensionMechanismTest >> tearDown [
 
 	| allDebuggerExtensions testClass |
@@ -59,7 +61,7 @@ StDebuggerExtensionMechanismTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerExtensionMechanismTest >> testDynamicLayoutWithAndWithoutExtension [
 
 	| dbg toolPage session |
@@ -103,7 +105,7 @@ StDebuggerExtensionMechanismTest >> testDynamicLayoutWithAndWithoutExtension [
 	self denyCollection: dbg stackAndCodeContainer children includesAny: {#extensionToolsNotebook }
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testExtensionToolsClasses [
 
 	self
@@ -112,7 +114,7 @@ StDebuggerExtensionMechanismTest >> testExtensionToolsClasses [
 				 extension isOnlyForTests ])
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testHasAnyActivatedExtensions [
 
 	| testClass |
@@ -124,7 +126,7 @@ StDebuggerExtensionMechanismTest >> testHasAnyActivatedExtensions [
 		(self debuggerClass hasAnyActivatedExtension: { testClass })
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testInstantiateExtensionToolsPage [
 	|dbg toolPage|
 	dbg := self debugger.
@@ -137,7 +139,7 @@ StDebuggerExtensionMechanismTest >> testInstantiateExtensionToolsPage [
 	 
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testRegisterExtensionTool [
 	|dbg object|
 	dbg := self debugger.
@@ -147,7 +149,7 @@ StDebuggerExtensionMechanismTest >> testRegisterExtensionTool [
 	self assertCollection: dbg extensionTools equals: { object } asOrderedCollection 
 ]
 
-{ #category : #'tests - extensions' }
+{ #category : 'tests - extensions' }
 StDebuggerExtensionMechanismTest >> testUsesExtensions [
 
 	| testClass extensionClasses activatedExtension |
diff --git a/src/NewTools-Debugger-Tests/StDebuggerExtensionTestListener.class.st b/src/NewTools-Debugger-Tests/StDebuggerExtensionTestListener.class.st
index 065f2ed69..a3796e189 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerExtensionTestListener.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerExtensionTestListener.class.st
@@ -1,19 +1,21 @@
 Class {
-	#name : #StDebuggerExtensionTestListener,
-	#superclass : #Object,
+	#name : 'StDebuggerExtensionTestListener',
+	#superclass : 'Object',
 	#instVars : [
 		'tag'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionTestListener >> tag [
 
 	^ tag
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerExtensionTestListener >> tag: anObject [
 
 	tag := anObject
diff --git a/src/NewTools-Debugger-Tests/StDebuggerInspectorTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerInspectorTest.class.st
index df69a866f..cda0edadd 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerInspectorTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerInspectorTest.class.st
@@ -1,22 +1,24 @@
 Class {
-	#name : #StDebuggerInspectorTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerInspectorTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'inspector',
 		'session',
 		'debugger'
 	],
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerInspectorTest >> setUp [
 	"Hooks that subclasses may override to define the fixture of test."
 	super setUp.
 	inspector := StDebuggerInspector new
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerInspectorTest >> tearDown [
 
 	session ifNotNil: [ session clear ].
@@ -30,18 +32,18 @@ StDebuggerInspectorTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testDefaultLayoutSpec [
 	
 	self assert: inspector currentLayoutSelector equals: inspector defaultLayoutSelector
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testMaximizeAssertionSpec [
 	self deny: StDebuggerInspector maximizeAssertionSpec
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testMaximizedAssertionLayoutSpec [
 	|inspectorLayout|
 	
@@ -52,7 +54,7 @@ StDebuggerInspectorTest >> testMaximizedAssertionLayoutSpec [
 	self assert: inspectorLayout children first class identicalTo: SpBoxLayout 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testMinimizedAssertionLayoutSpec [
 	|inspectorLayout|
 	
@@ -64,7 +66,7 @@ StDebuggerInspectorTest >> testMinimizedAssertionLayoutSpec [
 	self assert: inspectorLayout children second equals: #inspector
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testSetAssertionLayoutSpec [
 	|inspectorLayout expectedLayout|
 	inspector setAssertionLayout. 
@@ -79,7 +81,7 @@ StDebuggerInspectorTest >> testSetAssertionLayoutSpec [
 	self assert: inspectorLayout class identicalTo: expectedLayout class
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testSetDefaultLayoutSpec [
 
 	| inspectorLayout expectedLayout |
@@ -98,7 +100,7 @@ StDebuggerInspectorTest >> testSetDefaultLayoutSpec [
 	self assert: inspectorLayout class identicalTo: expectedLayout class
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testShouldUpdateContext [
 
 	debugger := StTestDebuggerProvider new
@@ -112,7 +114,7 @@ StDebuggerInspectorTest >> testShouldUpdateContext [
 			 with: session interruptedContext)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testToggleMaximizeAssertionSpec [
 
 	|oldFlag|
@@ -121,7 +123,7 @@ StDebuggerInspectorTest >> testToggleMaximizeAssertionSpec [
 	self assert: StDebuggerInspector maximizeAssertionSpec equals: oldFlag not
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testUpdateLayoutForContextsWithAssertionFailure [
 
 	| assertionFailure |
@@ -146,7 +148,7 @@ StDebuggerInspectorTest >> testUpdateLayoutForContextsWithAssertionFailure [
 		((session interruptedContext tempNamed: #aStringOrBlock) at: 1)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testUpdateLayoutForContextsWithShouldntRaiseFailure [
 	| assertionFailure |
 	debugger := StTestDebuggerProvider new debuggerWithFailingShouldntRaiseContext.
@@ -161,7 +163,7 @@ StDebuggerInspectorTest >> testUpdateLayoutForContextsWithShouldntRaiseFailure [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerInspectorTest >> testUpdateLayoutForContextsWithoutAssertionFailure [
 
 	debugger := StTestDebuggerProvider new
diff --git a/src/NewTools-Debugger-Tests/StDebuggerMockCommandTreeBuilder.class.st b/src/NewTools-Debugger-Tests/StDebuggerMockCommandTreeBuilder.class.st
index 0428f4864..dc67ee594 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerMockCommandTreeBuilder.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerMockCommandTreeBuilder.class.st
@@ -2,27 +2,29 @@
 Debugger command tree builder mock to test general behavior outside of a debugger
 "
 Class {
-	#name : #StDebuggerMockCommandTreeBuilder,
-	#superclass : #StDebuggerCommandTreeBuilder,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StDebuggerMockCommandTreeBuilder',
+	#superclass : 'StDebuggerCommandTreeBuilder',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerMockCommandTreeBuilder class >> displayStrategy [
 	^CmUIDisplayAsSubMenu
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerMockCommandTreeBuilder class >> groupDescription [
 	^'mock group'
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerMockCommandTreeBuilder class >> groupName [
 	^'mock'
 ]
 
-{ #category : #building }
+{ #category : 'building' }
 StDebuggerMockCommandTreeBuilder >> buildDebuggerCommandGroup [
 	
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerObjectForTests.class.st b/src/NewTools-Debugger-Tests/StDebuggerObjectForTests.class.st
index 8f78bcda6..da9c797d7 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerObjectForTests.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerObjectForTests.class.st
@@ -2,29 +2,31 @@
 I am a dummy object to test StDebuggerContext inspector nodes building.
 "
 Class {
-	#name : #StDebuggerObjectForTests,
-	#superclass : #Object,
+	#name : 'StDebuggerObjectForTests',
+	#superclass : 'Object',
 	#instVars : [
 		'instVar'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #util }
+{ #category : 'util' }
 StDebuggerObjectForTests >> haltingMethod [ <haltOrBreakpointForTesting> self halt. ^self
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerObjectForTests >> initialize [ 
 	instVar := 0
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerObjectForTests >> instVar [
 	^ instVar
 ]
 
-{ #category : #utilities }
+{ #category : 'utilities' }
 StDebuggerObjectForTests >> methodWithArg1: i arg2: j [
 	|a b|
 	a := i.
@@ -32,12 +34,12 @@ StDebuggerObjectForTests >> methodWithArg1: i arg2: j [
 	^a + b
 ]
 
-{ #category : #utilities }
+{ #category : 'utilities' }
 StDebuggerObjectForTests >> methodWithArgsInBlock [
 	^[ :a :b| a + b ] value: 4 value: 2
 ]
 
-{ #category : #utilities }
+{ #category : 'utilities' }
 StDebuggerObjectForTests >> methodWithTemps [
 	|a b|
 	a := 0.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerRawObjectInspectorTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerRawObjectInspectorTest.class.st
index 1aace7e34..b484bcc70 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerRawObjectInspectorTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerRawObjectInspectorTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StDebuggerRawObjectInspectorTest,
-	#superclass : #TestCase,
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#name : 'StDebuggerRawObjectInspectorTest',
+	#superclass : 'TestCase',
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerRawObjectInspectorTest >> testSelectedObject [
 
 	| context debuggerContext inspector |
diff --git a/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st
index ce810bd59..35456d109 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerStackCommandTreeBuilderTest.class.st
@@ -1,29 +1,31 @@
 Class {
-	#name : #StDebuggerStackCommandTreeBuilderTest,
-	#superclass : #StDebuggerToolCommandTreeBuilderTest,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'StDebuggerStackCommandTreeBuilderTest',
+	#superclass : 'StDebuggerToolCommandTreeBuilderTest',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerStackCommandTreeBuilderTest >> newBuilder [
 	^ StDebuggerStackCommandTreeBuilder
 		buildCommandsGroupWith: debugger
 		forRoot: rootGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testBrowseGroupDescription [
 	self
 		assert: builder browseGroupDescription
 		equals: 'Navigate the system from the stack'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testBrowseGroupName [
 	self assert: builder browseGroupName equals: 'Browse'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testCommandGroupStructure [
 	|stackGroup|
 	stackGroup := rootGroup groups first.	
@@ -38,26 +40,26 @@ StDebuggerStackCommandTreeBuilderTest >> testCommandGroupStructure [
 	self assert: stackGroup groups fourth description equals: builder stackContextMenuActionsDescription.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testDisplayStrategy [
 	self
 		assert: builder class displayStrategy
 		equals: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testGroupDescription [
 	self
 		assert: builder class groupDescription
 		equals: 'Actions on the debugger stack.'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testGroupName [
 	self assert: builder class groupName equals: 'Stack'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testNavigationCommandForContext [
 
 	| cmd |
@@ -68,14 +70,14 @@ StDebuggerStackCommandTreeBuilderTest >> testNavigationCommandForContext [
 	self assert: cmd context identicalTo: debugger
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackActionsCommandsClasses [
 	self
 		assertCollection: builder stackActionsCommandsClasses
 		equals: {StReturnValueCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuActionsCommands [
 	self
 		assertCommandGroup: builder stackContextMenuActionsCommands
@@ -84,21 +86,21 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuActionsCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuActionsDescription [
 	self
 		assert: builder stackContextMenuActionsDescription
 		equals: 'Actions on the selected context'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuActionsGroupName [
 	self
 		assert: builder stackContextMenuActionsGroupName
 		equals: 'Context Actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuBrowseCommands [
 	|cmdGroup cmdEntries expectedEntries|	
 
@@ -128,7 +130,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuBrowseCommands [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuExplorationCommands [
 	|  cmdGroup cmdEntries |
 	
@@ -155,21 +157,21 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuExplorationCommands
 		haveContext: debugger 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuExplorationDescription [
 	self
 		assert: builder stackContextMenuExplorationDescription
 		equals: 'Explore the receiver object''s graph'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuExplorationGroupName [
 	self
 		assert: builder stackContextMenuExplorationGroupName
 		equals: 'Explore'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuStackEditionsCommands [
 	self
 		assertCommandGroup: builder stackContextMenuStackEditionsCommands
@@ -178,7 +180,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextMenuStackEditionsComman
 		displayStrategy: CmUIDisplayAsSubMenu
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextNavigationCommands [
 	| cmdGroup commands |
 
@@ -200,14 +202,14 @@ StDebuggerStackCommandTreeBuilderTest >> testStackContextNavigationCommands [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackContextNavigationGroupName [
 	self
 		assert: builder stackContextNavigationGroupName
 		equals: 'Receiver class code navigation commands'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackEditionCommandsClasses [
 	self
 		assertCollection: builder stackEditionCommandsClasses
@@ -218,7 +220,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackEditionCommandsClasses [
 			StFileOutMethodCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackExplorationCommandsClasses [
 	self
 		assertCollection: builder stackExplorationCommandsClasses
@@ -229,17 +231,17 @@ StDebuggerStackCommandTreeBuilderTest >> testStackExplorationCommandsClasses [
 				yourself)
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackGroupDescription [
 	self assert: builder stackGroupDescription equals: 'Stack edition'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackGroupName [
 	self assert: builder stackGroupName equals: 'Stack'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodCommandsClasses [
 	self
 		assertCollection: builder stackMethodCommandsClasses
@@ -248,7 +250,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackMethodCommandsClasses [
 			SpBrowseMethodVersionsCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodNavigationCommands [
 	self
 		assertCommandGroup: builder stackMethodNavigationCommands
@@ -257,14 +259,14 @@ StDebuggerStackCommandTreeBuilderTest >> testStackMethodNavigationCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodNavigationGroupName [
 	self
 		assertCollection: builder stackMethodNavigationGroupName
 		equals: 'Selected method navigation commands'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorCommandsClasses [
 	self
 		assertCollection: builder stackMethodSelectorCommandsClasses
@@ -274,7 +276,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorCommandsClasses
 			SpBrowseMethodReferencesCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorNavigationCommands [
 	self
 		assertCommandGroup: builder stackMethodSelectorNavigationCommands
@@ -283,14 +285,14 @@ StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorNavigationComman
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackMethodSelectorNavigationGroupName [
 	self
 		assert: builder stackMethodSelectorNavigationGroupName
 		equals: 'Selected method''s selector navigation commands'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassExplorationCommandsClasses [
 	self
 		assertCollection: builder stackReceiverClassExplorationCommandsClasses
@@ -299,7 +301,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassExplorationComman
 			SpBrowseSubInstancesCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassNavigationCommands [
 	self
 		assertCommandGroup: builder stackReceiverClassNavigationCommands
@@ -308,14 +310,14 @@ StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassNavigationCommand
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverClassNavigationGroupName [
 	self
 		assert: builder stackReceiverClassNavigationGroupName
 		equals: 'Receiver class navigation commands'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverCommandsClasses [
 	self
 		assertCollection: builder stackReceiverCommandsClasses
@@ -327,7 +329,7 @@ StDebuggerStackCommandTreeBuilderTest >> testStackReceiverCommandsClasses [
 			SpBrowseInstVarRefsCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerStackCommandTreeBuilderTest >> testStackReceiverExplorationCommandsClasses [
 	self
 		assertCollection: builder stackReceiverExplorationCommandsClasses
diff --git a/src/NewTools-Debugger-Tests/StDebuggerTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerTest.class.st
index 7f8762727..e72b9ba43 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerTest.class.st
@@ -1,6 +1,6 @@
 Class {
-	#name : #StDebuggerTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'session',
 		'debugger',
@@ -9,20 +9,22 @@ Class {
 		'stackSizeBefore',
 		'shouldFilterStack'
 	],
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> debugger [
 	^ debugger ifNil: [ debugger := self debuggerClass basicNew ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> debuggerClass [
 	^ StDebugger
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> debuggerOn: aDebugSession [
 
 	^ self debugger
@@ -32,14 +34,14 @@ StDebuggerTest >> debuggerOn: aDebugSession [
 		  yourself
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> executionControlCommandFrom: aDebugger [
 
 	^ debugger toolbar leftItems select: [ :p | 
 		  #( 'Proceed' 'Into' 'Over' 'Through' ) includes: p label ]
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> initializedDebugger [
 
 	dbg := self debugger.
@@ -49,14 +51,14 @@ StDebuggerTest >> initializedDebugger [
 	^ dbg
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> inspectorTableFor: inspector [
 	|contextInspector|
 	contextInspector := (inspector class slotNamed: #contextInspector) read: inspector.
 	^(contextInspector class slotNamed: #attributeTable) read: contextInspector
 ]
 
-{ #category : #'tests - accepting faulty code' }
+{ #category : 'tests - accepting faulty code' }
 StDebuggerTest >> replaceMethodWithQuickMethodStepping [
 
 	"True is a good default value. We step into always by default"
@@ -82,7 +84,7 @@ StDebuggerTest >> replaceMethodWithQuickMethodStepping [
 	dbg debuggerActionModel updateIfAble 
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerTest >> setUp [	
 	super setUp.	
 	session := StTestDebuggerProvider new sessionForDebuggerTests.
@@ -91,7 +93,7 @@ StDebuggerTest >> setUp [
 	self debuggerClass fastTDD: true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerTest >> subscriptionsForStDebuggerExtensionActivationToggle [
 
 	| subscriptions |
@@ -101,7 +103,7 @@ StDebuggerTest >> subscriptionsForStDebuggerExtensionActivationToggle [
 		  s announcementClass = StDebuggerExtensionActivationToggle ]
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerTest >> tearDown [
 
 	session clear.
@@ -126,7 +128,7 @@ StDebuggerTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testAcceptCodeChangesForContext [
 	| context newSource |
 	
@@ -146,7 +148,7 @@ StDebuggerTest >> testAcceptCodeChangesForContext [
 	self assert: dbg code text equals: newSource
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testActionModelSubscription [
 
 	self assert: self debugger debuggerActionModel isNil.
@@ -163,7 +165,7 @@ StDebuggerTest >> testActionModelSubscription [
 		(debugger debuggerActionModel hasSubscriber: debugger)
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testCancelCodeChangesFor [
 	| firstContext lastContext |
 	dbg := self debuggerOn: session.
@@ -184,7 +186,7 @@ StDebuggerTest >> testCancelCodeChangesFor [
 	
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testClearUnsavedChanges [
 
 	dbg := self debuggerOn: session.
@@ -193,7 +195,7 @@ StDebuggerTest >> testClearUnsavedChanges [
 	self assertEmpty: dbg unsavedCodeChanges
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerTest >> testClose [
 
 	| windowPresenter actionModel |
@@ -212,7 +214,7 @@ StDebuggerTest >> testClose [
 		(actionModel hasSubscriber: debugger)
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testCodeChangeAfterContextChange [
 	| firstContext lastContext |
 	dbg := self debuggerOn: session.
@@ -230,7 +232,7 @@ StDebuggerTest >> testCodeChangeAfterContextChange [
 	self should: [ dbg unsavedCodeChangesFor:  lastContext] raise: KeyNotFound
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testCodeSelectionAfterRestart [
 	| adapter segments highlightSegment pcRangeForContext |
 	
@@ -255,7 +257,7 @@ StDebuggerTest >> testCodeSelectionAfterRestart [
 	"The pc range is highlighted with an additionnal index to encompass the full text of the node (why?)"
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testCodeSelectionAfterStepping [
 	| adapter segments highlightSegment pcRangeForContext |
 	
@@ -279,7 +281,7 @@ StDebuggerTest >> testCodeSelectionAfterStepping [
 	"The pc range is highlighted with an additionnal index to encompass the full text of the node (why?)"
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextChangedAfterStepIn [ 
 
 	dbg := self debuggerOn: session.
@@ -293,7 +295,7 @@ StDebuggerTest >> testContextChangedAfterStepIn [
 
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextChangedAfterStepOverAndReturn [
 	| currentContext |
 	dbg := self debuggerOn: session.	
@@ -306,7 +308,7 @@ StDebuggerTest >> testContextChangedAfterStepOverAndReturn [
 		equals: currentContext
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextTempVarList [
 	| contextItems inspectorTable |
 	
@@ -336,7 +338,7 @@ StDebuggerTest >> testContextTempVarList [
 	self assert: contextItems last rawValue identicalTo: dbg currentContext
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testContextTempVarListUpdatesAfterRestartingContext [
 
 	| contextItems inspectorTable newContextItems |
@@ -364,7 +366,7 @@ StDebuggerTest >> testContextTempVarListUpdatesAfterRestartingContext [
 			identicalTo: (contextItems at: i) ]
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextTempVarListUpdatesTempsWhenEnteringOrLeavingInlinedBlocks [
 
 	| contextItems inspectorTable newContextItems |
@@ -403,7 +405,7 @@ StDebuggerTest >> testContextTempVarListUpdatesTempsWhenEnteringOrLeavingInlined
 			identicalTo: (contextItems at: i) ]
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testContextUnchangedAfterStepOver [
 	| currentContext |
 	
@@ -416,7 +418,7 @@ StDebuggerTest >> testContextUnchangedAfterStepOver [
 	self assert: dbg inspector inspectedObject identicalTo:  currentContext
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerTest >> testCopyStackToClipboard [
 	debugger := self debuggerOn: session.
 	debugger copyStackToClipboard.
@@ -426,7 +428,7 @@ StDebuggerTest >> testCopyStackToClipboard [
 				 session interruptedContext shortDebugStackOn: s ])
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testCreateMissingMethodWithUnfilteredStackUpdatesCodePane [
 
 	| dnuMessage method pcRangeForContext segments highlightSegment adapter |
@@ -477,7 +479,7 @@ StDebuggerTest >> testCreateMissingMethodWithUnfilteredStackUpdatesCodePane [
 		equals: (pcRangeForContext first to: pcRangeForContext last + 1)
 ]
 
-{ #category : #'tests - initialization' }
+{ #category : 'tests - initialization' }
 StDebuggerTest >> testDebuggerActionModel [
 	"Checking that when initializing a debugger its action model is correctly set up.
 	We cannot check that by calling the accessor because it is a lazy accessor. 
@@ -491,14 +493,14 @@ StDebuggerTest >> testDebuggerActionModel [
 	self assert: debuggerActionModel notNil
 ]
 
-{ #category : #'tests - initialization' }
+{ #category : 'tests - initialization' }
 StDebuggerTest >> testDebuggerApplication [
 	self
 		assert: (self debuggerOn: session) application
 		identicalTo: StDebugger currentApplication
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testDiscardCodeChangesFor [
 	| firstContext lastContext |
 	
@@ -520,7 +522,7 @@ StDebuggerTest >> testDiscardCodeChangesFor [
 	
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testExceptionProvidesSameExceptionAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -529,13 +531,13 @@ StDebuggerTest >> testExceptionProvidesSameExceptionAsTheActionModelOne [
 		identicalTo: debugger debuggerActionModel exception
 ]
 
-{ #category : #'tests - initialization' }
+{ #category : 'tests - initialization' }
 StDebuggerTest >> testFastTDD [
 	self debuggerClass fastTDD: nil.
 	self deny: self debuggerClass fastTDD
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testInitialCodeSelectionAfterStepping [
 	| adapter segments highlightSegment pcRangeForContext |
 	
@@ -557,7 +559,7 @@ StDebuggerTest >> testInitialCodeSelectionAfterStepping [
 	"The pc range is highlighted with an additionnal index to encompass the full text of the node (why?)"
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testInterruptedContextProvidesSameContextAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -566,7 +568,7 @@ StDebuggerTest >> testInterruptedContextProvidesSameContextAsTheActionModelOne [
 		identicalTo: debugger debuggerActionModel interruptedContext
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testInterruptedProcessProvidesSameProcessAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -575,7 +577,7 @@ StDebuggerTest >> testInterruptedProcessProvidesSameProcessAsTheActionModelOne [
 		identicalTo: debugger debuggerActionModel interruptedProcess
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testIsInSelectedContextClass [
 
 	| stackTable context process |
@@ -595,7 +597,7 @@ StDebuggerTest >> testIsInSelectedContextClass [
 	self assert: (debugger isInSelectedContextClass: (stackTable items at: 7))
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testIsInSelectedContextPackage [
 
 	| stackTable context process |
@@ -615,7 +617,7 @@ StDebuggerTest >> testIsInSelectedContextPackage [
 	self assert: (debugger isInSelectedContextPackage: (stackTable items at: 12))
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testNewDebuggerContext [
 	| debuggerContext |
 	
@@ -625,7 +627,7 @@ StDebuggerTest >> testNewDebuggerContext [
 	self assert: debuggerContext exception equals: session exception
 ]
 
-{ #category : #'tests - context inspector' }
+{ #category : 'tests - context inspector' }
 StDebuggerTest >> testNewDebuggerContextFor [
 	| debuggerContext ctx |
 	
@@ -637,7 +639,7 @@ StDebuggerTest >> testNewDebuggerContextFor [
 	self assert: debuggerContext context identicalTo: ctx
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testPrintReceiverClassInContext [
 	|ctx result|
 	ctx := Context sender: nil receiver: Set new method: (Collection>>#add:) arguments: Array new. 
@@ -649,7 +651,7 @@ StDebuggerTest >> testPrintReceiverClassInContext [
 	self assert: result equals: 'Set'.
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testReceiverChangedAfterStepIn [ 
 
 	dbg := self debuggerOn: session.
@@ -661,7 +663,7 @@ StDebuggerTest >> testReceiverChangedAfterStepIn [
 	self assert: dbg inspector inspectedObject context receiver identicalTo: session shortStack first receiver
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testReceiverChangedAfterStepOverAndReturn [
 	| currentReceiver |
 	
@@ -675,7 +677,7 @@ StDebuggerTest >> testReceiverChangedAfterStepOverAndReturn [
 		equals: currentReceiver
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testReceiverList [
 	| currentReceiver |
 	dbg := self debuggerOn: session.	
@@ -686,7 +688,7 @@ StDebuggerTest >> testReceiverList [
 
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testReceiverUnchangedAfterStepOver [ 
 	| currentReceiver |
 	
@@ -700,7 +702,7 @@ StDebuggerTest >> testReceiverUnchangedAfterStepOver [
 
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testRecordUnsavedCodeChanges [
 	| lastContext |
 	
@@ -718,7 +720,7 @@ StDebuggerTest >> testRecordUnsavedCodeChanges [
 	self assert: (dbg unsavedCodeChangesFor: dbg stackTable items first) equals: 'a'
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerTest >> testRequestClassFrom [
 
 	self
@@ -726,7 +728,7 @@ StDebuggerTest >> testRequestClassFrom [
 		identicalTo: self class
 ]
 
-{ #category : #'tests - actions' }
+{ #category : 'tests - actions' }
 StDebuggerTest >> testRequestProtocolIn [
 
 	self
@@ -734,7 +736,7 @@ StDebuggerTest >> testRequestProtocolIn [
 		equals: Protocol unclassified
 ]
 
-{ #category : #'tests - session' }
+{ #category : 'tests - session' }
 StDebuggerTest >> testRestartContext [
 	| firstContext lastContext |
 	
@@ -765,20 +767,20 @@ StDebuggerTest >> testRestartContext [
 
 ]
 
-{ #category : #'tests - raw inspection' }
+{ #category : 'tests - raw inspection' }
 StDebuggerTest >> testRestoreReceiverRawInspectionSelection [
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - raw inspection' }
+{ #category : 'tests - raw inspection' }
 StDebuggerTest >> testRestoreReceiverRawInspectionSelectionAfterContextChange [
 
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testRestoreUnsavedCodeChanges [
 	| firstContext lastContext |
 	
@@ -798,13 +800,13 @@ StDebuggerTest >> testRestoreUnsavedCodeChanges [
 	self assert: dbg code text equals: 'a'
 ]
 
-{ #category : #'tests - session' }
+{ #category : 'tests - session' }
 StDebuggerTest >> testReturnEnteredValue [
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testSaveCodeModification [
 	| context newSource |
 	
@@ -828,21 +830,21 @@ StDebuggerTest >> testSaveCodeModification [
 
 ]
 
-{ #category : #'tests - raw inspection' }
+{ #category : 'tests - raw inspection' }
 StDebuggerTest >> testSaveReceiverRawInspectionSelection [
 
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - raw inspection' }
+{ #category : 'tests - raw inspection' }
 StDebuggerTest >> testSaveReceiverRawInspectionSelectionAfterContextChange [
 
 	self skip.
 	self flag: #DBG_TEST
 ]
 
-{ #category : #'tests - accepting faulty code' }
+{ #category : 'tests - accepting faulty code' }
 StDebuggerTest >> testSavingQuickMethodWhenSteppingIntoStackSizeBeforeIsTheSameAfter [
 
 	self replaceMethodWithQuickMethodStepping.
@@ -850,7 +852,7 @@ StDebuggerTest >> testSavingQuickMethodWhenSteppingIntoStackSizeBeforeIsTheSameA
 	self assert: dbg session stack size equals: stackSizeBefore
 ]
 
-{ #category : #'tests - accepting faulty code' }
+{ #category : 'tests - accepting faulty code' }
 StDebuggerTest >> testSavingQuickMethodWhenSteppingIntoStaysInQuickMethod [
 	
 	"We tell the parent that we wanted to step into"
@@ -859,7 +861,7 @@ StDebuggerTest >> testSavingQuickMethodWhenSteppingIntoStaysInQuickMethod [
 	self assert: dbg stackTable items first sourceCode equals: 'haltingMethod ^ 1'
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testSelectLastStackElementWithMoreElements [
 	| stackTable selectedItem |
 	
@@ -883,7 +885,7 @@ StDebuggerTest >> testSelectLastStackElementWithMoreElements [
 	
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testSelectLastStackElementWithoutMoreElements [
 	| stackTable startingStackSize |
 	
@@ -895,7 +897,7 @@ StDebuggerTest >> testSelectLastStackElementWithoutMoreElements [
 	self assert: stackTable items size equals: startingStackSize
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testSessionProvidesSameAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -904,7 +906,7 @@ StDebuggerTest >> testSessionProvidesSameAsTheActionModelOne [
 		identicalTo: debugger debuggerActionModel session
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testSessionStackProvidesSameStackAsTheActionModelOne [
 
 	debugger := self debuggerOn: session.
@@ -913,7 +915,7 @@ StDebuggerTest >> testSessionStackProvidesSameStackAsTheActionModelOne [
 		equals: debugger debuggerActionModel stack
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableAfterReturn [
 	| stackTableItems stackSizeAfterStepIn |
 	
@@ -932,7 +934,7 @@ StDebuggerTest >> testStackTableAfterReturn [
 	self assert: stackTableItems equals: session shortStack
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableAfterStepIn [
 	| stackTableItems startingStackSize |
 	
@@ -947,7 +949,7 @@ StDebuggerTest >> testStackTableAfterStepIn [
 	self assert: stackTableItems equals: session shortStack
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableElementsPrinting [
 	| columns classColumn methodColumn method block context |
 
@@ -973,12 +975,12 @@ StDebuggerTest >> testStackTableElementsPrinting [
 	"self assert: (senderColumn evaluation value: context) equals: self stDisplayString."
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableInitialization [
 	self assert: self debugger stackTable isNil
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTablePackagesLabels [
 	|stackTable packageColumn ctx|
 	self debugger session: session.
@@ -1012,7 +1014,7 @@ StDebuggerTest >> testStackTablePackagesLabels [
 
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableSelectionChanged [
 
 	dbg := self debuggerOn: session.
@@ -1031,7 +1033,7 @@ StDebuggerTest >> testStackTableSelectionChanged [
 		equals: dbg stackTable items second sourceCode
 ]
 
-{ #category : #'tests - stack table' }
+{ #category : 'tests - stack table' }
 StDebuggerTest >> testStackTableWithNewSession [
 	self debugger session: session.
 	self
@@ -1046,7 +1048,7 @@ StDebuggerTest >> testStackTableWithNewSession [
 				identicalTo: session shortStack first
 ]
 
-{ #category : #'tests - toolbar' }
+{ #category : 'tests - toolbar' }
 StDebuggerTest >> testToolbarDisplayMode [
 	debugger := self debuggerOn: session.
 	self
@@ -1054,7 +1056,7 @@ StDebuggerTest >> testToolbarDisplayMode [
 		equals: debugger application toolbarDisplayMode
 ]
 
-{ #category : #'tests - toolbar' }
+{ #category : 'tests - toolbar' }
 StDebuggerTest >> testToolbarInDNUContext [
 	|commands|
 	session clear.
@@ -1080,7 +1082,7 @@ StDebuggerTest >> testToolbarInDNUContext [
 	
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testUnsavedCodeChanges [
 
 	dbg := self debuggerOn: session.
@@ -1088,7 +1090,7 @@ StDebuggerTest >> testUnsavedCodeChanges [
 	self assertEmpty: dbg unsavedCodeChanges 
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testUnsavedCodeChangesFor [
 	| ctx codeChanges |
 	
@@ -1100,7 +1102,7 @@ StDebuggerTest >> testUnsavedCodeChangesFor [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTest >> testUpdateExtensionSubscription [
 
 	| announcementSubscriptions oldAnnouncementSubscriptions |
@@ -1123,7 +1125,7 @@ StDebuggerTest >> testUpdateExtensionSubscription [
 			isNotNil
 ]
 
-{ #category : #'tests - receiver inspector' }
+{ #category : 'tests - receiver inspector' }
 StDebuggerTest >> testUpdateLayoutForContextsIfAssertionFailure [
 
 	| assertionFailure currentLayout expectedLayout |
@@ -1163,7 +1165,7 @@ StDebuggerTest >> testUpdateLayoutForContextsIfAssertionFailure [
 		((session interruptedContext tempNamed: #aStringOrBlock) at: 1)
 ]
 
-{ #category : #'tests - code pane' }
+{ #category : 'tests - code pane' }
 StDebuggerTest >> testUpdateSourceCodeFor [
 
 	dbg := self debuggerOn: session.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerToolCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerToolCommandTreeBuilderTest.class.st
index d11b0472e..5d10731d6 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerToolCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerToolCommandTreeBuilderTest.class.st
@@ -1,28 +1,30 @@
 Class {
-	#name : #StDebuggerToolCommandTreeBuilderTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerToolCommandTreeBuilderTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'session',
 		'debugger',
 		'rootGroup',
 		'builder'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDebuggerToolCommandTreeBuilderTest class >> isAbstract [ 
 	^self class = StDebuggerToolCommandTreeBuilderTest 
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommandGroup: cmdGroup hasDisplayStrategy: displayStrategy [
 	self
 		assert: cmdGroup displayStrategy class
 		identicalTo: displayStrategy
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommandGroup: cmdGroup hasSameCommands: expectedCommands withContext: expectedContext displayStrategy: displayStrategy [
 	| commands |
 	self deny: cmdGroup isRoot.
@@ -35,14 +37,14 @@ StDebuggerToolCommandTreeBuilderTest >> assertCommandGroup: cmdGroup hasSameComm
 	self assertCommands: commands haveContext: expectedContext
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommandGroupEntries: commands hasCommands: expectedCommands [
 	self
 		assertCollection: (commands collect: [ :cmd | cmd class ])
 		hasSameElements: expectedCommands
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommands: commands equals: expectedCommands [
 	self assert: commands size equals: expectedCommands size.
 	commands
@@ -53,24 +55,24 @@ StDebuggerToolCommandTreeBuilderTest >> assertCommands: commands equals: expecte
 			self assert: actual class identicalTo: expected class ]
 ]
 
-{ #category : #assertions }
+{ #category : 'assertions' }
 StDebuggerToolCommandTreeBuilderTest >> assertCommands: commands haveContext: expectedContext [
 	commands
 		do: [ :cmd | self assert: cmd context identicalTo: expectedContext ]
 ]
 
-{ #category : #helper }
+{ #category : 'helper' }
 StDebuggerToolCommandTreeBuilderTest >> commandsFromSpecGroup: group [
 
 	^ group decoratedGroup entries collect: [ :cmd | cmd innerCommand ]
 ]
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerToolCommandTreeBuilderTest >> newBuilder [
 	^self subclassResponsibility 
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerToolCommandTreeBuilderTest >> setUp [
 	| context process |
 	super setUp.
@@ -92,7 +94,7 @@ StDebuggerToolCommandTreeBuilderTest >> setUp [
 	builder := self newBuilder
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerToolCommandTreeBuilderTest >> tearDown [
 	debugger ifNotNil:[debugger clear].
 	super tearDown.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerToolbarCommandTreeBuilderTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerToolbarCommandTreeBuilderTest.class.st
index 556f5821e..062717e1f 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerToolbarCommandTreeBuilderTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerToolbarCommandTreeBuilderTest.class.st
@@ -1,17 +1,19 @@
 Class {
-	#name : #StDebuggerToolbarCommandTreeBuilderTest,
-	#superclass : #StDebuggerToolCommandTreeBuilderTest,
-	#category : #'NewTools-Debugger-Tests-Model'
+	#name : 'StDebuggerToolbarCommandTreeBuilderTest',
+	#superclass : 'StDebuggerToolCommandTreeBuilderTest',
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #'instance creation' }
+{ #category : 'instance creation' }
 StDebuggerToolbarCommandTreeBuilderTest >> newBuilder [
 	^ StDebuggerToolbarCommandTreeBuilder
 		buildCommandsGroupWith: debugger
 		forRoot: rootGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testBuildCommandGroupFromNamedDescription [
 	| group spCommands |
 	group := builder
@@ -30,7 +32,7 @@ StDebuggerToolbarCommandTreeBuilderTest >> testBuildCommandGroupFromNamedDescrip
 	self assert: spCommands second context identicalTo: debugger
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testCommandGroupStructure [
 	|stackGroup|
 	stackGroup := rootGroup groups first.	
@@ -44,14 +46,14 @@ StDebuggerToolbarCommandTreeBuilderTest >> testCommandGroupStructure [
 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextControlCommandClasses [
 	self
 		assertCollection: builder contextControlCommandClasses
 		equals: {StDefineMissingEntityCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextControlDebuggingCommands [
 	self
 		assertCommandGroup: builder contextControlDebuggingCommands
@@ -60,28 +62,28 @@ StDebuggerToolbarCommandTreeBuilderTest >> testContextControlDebuggingCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextControlGroupDescription [
 	self
 		assert: builder contextControlGroupDescription
 		equals: 'Actions performed on the interrupted context'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextControlGroupName [
 	self
 		assert: builder contextControlGroupName
 		equals: 'Context control'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestCommandClasses [
 	self
 		assertCollection: builder contextRequestCommandClasses
 		equals: {StWhereIsCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestDebuggingCommands [
 	self
 		assertCommandGroup: builder contextRequestDebuggingCommands
@@ -90,40 +92,40 @@ StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestDebuggingCommands [
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestGroupDescription [
 	self
 		assert: builder contextRequestGroupDescription
 		equals: 'Requests on the interrupted context'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testContextRequestGroupName [
 	self
 		assert: builder contextRequestGroupName
 		equals: 'Context requests'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testDefaultDebugActionsDescription [
 	self
 		assert: builder defaultDebugActionsDescription
 		equals: 'Defaults debugging actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testDefaultDebugActionsGroupName [
 	self
 		assert: builder defaultDebugActionsGroupName
 		equals: 'Debugging actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testDisplayStrategy [
 	self assert: builder class displayStrategy equals: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlCommandClasses [
 	self
 		assertCollection: builder executionControlCommandClasses
@@ -137,7 +139,7 @@ StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlCommandClasses [
 			StReturnValueCommand}
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlDebuggingCommands [
 	self
 		assertCommandGroup: builder executionControlDebuggingCommands
@@ -146,21 +148,21 @@ StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlDebuggingCommands
 		displayStrategy: CmUIDisplayAsGroup
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlGroupDescription [
 	self
 		assert: builder executionControlGroupDescription
 		equals: 'Debug actions applied to the executed context'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlGroupName [
 	self
 		assert: builder executionControlGroupName
 		equals: 'Execution control'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlShortcuts [
 
 	| commandsWithShortcuts |
@@ -174,12 +176,12 @@ StDebuggerToolbarCommandTreeBuilderTest >> testExecutionControlShortcuts [
 		self assert: command shortcutKey equals: class defaultShortcut ]
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testGroupDescription [
 	self assert: builder class groupDescription equals: 'Debug actions'
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerToolbarCommandTreeBuilderTest >> testGroupName [
 	self assert: builder class groupName equals: 'Toolbar'
 ]
diff --git a/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenter.extension.st b/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenter.extension.st
index ba417673a..8567f05da 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenter.extension.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenter.extension.st
@@ -1,12 +1,12 @@
-Extension { #name : #StDebuggerTreeTablePresenter }
+Extension { #name : 'StDebuggerTreeTablePresenter' }
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebuggerTreeTablePresenter >> filter: anObject [
 
 	filter := anObject
 ]
 
-{ #category : #'*NewTools-Debugger-Tests' }
+{ #category : '*NewTools-Debugger-Tests' }
 StDebuggerTreeTablePresenter >> isFiltered: anObject [
 
 	isFiltered := anObject
diff --git a/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenterTest.class.st b/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenterTest.class.st
index b0f41c3ed..b8e5db4b3 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenterTest.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerTreeTablePresenterTest.class.st
@@ -1,14 +1,16 @@
 Class {
-	#name : #StDebuggerTreeTablePresenterTest,
-	#superclass : #TestCase,
+	#name : 'StDebuggerTreeTablePresenterTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'presenter',
 		'inspectorNodes'
 	],
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 StDebuggerTreeTablePresenterTest >> setUp [
 
 	| node |
@@ -28,7 +30,7 @@ StDebuggerTreeTablePresenterTest >> setUp [
 	presenter roots: inspectorNodes.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testApplyFilterDoesFilterWhenHasActiveFilterIsTrueAndFilterIsNotNil [
 
 	| rejectedItems filteredItems |
@@ -45,7 +47,7 @@ StDebuggerTreeTablePresenterTest >> testApplyFilterDoesFilterWhenHasActiveFilter
 		assertCollection: inspectorNodes hasSameElements: filteredItems , rejectedItems
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testApplyFilterDoesntFilterAndRemovesFilterWhenHasActiveFilterIsFalse [
 
 	presenter filter: 'toto'.
@@ -54,7 +56,7 @@ StDebuggerTreeTablePresenterTest >> testApplyFilterDoesntFilterAndRemovesFilterW
 			assert: presenter filter isNil
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testApplyFilterDoesntFilterWhenFilterIsNil [
 
 	presenter isFiltered: true.
@@ -62,7 +64,7 @@ StDebuggerTreeTablePresenterTest >> testApplyFilterDoesntFilterWhenFilterIsNil [
 	self assert: presenter roots equals: inspectorNodes
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testInitialization [
 
 	self deny: presenter hasActiveFilter.
@@ -70,7 +72,7 @@ StDebuggerTreeTablePresenterTest >> testInitialization [
 	self assert: presenter roots equals: inspectorNodes
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testRootsActualisesRootsByApplyingFilter [
 
 	| filteredItems |
@@ -83,7 +85,7 @@ StDebuggerTreeTablePresenterTest >> testRootsActualisesRootsByApplyingFilter [
 	self assert: presenter roots equals: filteredItems
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testToggleDoesNotFilterWhenFilteredButFilterIsNil [
 
 	presenter toggleFilter: nil.
@@ -91,7 +93,7 @@ StDebuggerTreeTablePresenterTest >> testToggleDoesNotFilterWhenFilteredButFilter
 		assert: presenter hasActiveFilter
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testToggleFiltersWhenFilteredAndFilterIsNotNil [
 
 	| rejectedItems |
@@ -106,7 +108,7 @@ StDebuggerTreeTablePresenterTest >> testToggleFiltersWhenFilteredAndFilterIsNotN
 		assert: presenter hasActiveFilter
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StDebuggerTreeTablePresenterTest >> testToggleUnFiltersWhenToggledTwice [
 
 	presenter toggleFilter: 'toto'.
diff --git a/src/NewTools-Debugger-Tests/StDebuggerUsingSpecSelectorMock.class.st b/src/NewTools-Debugger-Tests/StDebuggerUsingSpecSelectorMock.class.st
index fb04a591c..1ef6fea18 100644
--- a/src/NewTools-Debugger-Tests/StDebuggerUsingSpecSelectorMock.class.st
+++ b/src/NewTools-Debugger-Tests/StDebuggerUsingSpecSelectorMock.class.st
@@ -2,91 +2,93 @@
 I mock the state of StDebuggerUsingSpecSelector to test variations in its state.
 "
 Class {
-	#name : #StDebuggerUsingSpecSelectorMock,
-	#superclass : #StDebuggerSpecSelector,
+	#name : 'StDebuggerUsingSpecSelectorMock',
+	#superclass : 'StDebuggerSpecSelector',
 	#instVars : [
 		'withDebuggerExtensions',
 		'withActivatedExtensions'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock class >> initializeWithExtensionsAllActivated [
 	^self new initializeWithExtensionsAllActivated
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock class >> initializeWithExtensionsNoneActivated [
 	^self new initializeWithExtensionsNoneActivated
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock class >> initializeWithoutExtensionsAllActivated [
 	^self new initializeWithoutExtensionsAllActivated
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock class >> initializeWithoutExtensionsNoneActivated [
 	^self new initializeWithoutExtensionsNoneActivated
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> activateDebuggerExtensions [
 	^withDebuggerExtensions 
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> availableSpecSelectors [
 	^ StDebugger availableSpecSelectors
 		add: self nonDefaultSelector;
 		yourself
 ]
 
-{ #category : #specs }
+{ #category : 'specs' }
 StDebuggerUsingSpecSelectorMock >> columnInspectorsSpec [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> debuggerClass [ 	
 	^self
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> extensionToolsClasses [
 	^{}
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> hasAnyActivatedExtension: anObject [
 	^ withActivatedExtensions
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock >> initializeWithExtensionsAllActivated [
 	withDebuggerExtensions := true.
 	withActivatedExtensions := true
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock >> initializeWithExtensionsNoneActivated [
 	withDebuggerExtensions := true.
 	withActivatedExtensions := false
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock >> initializeWithoutExtensionsAllActivated [
 	withDebuggerExtensions := false.
 	withActivatedExtensions := true
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StDebuggerUsingSpecSelectorMock >> initializeWithoutExtensionsNoneActivated [
 	withDebuggerExtensions := false.
 	withActivatedExtensions := false
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDebuggerUsingSpecSelectorMock >> nonDefaultSelector [
 	^#nonDefaultSelector
 ]
diff --git a/src/NewTools-Debugger-Tests/StDummyDebuggerPresenter.class.st b/src/NewTools-Debugger-Tests/StDummyDebuggerPresenter.class.st
index dd3a967c3..141fb9aa8 100644
--- a/src/NewTools-Debugger-Tests/StDummyDebuggerPresenter.class.st
+++ b/src/NewTools-Debugger-Tests/StDummyDebuggerPresenter.class.st
@@ -4,142 +4,144 @@ I'm used in tests to easily ensure that commands or other clients call the corre
 The debugger interface itself is tested in the debugger test class.
 "
 Class {
-	#name : #StDummyDebuggerPresenter,
-	#superclass : #SpPresenter,
+	#name : 'StDummyDebuggerPresenter',
+	#superclass : 'SpPresenter',
 	#traits : 'TStDebuggerExtension',
 	#classTraits : 'TStDebuggerExtension classTrait',
 	#instVars : [
 		'tag'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #testing }
+{ #category : 'testing' }
 StDummyDebuggerPresenter class >> isOnlyForTests [
 
 	^ true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> copyStackToClipboard [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> createMissingClass [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> createMissingMethod [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> createSubclassResponsibility [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #'accessing - context' }
+{ #category : 'accessing - context' }
 StDummyDebuggerPresenter >> currentContext [
 	^self
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDummyDebuggerPresenter >> debuggerExtensionToolName [
 	^'Test extendedDebuggingToolTitle'
 	
 ]
 
-{ #category : #layout }
+{ #category : 'layout' }
 StDummyDebuggerPresenter >> defaultLayout [
 
 	^ SpBoxLayout newVertical 
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> fileOutSelectedContext [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> peelToFirstLike: aStDummyDebuggerPresenter [
 
 	tag := thisContext method selector.
 	^ true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> proceedDebugSession [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> restartCurrentContext [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> returnEnteredValue [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> runToSelection [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> selectNextExecutedExpression [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> showFullStack [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> stepInto [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> stepOver [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> stepThrough [
 tag := thisContext method selector.
 ^true
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDummyDebuggerPresenter >> tag [
 	^ tag
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StDummyDebuggerPresenter >> tag: anObject [
 
 	tag := anObject
 ]
 
-{ #category : #mocks }
+{ #category : 'mocks' }
 StDummyDebuggerPresenter >> unimplementedSubclassResponsibility [
 	self subclassResponsibility 
 ]
diff --git a/src/NewTools-Debugger-Tests/StFailingAssertionInspectorTest.class.st b/src/NewTools-Debugger-Tests/StFailingAssertionInspectorTest.class.st
index bb361a52f..798f7c318 100644
--- a/src/NewTools-Debugger-Tests/StFailingAssertionInspectorTest.class.st
+++ b/src/NewTools-Debugger-Tests/StFailingAssertionInspectorTest.class.st
@@ -1,10 +1,12 @@
 Class {
-	#name : #StFailingAssertionInspectorTest,
-	#superclass : #TestCase,
-	#category : #'NewTools-Debugger-Tests-Presenters'
+	#name : 'StFailingAssertionInspectorTest',
+	#superclass : 'TestCase',
+	#category : 'NewTools-Debugger-Tests-Presenters',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Presenters'
 }
 
-{ #category : #tests }
+{ #category : 'tests' }
 StFailingAssertionInspectorTest >> testDiffForNonStringObjects [
 	|a e inspector|
 	a := 'a'.
@@ -27,7 +29,7 @@ StFailingAssertionInspectorTest >> testDiffForNonStringObjects [
 	self assert: inspector stringDiff equals: nil.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StFailingAssertionInspectorTest >> testDiffForStrings [
 	|a e inspector|
 	a := 'a'.
@@ -41,7 +43,7 @@ StFailingAssertionInspectorTest >> testDiffForStrings [
 	self assert: inspector expectedObjectMillerList equals: nil.
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 StFailingAssertionInspectorTest >> testDiffForSymbols [
 	|actual expected inspector|
 	actual := #'#east'. 
diff --git a/src/NewTools-Debugger-Tests/StMockContext.class.st b/src/NewTools-Debugger-Tests/StMockContext.class.st
index 70191bdfa..79788fdd2 100644
--- a/src/NewTools-Debugger-Tests/StMockContext.class.st
+++ b/src/NewTools-Debugger-Tests/StMockContext.class.st
@@ -3,28 +3,30 @@ I'm an object answering to part of the API of Context, but doing nothing.
 You can use me in your tests where messages are sent to a context but you do not actually want to act on a real one, or when you want to record what was done on the context.
 "
 Class {
-	#name : #StMockContext,
-	#superclass : #Object,
+	#name : 'StMockContext',
+	#superclass : 'Object',
 	#instVars : [
 		'stepIntoQuickMethodBooleans'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockContext >> scope [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockContext >> sourceNodeExecuted [
 ]
 
-{ #category : #'debugger access' }
+{ #category : 'debugger access' }
 StMockContext >> stepIntoQuickMethod: aBoolean [
 	self stepIntoQuickMethodBooleans add: aBoolean
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockContext >> stepIntoQuickMethodBooleans [
 
 	^ stepIntoQuickMethodBooleans ifNil: [ 
diff --git a/src/NewTools-Debugger-Tests/StMockDebugCommand.class.st b/src/NewTools-Debugger-Tests/StMockDebugCommand.class.st
index b29cf3eeb..2978f60ae 100644
--- a/src/NewTools-Debugger-Tests/StMockDebugCommand.class.st
+++ b/src/NewTools-Debugger-Tests/StMockDebugCommand.class.st
@@ -2,28 +2,30 @@
 A mock command for dezbugger command tree builder tests
 "
 Class {
-	#name : #StMockDebugCommand,
-	#superclass : #StDebuggerCommand,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StMockDebugCommand',
+	#superclass : 'StDebuggerCommand',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMockDebugCommand class >> defaultIconName [
 	^ #defaultIconName
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMockDebugCommand class >> defaultName [
 
 	^ UUID new printString
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMockDebugCommand class >> defaultShortcut [
 	^ #defaultShortcut
 ]
 
-{ #category : #executing }
+{ #category : 'executing' }
 StMockDebugCommand >> execute [
 	^self context
 ]
diff --git a/src/NewTools-Debugger-Tests/StMockDebuggerActionModel.class.st b/src/NewTools-Debugger-Tests/StMockDebuggerActionModel.class.st
index cce5fb191..c7411fa16 100644
--- a/src/NewTools-Debugger-Tests/StMockDebuggerActionModel.class.st
+++ b/src/NewTools-Debugger-Tests/StMockDebuggerActionModel.class.st
@@ -2,24 +2,26 @@
 I'm used to mock certain aspects of the `StDebuggerActionModel` class for testing.
 "
 Class {
-	#name : #StMockDebuggerActionModel,
-	#superclass : #StDebuggerActionModel,
+	#name : 'StMockDebuggerActionModel',
+	#superclass : 'StDebuggerActionModel',
 	#instVars : [
 		'tag',
 		'interruptedContext'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #'debug - session' }
+{ #category : 'debug - session' }
 StMockDebuggerActionModel >> autoClassifyMessage: aMessage inClass: aClass [
 ]
 
-{ #category : #context }
+{ #category : 'context' }
 StMockDebuggerActionModel >> computeInitialTopContext [
 ]
 
-{ #category : #initialization }
+{ #category : 'initialization' }
 StMockDebuggerActionModel >> initialize [
 	super initialize.
 	self interruptedContext: (Context
@@ -29,25 +31,25 @@ StMockDebuggerActionModel >> initialize [
 			 arguments: #( #message ))
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockDebuggerActionModel >> interruptedContext: anObject [
 
 	interruptedContext := anObject.
 	topContext := anObject
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockDebuggerActionModel >> session [
 	^StMockSession new
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockDebuggerActionModel >> tag [
 	^tag
 	
 ]
 
-{ #category : #'debug - stepping' }
+{ #category : 'debug - stepping' }
 StMockDebuggerActionModel >> updateTopContext [
 	tag :=  #updateTopContext
 	
diff --git a/src/NewTools-Debugger-Tests/StMockSession.class.st b/src/NewTools-Debugger-Tests/StMockSession.class.st
index 48588fb90..676cb24af 100644
--- a/src/NewTools-Debugger-Tests/StMockSession.class.st
+++ b/src/NewTools-Debugger-Tests/StMockSession.class.st
@@ -3,54 +3,56 @@ I'm an object answering to part of the API of `DebugSession`, but doing nothing.
 You can use me in your tests where messages are sent to a debug session but you do not actually want to act on a real one. 
 "
 Class {
-	#name : #StMockSession,
-	#superclass : #Object,
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#name : 'StMockSession',
+	#superclass : 'Object',
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #'reflective operations' }
+{ #category : 'reflective operations' }
 StMockSession >> doesNotUnderstand: aMessage [
 
 	^ self
 ]
 
-{ #category : #'debug - session' }
+{ #category : 'debug - session' }
 StMockSession >> implement: aMessage inClass: aClass forContext: aContext [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockSession >> interruptedContext [
 	 ^self
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> restart: aContext [
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> returnValue: value from: aContext [
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> runToSelection: aSelectionInterval inContext: aContext [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockSession >> scope [
 ]
 
-{ #category : #accessing }
+{ #category : 'accessing' }
 StMockSession >> sourceNodeExecuted [
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> stepInto: aContext [ 
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> stepOver: aContext [
 ]
 
-{ #category : #'debugging actions' }
+{ #category : 'debugging actions' }
 StMockSession >> stepThrough: aContext [
 ]
diff --git a/src/NewTools-Debugger-Tests/StTestDebuggerProvider.class.st b/src/NewTools-Debugger-Tests/StTestDebuggerProvider.class.st
index d09f593d2..625236ede 100644
--- a/src/NewTools-Debugger-Tests/StTestDebuggerProvider.class.st
+++ b/src/NewTools-Debugger-Tests/StTestDebuggerProvider.class.st
@@ -2,15 +2,17 @@
 Utilitary class to provide various kind of debuggers, interrupted context and debug sessions for testing purposes
 "
 Class {
-	#name : #StTestDebuggerProvider,
-	#superclass : #Object,
+	#name : 'StTestDebuggerProvider',
+	#superclass : 'Object',
 	#instVars : [
 		'session'
 	],
-	#category : #'NewTools-Debugger-Tests-Utils'
+	#category : 'NewTools-Debugger-Tests-Utils',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Utils'
 }
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider class >> compileMissingClassContextBuilder [
 	
 	self compiler permitUndeclared: true; install: 'buildDebuggerWithMissingClassContext
@@ -22,13 +24,13 @@ StTestDebuggerProvider class >> compileMissingClassContextBuilder [
 			^ self newDebugger ]'
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithContext: aContext [
 	self sessionFor: aContext.
 	^ self newDebugger
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithDNUContext [
 	[ self methodProducingDNU ]
 		on: Error
@@ -37,7 +39,7 @@ StTestDebuggerProvider >> debuggerWithDNUContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithErrorContext [
 
 	[ #(  ) at: 1 ]
@@ -47,7 +49,7 @@ StTestDebuggerProvider >> debuggerWithErrorContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithFailingAssertionContext [
 	[ self produceAssertionFailure ]
 		on: TestFailure
@@ -56,7 +58,7 @@ StTestDebuggerProvider >> debuggerWithFailingAssertionContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithFailingShouldntRaiseContext [
 	[ self produceShouldntRaiseFailure ]
 		on: TestFailure
@@ -65,7 +67,7 @@ StTestDebuggerProvider >> debuggerWithFailingShouldntRaiseContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithFailingTestContext [
 	[ self produceTestFailure ]
 		on: TestFailure
@@ -74,7 +76,7 @@ StTestDebuggerProvider >> debuggerWithFailingTestContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithMissingClassContext [
 	"The called method must contain a undeclared variable (the missing class).
 	It makes the CI test fail, so it has to be generated and removed after usage.
@@ -83,7 +85,7 @@ StTestDebuggerProvider >> debuggerWithMissingClassContext [
 	^ self buildDebuggerWithMissingClassContext
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithMissingSubclassResponsibilityContext [
 	[ StDummyDebuggerPresenter new unimplementedSubclassResponsibility ]
 		on: SubclassResponsibility
@@ -92,7 +94,7 @@ StTestDebuggerProvider >> debuggerWithMissingSubclassResponsibilityContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithObjectHalting [
 	[ StDebuggerObjectForTests new haltingMethod ]
 		on: Halt
@@ -101,7 +103,7 @@ StTestDebuggerProvider >> debuggerWithObjectHalting [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithRecursiveContext [
 
 	| debugger |
@@ -111,7 +113,7 @@ StTestDebuggerProvider >> debuggerWithRecursiveContext [
 	^ debugger
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> debuggerWithRunnableContext [
 <haltOrBreakpointForTesting>
 	[ Halt now ]
@@ -121,7 +123,7 @@ StTestDebuggerProvider >> debuggerWithRunnableContext [
 			^ self newDebugger ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> intermediateRecursiveMethodCall [
 
 	"Dummy assignment to avoid the test session to step to the next interesting bytecode (= next return)"
@@ -131,13 +133,13 @@ StTestDebuggerProvider >> intermediateRecursiveMethodCall [
 	^ self recursiveMethodCall
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> methodProducingDNU [
 
 	^ self foobar
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> newDebugger [
 
 	| debugger |
@@ -147,22 +149,22 @@ StTestDebuggerProvider >> newDebugger [
 	^ debugger
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> produceAssertionFailure [
 	TestCase new assert: 4 equals: 2
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> produceShouldntRaiseFailure [
 	TestCase new shouldnt: [ 1/0 ] raise: ZeroDivide
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> produceTestFailure [
 	TestCase new fail
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> recursiveMethodCall [
 
 	"Dummy assignment to avoid the test session to step to the next interesting bytecode (= next return)"
@@ -172,13 +174,13 @@ StTestDebuggerProvider >> recursiveMethodCall [
 	^ self intermediateRecursiveMethodCall
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> session [
 
 	^ session
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> sessionFor: aContext [
 
 	| process |
@@ -192,7 +194,7 @@ StTestDebuggerProvider >> sessionFor: aContext [
 	session exception ifNil: [ session exception: OupsNullException new ]
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> sessionFor: aContext exception: e [
 
 	e freezeUpTo: nil.
@@ -201,7 +203,7 @@ StTestDebuggerProvider >> sessionFor: aContext exception: e [
 	session exception: e
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> sessionForDebuggerTests [
 
 	| context process sessionForTests |
@@ -223,7 +225,7 @@ StTestDebuggerProvider >> sessionForDebuggerTests [
 	^ sessionForTests
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> sessionWithDNUAfterStep [
 
 	| context process sessionForTests |
@@ -239,7 +241,7 @@ StTestDebuggerProvider >> sessionWithDNUAfterStep [
 	^ sessionForTests
 ]
 
-{ #category : #helpers }
+{ #category : 'helpers' }
 StTestDebuggerProvider >> terminate [ 
 	session ifNotNil:[session clear].
 	session := nil
diff --git a/src/NewTools-Debugger-Tests/TStDebuggerExtensionTest.class.st b/src/NewTools-Debugger-Tests/TStDebuggerExtensionTest.class.st
index 32ba14e64..3a5aafa6e 100644
--- a/src/NewTools-Debugger-Tests/TStDebuggerExtensionTest.class.st
+++ b/src/NewTools-Debugger-Tests/TStDebuggerExtensionTest.class.st
@@ -1,19 +1,21 @@
 Class {
-	#name : #TStDebuggerExtensionTest,
-	#superclass : #TestCase,
+	#name : 'TStDebuggerExtensionTest',
+	#superclass : 'TestCase',
 	#instVars : [
 		'traitUser'
 	],
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #running }
+{ #category : 'running' }
 TStDebuggerExtensionTest >> setUp [
 	super setUp.
 	traitUser := StDebuggerExtensionGeneratorForTests testClass new
 ]
 
-{ #category : #running }
+{ #category : 'running' }
 TStDebuggerExtensionTest >> tearDown [
 
 	traitUser class displayOrder: 1.
@@ -22,12 +24,12 @@ TStDebuggerExtensionTest >> tearDown [
 	super tearDown
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TStDebuggerExtensionTest >> testDefaultDisplayOrder [
 	self assert: TStDebuggerExtension defaultDisplayOrder equals: 1
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TStDebuggerExtensionTest >> testDisplayOrder [
 
 	self
@@ -40,13 +42,13 @@ TStDebuggerExtensionTest >> testDisplayOrder [
 	self assert: traitUser displayOrder equals: 10
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TStDebuggerExtensionTest >> testExtensionToolNameIsExplicitRequirement [
 
 	self assert: (TStDebuggerExtension>>#debuggerExtensionToolName) isExplicitlyRequired 
 ]
 
-{ #category : #tests }
+{ #category : 'tests' }
 TStDebuggerExtensionTest >> testShowInDebugger [
 
 	self deny: TStDebuggerExtension showInDebugger.
diff --git a/src/NewTools-Debugger-Tests/TStDebuggerExtensionTestClass.class.st b/src/NewTools-Debugger-Tests/TStDebuggerExtensionTestClass.class.st
index 34d55f337..3c3d606ef 100644
--- a/src/NewTools-Debugger-Tests/TStDebuggerExtensionTestClass.class.st
+++ b/src/NewTools-Debugger-Tests/TStDebuggerExtensionTestClass.class.st
@@ -1,24 +1,26 @@
 Class {
-	#name : #TStDebuggerExtensionTestClass,
-	#superclass : #SpPresenter,
+	#name : 'TStDebuggerExtensionTestClass',
+	#superclass : 'SpPresenter',
 	#traits : 'TStDebuggerExtension',
 	#classTraits : 'TStDebuggerExtension classTrait',
-	#category : #'NewTools-Debugger-Tests-Model'
+	#category : 'NewTools-Debugger-Tests-Model',
+	#package : 'NewTools-Debugger-Tests',
+	#tag : 'Model'
 }
 
-{ #category : #layout }
+{ #category : 'layout' }
 TStDebuggerExtensionTestClass class >> defaultLayout [
 
 	^ SpBoxLayout newVertical
 ]
 
-{ #category : #testing }
+{ #category : 'testing' }
 TStDebuggerExtensionTestClass class >> isOnlyForTests [
 
 	^ true
 ]
 
-{ #category : #'debugger extension' }
+{ #category : 'debugger extension' }
 TStDebuggerExtensionTestClass >> debuggerExtensionToolName [
 	
 	^ 'TStDebuggerExtensionTestClass'
diff --git a/src/NewTools-Debugger-Tests/package.st b/src/NewTools-Debugger-Tests/package.st
index b0c9b39ba..fad40c086 100644
--- a/src/NewTools-Debugger-Tests/package.st
+++ b/src/NewTools-Debugger-Tests/package.st
@@ -1 +1 @@
-Package { #name : #'NewTools-Debugger-Tests' }
+Package { #name : 'NewTools-Debugger-Tests' }
diff --git a/src/NewTools-Debugger/StDebugger.class.st b/src/NewTools-Debugger/StDebugger.class.st
index c67e4399f..90172cd80 100644
--- a/src/NewTools-Debugger/StDebugger.class.st
+++ b/src/NewTools-Debugger/StDebugger.class.st
@@ -98,13 +98,6 @@ Class {
 	#tag : 'View'
 }
 
-{ #category : 'accessing' }
-StDebugger class >> activatedDebuggerExtensions [
-
-	^ self extensionToolsClasses select: [ :extension |
-		  extension showInDebugger ]
-]
-
 { #category : 'commands' }
 StDebugger class >> buildCommandsGroupWith: stDebuggerInstance forRoot: rootCommandGroup [
 
@@ -124,8 +117,9 @@ StDebugger class >> buildCommandsGroupWith: stDebuggerInstance forRoot: rootComm
 
 { #category : 'utilities' }
 StDebugger class >> closeAllDebuggers [
+
 	<script>
-	StDebugger allInstancesDo: [ :dbg | dbg close ]
+	self allInstancesDo: [ :dbg | dbg close ]
 ]
 
 { #category : 'instance creation' }
@@ -171,12 +165,12 @@ StDebugger class >> extensionToolsClasses [
 		  extensionClass isOnlyForTests ]
 ]
 
-{ #category : 'settings' }
+{ #category : 'accessing' }
 StDebugger class >> fastTDD [
 	^FastTDD ifNil:[FastTDD := false]
 ]
 
-{ #category : 'settings' }
+{ #category : 'accessing' }
 StDebugger class >> fastTDD: aBoolean [
 
 	FastTDD := aBoolean
@@ -221,18 +215,6 @@ StDebugger class >> openOn: aDebugSession withFullView: aBool andNotification: a
 	^ debugger
 ]
 
-{ #category : 'accessing' }
-StDebugger class >> sessionClass [
-	self flag: 'Should be replaced by Sindarin - should even be removed in that case!'.
-	^ DebugSession
-]
-
-{ #category : 'accessing' }
-StDebugger class >> spanNewSessionFrom: anotherSession [
-	self flag: 'Where is that used? 2019-06-28'.
-	^ anotherSession spanNewSession
-]
-
 { #category : 'settings' }
 StDebugger class >> stackColoringSettingOn: aBuilder [
 
@@ -252,12 +234,6 @@ StDebugger class >> taskbarIconName [
 	^#smallDebug
 ]
 
-{ #category : 'updating - widgets' }
-StDebugger class >> updateBlockFor: aDebugger [
-
-	^ [ aDebugger updateStep ]
-]
-
 { #category : 'tools registry' }
 StDebugger class >> usesExtensions [
 

From db8e28f93eb4455c744ae38aadb18524432794b1 Mon Sep 17 00:00:00 2001
From: adri09070 <97704417+adri09070@users.noreply.github.com>
Date: Fri, 29 Sep 2023 16:00:56 +0200
Subject: [PATCH 3/3] reintroducing a method that's been deleted by error

---
 src/NewTools-Debugger-Tests/StDebugger.extension.st | 7 +++++++
 1 file changed, 7 insertions(+)

diff --git a/src/NewTools-Debugger-Tests/StDebugger.extension.st b/src/NewTools-Debugger-Tests/StDebugger.extension.st
index ff52c8b4a..6d1528b07 100644
--- a/src/NewTools-Debugger-Tests/StDebugger.extension.st
+++ b/src/NewTools-Debugger-Tests/StDebugger.extension.st
@@ -1,5 +1,12 @@
 Extension { #name : 'StDebugger' }
 
+{ #category : '*NewTools-Debugger-Tests' }
+StDebugger class >> activatedDebuggerExtensions [
+
+	^ self extensionToolsClasses select: [ :extension |
+		  extension showInDebugger ]
+]
+
 { #category : '*NewTools-Debugger-Tests' }
 StDebugger >> inspector [