Renamed metalinkList to metalinkListPresenter

pharo-project · Jan 8, 2020 · 0b84681 · 0b84681
1 parent 045ecfc
commit 0b84681
Show file tree

Hide file tree

Showing 2 changed files with 12 additions and 12 deletions.
diff --git a/...Calypso-SystemPlugins-Reflectivity-Browser-Tests/ClyInstallMetaLinkPresenterTest.class.st b/...Calypso-SystemPlugins-Reflectivity-Browser-Tests/ClyInstallMetaLinkPresenterTest.class.st
@@ -57,7 +57,7 @@ ClyInstallMetaLinkPresenterTest >> tearDown [
 ClyInstallMetaLinkPresenterTest >> testInstallSelectedMetalink [
 	|presenter list|
 	presenter := ClyMetaLinkInstallationPresenter onNode: self nodeInRealMethod forInstallation:  true.
-	list := presenter metalinkList.
+	list := presenter metalinkListPresenter.
 	list clickItem: 1.
 	self deny: self nodeInRealMethod hasLinks.
 	presenter installSelectedMetalink.
@@ -69,7 +69,7 @@ ClyInstallMetaLinkPresenterTest >> testInstallSelectedMetalink [
 ClyInstallMetaLinkPresenterTest >> testInstallSelectedMetalinkActionButton [
 	|presenter list|
 	presenter := ClyMetaLinkInstallationPresenter onNode: self nodeInRealMethod forInstallation:  true.
-	list := presenter metalinkList.
+	list := presenter metalinkListPresenter.
 	list clickItem: 1.	
 	self deny: self nodeInRealMethod hasLinks.
 	presenter toolbarButtons first execute.
@@ -122,7 +122,7 @@ ClyInstallMetaLinkPresenterTest >> testUninstallSelectedMetalink [
 	|presenter list|
 	self nodeInRealMethod link: metalink.
 	presenter := ClyMetaLinkInstallationPresenter onNode: self nodeInRealMethod forInstallation:  false.
-	list := presenter metalinkList.
+	list := presenter metalinkListPresenter.
 	list clickItem: 1.
 	self assert: self nodeInRealMethod hasLinks.
 	presenter uninstallSelectedMetalink.
@@ -134,7 +134,7 @@ ClyInstallMetaLinkPresenterTest >> testUninstallSelectedMetalinkActionButton [
 	|presenter list|
 	self nodeInRealMethod link: metalink.
 	presenter := ClyMetaLinkInstallationPresenter onNode: self nodeInRealMethod forInstallation:  false.
-	list := presenter metalinkList.
+	list := presenter metalinkListPresenter.
 	list clickItem: 1.	
 	self assert: self nodeInRealMethod hasLinks.
 	presenter toolbarButtons first execute.

diff --git a/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyMetaLinkInstallationPresenter.class.st b/src/Calypso-SystemPlugins-Reflectivity-Browser/ClyMetaLinkInstallationPresenter.class.st
@@ -10,7 +10,7 @@ Class {
 		'sourceNode',
 		'toolBar',
 		'isForMetaLinkInstallation',
-		'metalinkList'
+		'metalinkListPresenter'
 	],
 	#category : #'Calypso-SystemPlugins-Reflectivity-Browser-Metalinks'
 }
@@ -22,7 +22,7 @@ ClyMetaLinkInstallationPresenter class >> defaultSpec [
 		  expand: false
 		  fill: false
 		  padding: 0;
-		  add: #metalinkList;
+		  add: #metalinkListPresenter;
 		  yourself
 ]
 
@@ -67,15 +67,15 @@ ClyMetaLinkInstallationPresenter >> close [
 
 { #category : #initialization }
 ClyMetaLinkInstallationPresenter >> initializePresenter [
-	metalinkList := self newList.
-	metalinkList items: self allRelevantMetaLinks.
+	metalinkListPresenter := self newList.
+	metalinkListPresenter items: self allRelevantMetaLinks.
 	toolBar := self newToolBar.
 	self toolbarButtons do: [ :button | toolBar addItem: button ]
 ]
 
 { #category : #installation }
 ClyMetaLinkInstallationPresenter >> installSelectedMetalink [
-	metalinkList selection selectedItem ifNotNil: [ :metalink | 
+	metalinkListPresenter selection selectedItem ifNotNil: [ :metalink | 
 		sourceNode link: metalink ].
 	self close
 ]
@@ -91,8 +91,8 @@ ClyMetaLinkInstallationPresenter >> isForMetaLinkInstallation: anObject [
 ]
 
 { #category : #accessing }
-ClyMetaLinkInstallationPresenter >> metalinkList [
-	^ metalinkList
+ClyMetaLinkInstallationPresenter >> metalinkListPresenter [
+	^ metalinkListPresenter
 ]
 
 { #category : #accessing }
@@ -130,7 +130,7 @@ ClyMetaLinkInstallationPresenter >> toolbarButtons [
 
 { #category : #installation }
 ClyMetaLinkInstallationPresenter >> uninstallSelectedMetalink [
-	metalinkList selection selectedItem ifNotNil: [ :metalink | 
+	metalinkListPresenter selection selectedItem ifNotNil: [ :metalink | 
 		sourceNode removeLink: metalink ].
 	self close
 ]