From b89455ab311af1bad1b730d8b25f5d0cfc4cb804 Mon Sep 17 00:00:00 2001
From: CyrilFerlicot <cyril@ferlicot.me>
Date: Mon, 13 Nov 2023 21:52:35 +0100
Subject: [PATCH] Remove WorkingCopy spotter entries

Those entries are the only remanent calling some GUI of Monticello. I propose to remove them especially since they are written in Morph and dealing with low level stuff such as manipulating the cursor
---
 .../MessageListPresenter.class.st             |  3 +-
 .../MCWorkingCopy.extension.st                | 38 -------------------
 2 files changed, 2 insertions(+), 39 deletions(-)

diff --git a/src/NewTools-MethodBrowsers/MessageListPresenter.class.st b/src/NewTools-MethodBrowsers/MessageListPresenter.class.st
index 46c2ccbf5..0867e0876 100644
--- a/src/NewTools-MethodBrowsers/MessageListPresenter.class.st
+++ b/src/NewTools-MethodBrowsers/MessageListPresenter.class.st
@@ -302,7 +302,8 @@ MessageListPresenter >> packageOf: anItem [
 
 { #category : 'private' }
 MessageListPresenter >> protocolNameForItem: anItem [
-	^ anItem category ifNil: [ '' ]
+
+	^ anItem protocolName ifNil: [ '' ]
 ]
 
 { #category : 'actions' }
diff --git a/src/NewTools-Spotter-Extensions/MCWorkingCopy.extension.st b/src/NewTools-Spotter-Extensions/MCWorkingCopy.extension.st
index 88e49a0d0..49f760974 100644
--- a/src/NewTools-Spotter-Extensions/MCWorkingCopy.extension.st
+++ b/src/NewTools-Spotter-Extensions/MCWorkingCopy.extension.st
@@ -1,18 +1,5 @@
 Extension { #name : 'MCWorkingCopy' }
 
-{ #category : '*NewTools-Spotter-Extensions' }
-MCWorkingCopy >> spotterAllRepositoriesFor: aStep [
-	<stSpotterOrder: 20>
-	aStep listProcessor
-		title: 'All other repositories';
-		allCandidates: [ MCRepositoryGroup default repositories \ self repositoryGroup repositories ];
-		itemName: [ :item | item description ];
-		actLogic: [ :item :step | 
-			step exit.
-			self spotterCommit: self in: item ];
-		filter: StFilterSubstring
-]
-
 { #category : '*NewTools-Spotter-Extensions' }
 MCWorkingCopy >> spotterAncestorsFor: aStep [
 	<stSpotterOrder: 2>
@@ -23,18 +10,6 @@ MCWorkingCopy >> spotterAncestorsFor: aStep [
 		filter: StFilterSubstring
 ]
 
-{ #category : '*NewTools-Spotter-Extensions' }
-MCWorkingCopy >> spotterCommit: workingCopy in: aRepository [
-	| newVersion |
-
-	newVersion := workingCopy newVersionIn: aRepository.
-	newVersion ifNil: [ ^ self ].
-	Cursor wait showWhile: [
-		[ 	aRepository storeVersion: newVersion.
-			aRepository storeDependencies: newVersion ] 
-		ensure: [ (MCVersionInspector new version: newVersion) show ]]
-]
-
 { #category : '*NewTools-Spotter-Extensions' }
 MCWorkingCopy >> spotterMonticelloPackageFor: aStep [
 	<stSpotterOrder: 21>
@@ -60,16 +35,3 @@ MCWorkingCopy >> spotterPackageFor: aStep [
 		itemIconName: [ :item | #package ];
 		filter: StFilterSubstring
 ]
-
-{ #category : '*NewTools-Spotter-Extensions' }
-MCWorkingCopy >> spotterPackageRepositoriesFor: aStep [
-	<stSpotterOrder: 10>
-	aStep listProcessor
-		title: 'Package repositories';
-		allCandidates: [ self repositoryGroup repositories ];
-		itemName: [ :item | item description ];
-		actLogic: [ :item :step |
-			step exit.
-			self spotterCommit: self in: item ];
-		filter: StFilterSubstring
-]