From 883eb2b1b06bdc0c1e608671779d779ee45800d4 Mon Sep 17 00:00:00 2001 From: StevenCostiou Date: Tue, 7 Jan 2020 16:20:14 +0100 Subject: [PATCH] Renaming presenter --- .../ClyInstallMetaLinkPresenterTest.class.st | 4 +-- .../ClyInstallMetaLinkCommand.class.st | 2 +- ...ClyMetaLinkInstallationPresenter.class.st} | 28 +++++++++---------- .../ClyUninstallMetaLinkCommand.class.st | 2 +- 4 files changed, 18 insertions(+), 18 deletions(-) rename src/Calypso-SystemPlugins-Reflectivity-Browser/{ClyInstallMetaLinkPresenter.class.st => ClyMetaLinkInstallationPresenter.class.st} (73%) diff --git a/src/Calypso-SystemPlugins-Reflectivity-Browser-Tests/ClyInstallMetaLinkPresenterTest.class.st b/src/Calypso-SystemPlugins-Reflectivity-Browser-Tests/ClyInstallMetaLinkPresenterTest.class.st index f54b6c14018..5e814141108 100644 --- a/src/Calypso-SystemPlugins-Reflectivity-Browser-Tests/ClyInstallMetaLinkPresenterTest.class.st +++ b/src/Calypso-SystemPlugins-Reflectivity-Browser-Tests/ClyInstallMetaLinkPresenterTest.class.st @@ -15,12 +15,12 @@ Class { { #category : #running } ClyInstallMetaLinkPresenterTest >> presenterForMetalinkInstallation [ - ^ClyInstallMetaLinkPresenter onNode: node forInstallation: true + ^ClyMetaLinkInstallationPresenter onNode: node forInstallation: true ] { #category : #running } ClyInstallMetaLinkPresenterTest >> presenterForMetalinkUninstallation [ - ^ ClyInstallMetaLinkPresenter onNode: node forInstallation: false + ^ ClyMetaLinkInstallationPresenter onNode: node forInstallation: false ] { #category : #running } diff --git a/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyInstallMetaLinkCommand.class.st b/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyInstallMetaLinkCommand.class.st index 61c6065f392..86b0adf66d0 100644 --- a/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyInstallMetaLinkCommand.class.st +++ b/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyInstallMetaLinkCommand.class.st @@ -25,5 +25,5 @@ ClyInstallMetaLinkCommand >> defaultMenuItemName [ { #category : #execution } ClyInstallMetaLinkCommand >> execute [ - ClyInstallMetaLinkPresenter openInstallOnNode: sourceNode + ClyMetaLinkInstallationPresenter openInstallOnNode: sourceNode ] diff --git a/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyInstallMetaLinkPresenter.class.st b/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyMetaLinkInstallationPresenter.class.st similarity index 73% rename from src/Calypso-SystemPlugins-Reflectivity-Browser/ClyInstallMetaLinkPresenter.class.st rename to src/Calypso-SystemPlugins-Reflectivity-Browser/ClyMetaLinkInstallationPresenter.class.st index 86b077f6c8d..cb39d4791d2 100644 --- a/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyInstallMetaLinkPresenter.class.st +++ b/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyMetaLinkInstallationPresenter.class.st @@ -1,5 +1,5 @@ Class { - #name : #ClyInstallMetaLinkPresenter, + #name : #ClyMetaLinkInstallationPresenter, #superclass : #SpPresenter, #instVars : [ 'sourceNode', @@ -11,7 +11,7 @@ Class { } { #category : #specs } -ClyInstallMetaLinkPresenter class >> defaultSpec [ +ClyMetaLinkInstallationPresenter class >> defaultSpec [ ^ SpBoxLayout newVertical add: #toolBar expand: false @@ -22,7 +22,7 @@ ClyInstallMetaLinkPresenter class >> defaultSpec [ ] { #category : #'instance creation' } -ClyInstallMetaLinkPresenter class >> onNode: aSourceNode forInstallation: forInstallation [ +ClyMetaLinkInstallationPresenter class >> onNode: aSourceNode forInstallation: forInstallation [ ^ self basicNew sourceNode: aSourceNode; isForMetaLinkInstallation: forInstallation; @@ -30,17 +30,17 @@ ClyInstallMetaLinkPresenter class >> onNode: aSourceNode forInstallation: forIns ] { #category : #opening } -ClyInstallMetaLinkPresenter class >> openInstallOnNode: aSourceNode [ +ClyMetaLinkInstallationPresenter class >> openInstallOnNode: aSourceNode [ (self onNode: aSourceNode forInstallation: true) openWithSpec ] { #category : #opening } -ClyInstallMetaLinkPresenter class >> openUninstallOnNode: aSourceNode [ +ClyMetaLinkInstallationPresenter class >> openUninstallOnNode: aSourceNode [ (self onNode: aSourceNode forInstallation: false) openWithSpec ] { #category : #accessing } -ClyInstallMetaLinkPresenter >> allRelevantMetaLinks [ +ClyMetaLinkInstallationPresenter >> allRelevantMetaLinks [ | baseLinks | baseLinks := self isForMetaLinkInstallation ifTrue: [ MetaLink allInstances ] @@ -53,12 +53,12 @@ ClyInstallMetaLinkPresenter >> allRelevantMetaLinks [ ] { #category : #initialization } -ClyInstallMetaLinkPresenter >> close [ +ClyMetaLinkInstallationPresenter >> close [ self withWindowDo: #close ] { #category : #initialization } -ClyInstallMetaLinkPresenter >> initializePresenter [ +ClyMetaLinkInstallationPresenter >> initializePresenter [ list := self newList. list items: MetaLink allInstances. toolBar := self newToolBar. @@ -66,29 +66,29 @@ ClyInstallMetaLinkPresenter >> initializePresenter [ ] { #category : #installation } -ClyInstallMetaLinkPresenter >> installSelectedMetalink [ +ClyMetaLinkInstallationPresenter >> installSelectedMetalink [ list selection selectedItem ifNotNil: [ :metalink | sourceNode link: metalink ]. self close ] { #category : #testing } -ClyInstallMetaLinkPresenter >> isForMetaLinkInstallation [ +ClyMetaLinkInstallationPresenter >> isForMetaLinkInstallation [ ^isForMetaLinkInstallation ifNil:[isForMetaLinkInstallation := true] ] { #category : #accessing } -ClyInstallMetaLinkPresenter >> isForMetaLinkInstallation: anObject [ +ClyMetaLinkInstallationPresenter >> isForMetaLinkInstallation: anObject [ isForMetaLinkInstallation := anObject ] { #category : #accessing } -ClyInstallMetaLinkPresenter >> sourceNode: anObject [ +ClyMetaLinkInstallationPresenter >> sourceNode: anObject [ sourceNode := anObject ] { #category : #accessing } -ClyInstallMetaLinkPresenter >> toolbarButtons [ +ClyMetaLinkInstallationPresenter >> toolbarButtons [ | buttons | buttons := OrderedCollection new. buttons add: (self isForMetaLinkInstallation @@ -116,7 +116,7 @@ ClyInstallMetaLinkPresenter >> toolbarButtons [ ] { #category : #installation } -ClyInstallMetaLinkPresenter >> uninstallSelectedMetalink [ +ClyMetaLinkInstallationPresenter >> uninstallSelectedMetalink [ list selection selectedItem ifNotNil: [ :metalink | sourceNode removeLink: metalink ]. self close diff --git a/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyUninstallMetaLinkCommand.class.st b/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyUninstallMetaLinkCommand.class.st index c6de300b806..84af58a3072 100644 --- a/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyUninstallMetaLinkCommand.class.st +++ b/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyUninstallMetaLinkCommand.class.st @@ -27,5 +27,5 @@ ClyUninstallMetaLinkCommand >> defaultMenuItemName [ { #category : #execution } ClyUninstallMetaLinkCommand >> execute [ - ClyInstallMetaLinkPresenter openUninstallOnNode: sourceNode + ClyMetaLinkInstallationPresenter openUninstallOnNode: sourceNode ]