pharo-vcs · Ducasse · Aug 3, 2024 · Aug 1, 2024
diff --git a/Iceberg/IceMetacelloRepositoryAdapter.class.st b/Iceberg/IceMetacelloRepositoryAdapter.class.st
@@ -47,12 +47,6 @@ IceMetacelloRepositoryAdapter >> canUpgradeTo: anMCGitBasedRepository [
 	and: [ self repoPath = anMCGitBasedRepository repoPath and: [ self projectVersion = anMCGitBasedRepository projectVersion ]]
 ]
 
-{ #category : 'accessing' }
-IceMetacelloRepositoryAdapter >> commitIdFor: aWorkingCopy ifFound: aBlock [
-
-	self flag: #pharoTodo. "Do nothing?"
-]
-
 { #category : 'accessing' }
 IceMetacelloRepositoryAdapter >> description [
 
@@ -95,12 +89,6 @@ IceMetacelloRepositoryAdapter >> hash [
 	^ self description hash
 ]
 
-{ #category : 'compatibility' }
-IceMetacelloRepositoryAdapter >> isCache [
-	"User for Kommiter and Versionner"
-	^ false
-]
-
 { #category : 'compatibility' }
 IceMetacelloRepositoryAdapter >> isRemote [
 	"User for Komitter"

diff --git a/Iceberg/IcePackage.class.st b/Iceberg/IcePackage.class.st
@@ -70,12 +70,6 @@ IcePackage >> currentCommits [
 	^ workingCopy referenceCommits
 ]
 
-{ #category : 'accessing' }
-IcePackage >> directoryName [
-
-	^ self repository directoryNameForPackage: self
-]
-
 { #category : 'comparing' }
 IcePackage >> hash [
 	^ self name hash

diff --git a/Iceberg/MCAddition.extension.st b/Iceberg/MCAddition.extension.st
diff --git a/Iceberg/MCDefinition.extension.st b/Iceberg/MCDefinition.extension.st
@@ -1,10 +1,5 @@
 Extension { #name : 'MCDefinition' }
 
-{ #category : '*Iceberg-Changes' }
-MCDefinition >> addAnalysisToPackageChangeSet: aPackageChangeSet change: aChange [
-	aPackageChangeSet addChange: aChange
-]
-
 { #category : '*Iceberg-changes' }
 MCDefinition >> isFileDefinition [
 

diff --git a/Iceberg/MCGitHubRepository.extension.st b/Iceberg/MCGitHubRepository.extension.st
@@ -18,12 +18,6 @@ MCGitHubRepository class >> commitIdFor: aWorkingCopy [
 
 ]
 
-{ #category : '*Iceberg-Adapters' }
-MCGitHubRepository >> commitIdFor: aMCWorkingCopy ifFound: aBlockClosure [ 
-	(aMCWorkingCopy repositoryGroup includes: self)
-		ifTrue: [ aBlockClosure value: self commitId ]
-]
-
 { #category : '*Iceberg-Adapters' }
 MCGitHubRepository >> httpsUrl [
 	^ 'https://github.com/', projectPath, '.git'

diff --git a/Iceberg/MCModification.extension.st b/Iceberg/MCModification.extension.st
diff --git a/Iceberg/MCOrganizationDefinition.extension.st b/Iceberg/MCOrganizationDefinition.extension.st
diff --git a/Iceberg/MCPatchOperation.extension.st b/Iceberg/MCPatchOperation.extension.st
diff --git a/Iceberg/MCPostscriptDefinition.extension.st b/Iceberg/MCPostscriptDefinition.extension.st
diff --git a/Iceberg/MCRemoval.extension.st b/Iceberg/MCRemoval.extension.st
diff --git a/Iceberg/MCRepository.extension.st b/Iceberg/MCRepository.extension.st
diff --git a/Iceberg/MCVersion.extension.st b/Iceberg/MCVersion.extension.st
diff --git a/Iceberg/MCWorkingCopy.extension.st b/Iceberg/MCWorkingCopy.extension.st
@@ -1,23 +1,6 @@
 Extension { #name : 'MCWorkingCopy' }
 
-{ #category : '*Iceberg' }
-MCWorkingCopy >> ancestry: anAncestry [
-
-	ancestry := anAncestry
-]
-
 { #category : '*Iceberg' }
 MCWorkingCopy >> info [
 	^ self versionInfo
 ]
-
-{ #category : '*Iceberg-Adapters' }
-MCWorkingCopy >> loadedVersion [
-	self ancestors do: [ :ancestor |
-		(self repositoryGroup 
-			versionWithInfo: ancestor
-			ifNone: [ MCRepositoryGroup default versionWithInfo: ancestor ifNone: [] ])
-			ifNotNil: [ :version | ^ version ]
-	].
-
-]