diff --git a/src/Calypso-SystemPlugins-Monticello-Browser/ClyBrowseIcebergCommitCommand.class.st b/src/Calypso-SystemPlugins-Monticello-Browser/ClyBrowseIcebergCommitCommand.class.st deleted file mode 100644 index 870554e2a89..00000000000 --- a/src/Calypso-SystemPlugins-Monticello-Browser/ClyBrowseIcebergCommitCommand.class.st +++ /dev/null @@ -1,60 +0,0 @@ -" -I am a command to open Calypso browser on all packages from given Iceberg commit -" -Class { - #name : #ClyBrowseIcebergCommitCommand, - #superclass : #IceTipCommand, - #instVars : [ - 'methodHistoryLogEntryModel' - ], - #category : #'Calypso-SystemPlugins-Monticello-Browser' -} - -{ #category : #activation } -ClyBrowseIcebergCommitCommand class >> browserHistoryContextActivation [ - - - ^ CmdContextMenuActivation byRootGroupItemFor: IceTipHistoryContext -] - -{ #category : #activation } -ClyBrowseIcebergCommitCommand class >> browserHistoryShortcutActivation [ - - - ^ CmdShortcutActivation by: $b meta for: IceTipHistoryContext -] - -{ #category : #accessing } -ClyBrowseIcebergCommitCommand class >> defaultHelp [ - ^ 'Browse the version in repository' -] - -{ #category : #accessing } -ClyBrowseIcebergCommitCommand class >> defaultMenuIconName [ - ^ #glamorousBrowse -] - -{ #category : #accessing } -ClyBrowseIcebergCommitCommand class >> defaultMenuItemName [ - ^ 'Browse repository version' -] - -{ #category : #execution } -ClyBrowseIcebergCommitCommand >> execute [ - | env snapshot methodHistoryLogEntry | - env := RGEnvironment new. - methodHistoryLogEntry := methodHistoryLogEntryModel entity. - methodHistoryLogEntry commit packageNames - do: [ :packageName | - snapshot := methodHistoryLogEntry commit snapshotFor: (RPackage named: packageName). - snapshot importInto: env asPackageNamed: packageName ] - displayingProgress: 'loading'. - env clean. - env browseAs: methodHistoryLogEntry commit repository origin url , '[', methodHistoryLogEntry shortId, ']' -] - -{ #category : #execution } -ClyBrowseIcebergCommitCommand >> readParametersFromContext: aToolContext [ - super readParametersFromContext: aToolContext. - methodHistoryLogEntryModel := aToolContext item -] diff --git a/src/Calypso-SystemPlugins-Monticello-Browser/ClyBrowseIcebergPackageCommand.class.st b/src/Calypso-SystemPlugins-Monticello-Browser/ClyBrowseIcebergPackageCommand.class.st deleted file mode 100644 index 779ab8eb9c4..00000000000 --- a/src/Calypso-SystemPlugins-Monticello-Browser/ClyBrowseIcebergPackageCommand.class.st +++ /dev/null @@ -1,58 +0,0 @@ -" -I am a command to open Calypso browser on given package from given Iceberg repository -" -Class { - #name : #ClyBrowseIcebergPackageCommand, - #superclass : #IceTipPackageCommand, - #category : #'Calypso-SystemPlugins-Monticello-Browser' -} - -{ #category : #activation } -ClyBrowseIcebergPackageCommand class >> browserContextActivation [ - - - ^ CmdContextMenuActivation byRootGroupItemOrder: 20 for: IceTipWorkingCopyContext -] - -{ #category : #activation } -ClyBrowseIcebergPackageCommand class >> browserShortcutActivation [ - - - ^CmdShortcutActivation by: $b meta for: IceTipWorkingCopyContext -] - -{ #category : #activation } -ClyBrowseIcebergPackageCommand class >> browserStrongSelectionActivation [ - - - ^ IceTipCommandStrongSelectionActivation for: IceTipWorkingCopyContext -] - -{ #category : #accessing } -ClyBrowseIcebergPackageCommand class >> defaultHelp [ - ^ 'Browse the version in the repository' -] - -{ #category : #accessing } -ClyBrowseIcebergPackageCommand class >> defaultMenuIconName [ - ^ #glamorousBrowse -] - -{ #category : #accessing } -ClyBrowseIcebergPackageCommand class >> defaultMenuItemName [ - ^ 'Browse repository version' -] - -{ #category : #execution } -ClyBrowseIcebergPackageCommand >> execute [ - | env commit snapshot | - env := RGEnvironment new. - commit := repositoryModel commit. - - #(1) do: [ :i | - snapshot := commit snapshotFor: (RPackage named: packageModel name). - snapshot importInto: env asPackageNamed: packageModel name] - displayingProgress: 'loading'. - env clean. - env browseAs: repositoryModel entity description -] diff --git a/src/Calypso-SystemPlugins-Monticello-Browser/ClyBrowseIcebergRepositoryCommand.class.st b/src/Calypso-SystemPlugins-Monticello-Browser/ClyBrowseIcebergRepositoryCommand.class.st deleted file mode 100644 index 0f71e88bdab..00000000000 --- a/src/Calypso-SystemPlugins-Monticello-Browser/ClyBrowseIcebergRepositoryCommand.class.st +++ /dev/null @@ -1,59 +0,0 @@ -" -I am a command to open Calypso browser on all packages from given Iceberg repository (from the head commit) -" -Class { - #name : #ClyBrowseIcebergRepositoryCommand, - #superclass : #IceTipRepositoryCommand, - #category : #'Calypso-SystemPlugins-Monticello-Browser' -} - -{ #category : #activation } -ClyBrowseIcebergRepositoryCommand class >> browserContextActivation [ - - - "The Default option when double clicking should be the first in the menu" - ^ CmdContextMenuActivation - byRootGroupItemOrder: 1.1 - for: IceTipRepositoryListContext -] - -{ #category : #activation } -ClyBrowseIcebergRepositoryCommand class >> browserShortcutActivation [ - - - ^ CmdShortcutActivation by: $b meta for: IceTipRepositoryListContext -] - -{ #category : #testing } -ClyBrowseIcebergRepositoryCommand class >> canBeExecutedInContext: aToolContext [ - ^ aToolContext isRepositoryOperational -] - -{ #category : #accessing } -ClyBrowseIcebergRepositoryCommand class >> defaultHelp [ - ^ 'Browse the version in repository' -] - -{ #category : #accessing } -ClyBrowseIcebergRepositoryCommand class >> defaultMenuIconName [ - ^ #glamorousBrowse -] - -{ #category : #accessing } -ClyBrowseIcebergRepositoryCommand class >> defaultMenuItemName [ - ^ 'Browse repository version' -] - -{ #category : #execution } -ClyBrowseIcebergRepositoryCommand >> execute [ - | env commit snapshot | - commit := repositoryModel commit. - env := RGEnvironment new. - commit packageNames - do: [ :packageName | - snapshot := commit snapshotFor: (RPackage named: packageName). - snapshot importInto: env asPackageNamed: packageName ] - displayingProgress: 'loading'. - env clean. - env browseAs: repositoryModel entity description -]