From 0b846811840dbd9adbd385551fb6c32a14890237 Mon Sep 17 00:00:00 2001
From: StevenCostiou <steven.costiou@kloum.io>
Date: Wed, 8 Jan 2020 10:43:14 +0100
Subject: [PATCH] Renamed metalinkList to metalinkListPresenter

---
 .../ClyInstallMetaLinkPresenterTest.class.st     |  8 ++++----
 .../ClyMetaLinkInstallationPresenter.class.st    | 16 ++++++++--------
 2 files changed, 12 insertions(+), 12 deletions(-)

diff --git a/src/Calypso-SystemPlugins-Reflectivity-Browser-Tests/ClyInstallMetaLinkPresenterTest.class.st b/src/Calypso-SystemPlugins-Reflectivity-Browser-Tests/ClyInstallMetaLinkPresenterTest.class.st
index 23b3e36ab82..3b462b37d68 100644
--- a/src/Calypso-SystemPlugins-Reflectivity-Browser-Tests/ClyInstallMetaLinkPresenterTest.class.st
+++ b/src/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
index aebb43e85d0..a7a6d433d5d 100644
--- 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
 ]