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
pharo-spec · Nov 13, 2023 · b89455a · b89455a
1 parent 6764eeb
commit b89455a
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 39 deletions.
diff --git 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
@@ -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
-]