From 880e622cee4acbdb7e014f5865b808189cc344a4 Mon Sep 17 00:00:00 2001
From: CyrilFerlicot <cyril@ferlicot.me>
Date: Tue, 14 Jan 2025 16:34:43 +0100
Subject: [PATCH] Remove duplicated methods

from their superclasses
---
 src/Spec2-Adapters-Morphic/SpStyleVariable.class.st  |  6 ------
 src/Spec2-Commander2/SpCommand.class.st              |  6 ------
 src/Spec2-Core/SpWindowPresenter.class.st            | 10 ----------
 src/Spec2-Dialogs/SpSelectDialog.class.st            | 12 ------------
 src/Spec2-Dialogs/SpSelectMultipleDialog.class.st    | 12 ------------
 .../SpEasyListViewPresenterTest.class.st             |  6 ------
 6 files changed, 52 deletions(-)

diff --git a/src/Spec2-Adapters-Morphic/SpStyleVariable.class.st b/src/Spec2-Adapters-Morphic/SpStyleVariable.class.st
index baaa6beb..317a8ee8 100644
--- a/src/Spec2-Adapters-Morphic/SpStyleVariable.class.st
+++ b/src/Spec2-Adapters-Morphic/SpStyleVariable.class.st
@@ -49,12 +49,6 @@ SpStyleVariable >> preferredValueWith: anObject [
 		ifFalse: [ self value ]
 ]
 
-{ #category : 'evaluating' }
-SpStyleVariable >> scaledValue [
-
-	^ self nonscaledValue
-]
-
 { #category : 'private' }
 SpStyleVariable >> toColor: aColorOrSymbol [
 
diff --git a/src/Spec2-Commander2/SpCommand.class.st b/src/Spec2-Commander2/SpCommand.class.st
index a48dfba4..42530bf2 100644
--- a/src/Spec2-Commander2/SpCommand.class.st
+++ b/src/Spec2-Commander2/SpCommand.class.st
@@ -155,12 +155,6 @@ SpCommand >> isEnabled [
 	^ self canBeExecuted
 ]
 
-{ #category : 'testing' }
-SpCommand >> isVisible [
-
-	^ true
-]
-
 { #category : 'accessing' }
 SpCommand >> presenter [
 	^ presenter
diff --git a/src/Spec2-Core/SpWindowPresenter.class.st b/src/Spec2-Core/SpWindowPresenter.class.st
index 0fcb2bd2..66dd3634 100644
--- a/src/Spec2-Core/SpWindowPresenter.class.st
+++ b/src/Spec2-Core/SpWindowPresenter.class.st
@@ -577,11 +577,6 @@ SpWindowPresenter >> taskbarIcon [
 				ifNil: [ self taskbarIconName ]) ]
 ]
 
-{ #category : 'private' }
-SpWindowPresenter >> title [
-	^ titleHolder
-]
-
 { #category : 'private' }
 SpWindowPresenter >> title: aString [
 	titleHolder := aString
@@ -744,11 +739,6 @@ SpWindowPresenter >> windowClosed [
 	self application windowClosed: self
 ]
 
-{ #category : 'private' }
-SpWindowPresenter >> windowIcon [
-	^ windowIcon
-]
-
 { #category : 'private' }
 SpWindowPresenter >> windowIcon: aForm [
 	windowIcon := aForm
diff --git a/src/Spec2-Dialogs/SpSelectDialog.class.st b/src/Spec2-Dialogs/SpSelectDialog.class.st
index 8a2e5239..fa8f9bb5 100644
--- a/src/Spec2-Dialogs/SpSelectDialog.class.st
+++ b/src/Spec2-Dialogs/SpSelectDialog.class.st
@@ -110,18 +110,6 @@ SpSelectDialog >> displayIcon: aBlock [
 	list displayIcon: aBlock
 ]
 
-{ #category : 'api' }
-SpSelectDialog >> extent [
-
-	^ initialExtent ifNil: [ self class defaultExtent ]
-]
-
-{ #category : 'api' }
-SpSelectDialog >> extent: aPoint [
-
-	initialExtent := aPoint
-]
-
 { #category : 'initialization' }
 SpSelectDialog >> initializePresenters [
 
diff --git a/src/Spec2-Dialogs/SpSelectMultipleDialog.class.st b/src/Spec2-Dialogs/SpSelectMultipleDialog.class.st
index 2f6b3c95..6e2a8a4e 100644
--- a/src/Spec2-Dialogs/SpSelectMultipleDialog.class.st
+++ b/src/Spec2-Dialogs/SpSelectMultipleDialog.class.st
@@ -136,18 +136,6 @@ SpSelectMultipleDialog >> displayIcon: aBlock [
 	self refreshTable
 ]
 
-{ #category : 'api' }
-SpSelectMultipleDialog >> extent [
-
-	^ initialExtent ifNil: [ self class defaultExtent ]
-]
-
-{ #category : 'api' }
-SpSelectMultipleDialog >> extent: aPoint [
-
-	initialExtent := aPoint
-]
-
 { #category : 'initialization' }
 SpSelectMultipleDialog >> initialize [
 
diff --git a/src/Spec2-ListView-Tests/SpEasyListViewPresenterTest.class.st b/src/Spec2-ListView-Tests/SpEasyListViewPresenterTest.class.st
index 6a5dcad6..1bc6621b 100644
--- a/src/Spec2-ListView-Tests/SpEasyListViewPresenterTest.class.st
+++ b/src/Spec2-ListView-Tests/SpEasyListViewPresenterTest.class.st
@@ -5,12 +5,6 @@ Class {
 	#package : 'Spec2-ListView-Tests'
 }
 
-{ #category : 'testing' }
-SpEasyListViewPresenterTest class >> shouldInheritSelectors [
-
-	^ true
-]
-
 { #category : 'accessing' }
 SpEasyListViewPresenterTest >> classToTest [