From ec135bfe34cdb72c4fb42f6b9f63901a48ab180f Mon Sep 17 00:00:00 2001
From: Jules Boulet <julesboulet2000@gmail.com>
Date: Tue, 21 Apr 2026 11:14:42 +0200
Subject: [PATCH] refactor: delete classes and methods belonging to DSA

---
 DebuggingSpy/DSWindowActivityRecord.class.st  |  7 ---
 ...SWindowElementAnnotationPresenter.class.st | 48 -------------------
 2 files changed, 55 deletions(-)
 delete mode 100644 DebuggingSpy/DSWindowElementAnnotationPresenter.class.st

diff --git a/DebuggingSpy/DSWindowActivityRecord.class.st b/DebuggingSpy/DSWindowActivityRecord.class.st
index dfcba23..346af2d 100644
--- a/DebuggingSpy/DSWindowActivityRecord.class.st
+++ b/DebuggingSpy/DSWindowActivityRecord.class.st
@@ -87,13 +87,6 @@ DSWindowActivityRecord >> events: anObject [
 	events := anObject
 ]
 
-{ #category : 'inspecting' }
-DSWindowActivityRecord >> inspectionAnnotation [
-
-	<inspectorPresentationOrder: 50 title: 'Annotation'>
-	^ DSWindowElementAnnotationPresenter on: self
-]
-
 { #category : 'merging' }
 DSWindowActivityRecord >> mergeWith: aDSWindowActivityRecord [
 	"Merge the windowActivity with another one. Be careful, aDSWindowActivityRecord must happen after self otherwise the result will be false"
diff --git a/DebuggingSpy/DSWindowElementAnnotationPresenter.class.st b/DebuggingSpy/DSWindowElementAnnotationPresenter.class.st
deleted file mode 100644
index a8c0db1..0000000
--- a/DebuggingSpy/DSWindowElementAnnotationPresenter.class.st
+++ /dev/null
@@ -1,48 +0,0 @@
-Class {
-	#name : 'DSWindowElementAnnotationPresenter',
-	#superclass : 'StInspectionPresenter',
-	#instVars : [
-		'windowElement',
-		'indexField',
-		'annotationText'
-	],
-	#category : 'DebuggingSpy-Presenters',
-	#package : 'DebuggingSpy',
-	#tag : 'Presenters'
-}
-
-{ #category : 'layout' }
-DSWindowElementAnnotationPresenter >> defaultLayout [
-
-	^ SpBoxLayout newTopToBottom
-		  add: (SpPanedLayout newLeftToRight
-				   positionOfSlider: 35 percent;
-				   add: (self newLabel label: 'Index'; yourself);
-				   add: indexField;
-				   yourself)  expand: false  fill: false  padding: 0;
-		  add: (self newLabel label:'Annotation'; yourself)  expand: false  fill: false  padding: 0;
-		  add: annotationText;
-		  yourself
-]
-
-{ #category : 'initialization' }
-DSWindowElementAnnotationPresenter >> initializePresenters [ 
-	super initializePresenters.
-	
-	indexField := self newNumberInput.
-	indexField number: windowElement annotation index.
-	
-	annotationText := self newText.
-	annotationText text: windowElement annotation annotation.
-		
-	indexField whenTextChangedDo: [ windowElement annotation index: indexField number  ].		
-	annotationText whenTextChangedDo: [ windowElement annotation annotation: annotationText text  ]
-	
-
-]
-
-{ #category : 'accessing - model' }
-DSWindowElementAnnotationPresenter >> setModelBeforeInitialization: aDSWindowOrWindowActivity [
-
-	windowElement := aDSWindowOrWindowActivity
-]