Merge pull request #962 from Ducasse/PostCleaningFix2

Post cleaning fix2
pharo-spec · Jan 26, 2025 · 623c3b6 · 623c3b6
2 parents ddb50e6 + 20119ca
commit 623c3b6
Show file tree

Hide file tree

Showing 9 changed files with 1 addition and 49 deletions.
diff --git a/src/ColorPicker/SpColorCodePresenter.class.st b/src/ColorPicker/SpColorCodePresenter.class.st
@@ -46,12 +46,6 @@ SpColorCodePresenter >> chessPaintFor: aPoint [
 	^ canvas asForm
 ]
 
-{ #category : 'initialization' }
-SpColorCodePresenter >> connectPresenters [
-
-	"rCodeInput whenTextChangedDo: [  self updateColorCode ] "
-]
-
 { #category : 'layout' }
 SpColorCodePresenter >> defaultLayout [
 

diff --git a/src/NewTools-MethodBrowsers/StMessageBrowser.class.st b/src/NewTools-MethodBrowsers/StMessageBrowser.class.st
@@ -91,12 +91,6 @@ StMessageBrowser class >> browseSendersOf: aSymbol [
 	^ self browse: aSymbol senders asSendersOf: aSymbol
 ]
 
-{ #category : 'accessing' }
-StMessageBrowser class >> defaultPreferredExtent [
-
-	^ 900@600
-]
-
 { #category : 'instance creation - old' }
 StMessageBrowser class >> openMessageList: messageList name: aString autoSelect: aSelector refreshingBlockSelector: aRefreshingBlockSelector [
 

diff --git a/src/NewTools-Playground/StPlaygroundBindingsPresenter.class.st b/src/NewTools-Playground/StPlaygroundBindingsPresenter.class.st
@@ -18,12 +18,6 @@ Class {
 	#tag : 'View'
 }
 
-{ #category : 'accessing' }
-StPlaygroundBindingsPresenter class >> defaultPreferredExtent [ 
-
-	^ (600@400)
-]
-
 { #category : 'accessing' }
 StPlaygroundBindingsPresenter class >> emptyMessage [
 

diff --git a/src/NewTools-Playground/StPlaygroundPresenter.class.st b/src/NewTools-Playground/StPlaygroundPresenter.class.st
@@ -79,12 +79,6 @@ StPlaygroundPresenter class >> defaultExtent [
 	^ (600@400)
 ]
 
-{ #category : 'accessing' }
-StPlaygroundPresenter class >> defaultPreferredExtent [
-
-	^ (600@400)
-]
-
 { #category : 'world menu' }
 StPlaygroundPresenter class >> menuCommandOn: aBuilder [
 	<worldMenu>

diff --git a/src/NewTools-RewriterTools-Tests/StRewriterAbstractToolTest.class.st b/src/NewTools-RewriterTools-Tests/StRewriterAbstractToolTest.class.st
@@ -31,12 +31,6 @@ StRewriterAbstractToolTest >> testIconName [
 	self assert: self toolClass iconName isSymbol
 ]
 
-{ #category : 'tests' }
-StRewriterAbstractToolTest >> testTitle [
-
-	self deny: self toolClass title equals: 'Untitled window'
-]
-
 { #category : 'accessing' }
 StRewriterAbstractToolTest >> toolClass [
 

diff --git a/src/NewTools-RewriterTools-Tests/StRewriterOccurrencesBrowserPresenterTest.class.st b/src/NewTools-RewriterTools-Tests/StRewriterOccurrencesBrowserPresenterTest.class.st
@@ -30,5 +30,5 @@ StRewriterOccurrencesBrowserPresenterTest >> testCritiques [
 { #category : 'tests' }
 StRewriterOccurrencesBrowserPresenterTest >> testTitle [
 
-	self deny: StRewriterOccurrencesBrowserPresenter title equals: 'Untitled window'
+	self assert: StRewriterOccurrencesBrowserPresenter new windowTitle  equals: 'Occurrences matches' 
 ]
diff --git a/src/NewTools-RewriterTools/StRewriterExpressionFinderPresenter.class.st b/src/NewTools-RewriterTools/StRewriterExpressionFinderPresenter.class.st
@@ -52,12 +52,6 @@ StRewriterExpressionFinderPresenter class >> menuCommandOn: aBuilder [
 		help: self descriptionText
 ]
 
-{ #category : 'specs' }
-StRewriterExpressionFinderPresenter class >> title [
-
-	^ 'Expression Finder'
-]
-
 { #category : 'initialization' }
 StRewriterExpressionFinderPresenter >> connectPresenters [
 

diff --git a/src/NewTools-RewriterTools/StRewriterRuleLoaderPresenter.class.st b/src/NewTools-RewriterTools/StRewriterRuleLoaderPresenter.class.st
@@ -40,12 +40,6 @@ StRewriterRuleLoaderPresenter class >> iconName [
 	^ #smallLoadProject
 ]
 
-{ #category : 'specs' }
-StRewriterRuleLoaderPresenter class >> title [
-
-	^ 'Rewrite rule loader'
-]
-
 { #category : 'layout' }
 StRewriterRuleLoaderPresenter >> defaultLayout [
 

diff --git a/src/NewTools-SystemReporter/StSizeReporterPresenter.class.st b/src/NewTools-SystemReporter/StSizeReporterPresenter.class.st
@@ -17,12 +17,6 @@ Class {
 	#tag : 'Base'
 }
 
-{ #category : 'accessing' }
-StSizeReporterPresenter class >> defaultPreferredExtent [ 
-
-	^ 600@ 400
-]
-
 { #category : 'accessing' }
 StSizeReporterPresenter >> baselineClassLoc [
 	^ data at: #baselineClassLoc ifAbsent: [ self computeLocs. data at: #baselineClassLoc ]