diff --git a/Iceberg-Plugin-Calypso/ClyIcebergShowMethodVersionCommand.extension.st b/Iceberg-Plugin-Calypso/ClyIcebergShowMethodVersionCommand.extension.st deleted file mode 100644 index 0399d706dd..0000000000 --- a/Iceberg-Plugin-Calypso/ClyIcebergShowMethodVersionCommand.extension.st +++ /dev/null @@ -1,13 +0,0 @@ -Extension { #name : #ClyIcebergShowMethodVersionCommand } - -{ #category : #'*Iceberg-Plugin-Calypso' } -ClyIcebergShowMethodVersionCommand >> execute [ - - | browserClass | - browserClass := #IceTipVersionHistoryBrowser - asClassInEnvironment: self class environment - ifAbsent: [ #IceTipExtendedVersionBrowser asClass ]. - - (browserClass repository: repository method: method) open - -] diff --git a/Iceberg-TipUI/IceTipVersionHistoryBrowser.class.st b/Iceberg-TipUI/IceTipVersionHistoryBrowser.class.st index 3a0e60c95d..ddc02ddafc 100644 --- a/Iceberg-TipUI/IceTipVersionHistoryBrowser.class.st +++ b/Iceberg-TipUI/IceTipVersionHistoryBrowser.class.st @@ -53,13 +53,6 @@ IceTipVersionHistoryBrowser class >> onRepository: aRepository method: aMethod [ beCached ] -{ #category : #'backward compatibility' } -IceTipVersionHistoryBrowser class >> repository: repository method: method [ - "The Calypso command uses this selector to instantiate the browser." - - ^ self onRepository: repository method: method -] - { #category : #accessing } IceTipVersionHistoryBrowser >> commitList [ @@ -191,14 +184,6 @@ IceTipVersionHistoryBrowser >> newVersionInfoPresenter [ ^ IceTipReadOnlyFormBuilder newBuiltFor: selectedModel info ] -{ #category : #'backward compatibility' } -IceTipVersionHistoryBrowser >> open [ - "Calypso's ClyIcebergShowMethodVersionCommand uses this selector to open the browser." - - - ^ self openWithSpec -] - { #category : #accessing } IceTipVersionHistoryBrowser >> refresh [