From 783a53868cc085bc0de9dc2e60fee81bb8e4b180 Mon Sep 17 00:00:00 2001
From: Marcus Denker <denker@acm.org>
Date: Sat, 1 Jul 2023 09:45:07 +0200
Subject: [PATCH] remove unsent methods that send non-existing selectors. This
 is dead code.

---
 src/Spec2-Core/SpAbstractTextPresenter.class.st | 8 --------
 src/Spec2-Core/SpAbstractTreeFilter.class.st    | 6 ------
 src/Spec2-Core/SpMenuPresenter.class.st         | 6 ------
 src/Spec2-Core/SpTokenTreeFilter.class.st       | 6 ------
 src/Spec2-Morphic/SpWorldPresenter.class.st     | 7 -------
 5 files changed, 33 deletions(-)

diff --git a/src/Spec2-Core/SpAbstractTextPresenter.class.st b/src/Spec2-Core/SpAbstractTextPresenter.class.st
index f1033a980..7fdd2ede7 100644
--- a/src/Spec2-Core/SpAbstractTextPresenter.class.st
+++ b/src/Spec2-Core/SpAbstractTextPresenter.class.st
@@ -348,14 +348,6 @@ SpAbstractTextPresenter >> wantsVisualFeedback: aBoolean [
 	wantsVisualFeedback := aBoolean
 ]
 
-{ #category : #TOREMOVE }
-SpAbstractTextPresenter >> whenAboutToStyleChangedDo: aBlock [
-	"Set a block to perform when the about to style block changed"
-	
-	self whenAboutToStyleBlockChanged: [:block :old :announcement :anAnnouncer | 
-		aBlock cull: (block value) cull: old cull: announcement cull: anAnnouncer ]
-]
-
 { #category : #TOREMOVE }
 SpAbstractTextPresenter >> whenAcceptBlockChangedDo: aBlock [
 	"Set a block to perform when the accept block changed"
diff --git a/src/Spec2-Core/SpAbstractTreeFilter.class.st b/src/Spec2-Core/SpAbstractTreeFilter.class.st
index 2ef0aa7db..85524e104 100644
--- a/src/Spec2-Core/SpAbstractTreeFilter.class.st
+++ b/src/Spec2-Core/SpAbstractTreeFilter.class.st
@@ -7,9 +7,3 @@ Class {
 	#superclass : #Object,
 	#category : #'Spec2-Core-Support'
 }
-
-{ #category : #filtering }
-SpAbstractTreeFilter >> keepTreeNode: aNode [
-
-	^ false
-]
diff --git a/src/Spec2-Core/SpMenuPresenter.class.st b/src/Spec2-Core/SpMenuPresenter.class.st
index dad8d8f0d..060355372 100644
--- a/src/Spec2-Core/SpMenuPresenter.class.st
+++ b/src/Spec2-Core/SpMenuPresenter.class.st
@@ -189,12 +189,6 @@ SpMenuPresenter >> menuGroups [
 	^ groups
 ]
 
-{ #category : #TOREMOVE }
-SpMenuPresenter >> neglect: aModel [
-
-	aModel neglectMenuModel: self
-]
-
 { #category : #api }
 SpMenuPresenter >> openWithSpecAt: aPosition [
 	"Open this menu at `aPosition`. 
diff --git a/src/Spec2-Core/SpTokenTreeFilter.class.st b/src/Spec2-Core/SpTokenTreeFilter.class.st
index 6c6e07f98..72c45b568 100644
--- a/src/Spec2-Core/SpTokenTreeFilter.class.st
+++ b/src/Spec2-Core/SpTokenTreeFilter.class.st
@@ -27,12 +27,6 @@ SpTokenTreeFilter >> initialize [
 	token := ''.
 ]
 
-{ #category : #filtering }
-SpTokenTreeFilter >> keepTreeNode: aNode [
-
-	^ aNode matchTokenFilter: self
-]
-
 { #category : #accessing }
 SpTokenTreeFilter >> token [
 
diff --git a/src/Spec2-Morphic/SpWorldPresenter.class.st b/src/Spec2-Morphic/SpWorldPresenter.class.st
index 380b08f5c..6f19a364b 100644
--- a/src/Spec2-Morphic/SpWorldPresenter.class.st
+++ b/src/Spec2-Morphic/SpWorldPresenter.class.st
@@ -46,13 +46,6 @@ SpWorldPresenter >> defaultInitialExtent [
 	^ self currentWorld extent
 ]
 
-{ #category : #api }
-SpWorldPresenter >> ensureExtentFor: aWidget [
-
-	self extent ifNotNil: [ :ext | DisplayScreen hostWindowSize: ext ].
-	self initialExtent ifNotNil: [ :ext | DisplayScreen hostWindowSize: ext ].
-]
-
 { #category : #api }
 SpWorldPresenter >> isDisplayed [