Merge pull request #939 from jecisc/remove-duplicated-methods

Remove duplicated methods
pharo-spec · Jan 14, 2025 · 0e97343 · 0e97343
2 parents 77d64da + e0a63df
commit 0e97343
Show file tree

Hide file tree

Showing 7 changed files with 2 additions and 41 deletions.
diff --git a/src/NewTools-Core/StPharoApplication.class.st b/src/NewTools-Core/StPharoApplication.class.st
@@ -108,12 +108,6 @@ StPharoApplication >> run [
 StPharoApplication >> shutDown: quitting [
 ]
 
-{ #category : 'private - running' }
-StPharoApplication >> start [
-
-	"do nothing"
-]
-
 { #category : 'system startup' }
 StPharoApplication >> startUp: resuming [
 

diff --git a/src/NewTools-Core/StPharoJobManager.class.st b/src/NewTools-Core/StPharoJobManager.class.st
@@ -37,12 +37,6 @@ StPharoJobManager class >> enable [
 		when: JobEnd send: #jobEnd: to: self
 ]
 
-{ #category : 'class initialization' }
-StPharoJobManager class >> initialize [
-
-	"self enable"
-]
-
 { #category : 'private' }
 StPharoJobManager class >> isHeadless [
 

diff --git a/src/NewTools-Finder/ByteString.extension.st b/src/NewTools-Finder/ByteString.extension.st
diff --git a/src/NewTools-Inspector/StInspectionPresenter.class.st b/src/NewTools-Inspector/StInspectionPresenter.class.st
@@ -69,8 +69,3 @@ StInspectionPresenter >> setModelBeforeInitialization: anInspectionModel [
 
 	model := anInspectionModel
 ]
-
-{ #category : 'stepping' }
-StInspectionPresenter >> step [
-	"do nothing, it depends on my children"
-]
diff --git a/src/NewTools-Inspector/StInspectorPresenter.class.st b/src/NewTools-Inspector/StInspectorPresenter.class.st
@@ -43,12 +43,6 @@ StInspectorPresenter class >> defaultLayout [
 		yourself
 ]
 
-{ #category : 'accessing' }
-StInspectorPresenter class >> defaultPreferredExtent [
-
-	^ 700 @ 500
-]
-
 { #category : 'accessing' }
 StInspectorPresenter class >> defaultSpacing [
 

diff --git a/src/NewTools-Scopes-Editor/ScopePackageNode.class.st b/src/NewTools-Scopes-Editor/ScopePackageNode.class.st
@@ -30,11 +30,6 @@ ScopePackageNode >> isPackageNode [
 	^ true
 ]
 
-{ #category : 'testing' }
-ScopePackageNode >> isScopeNode [
-	^ false
-]
-
 { #category : 'accessing' }
 ScopePackageNode >> packageNode [
 	^ self

diff --git a/src/NewTools-SettingsBrowser/StLabeledSettingFileSelectionPresenter.class.st b/src/NewTools-SettingsBrowser/StLabeledSettingFileSelectionPresenter.class.st
@@ -16,12 +16,9 @@ Class {
 
 { #category : 'examples' }
 StLabeledSettingFileSelectionPresenter class >> example [
+	<example>
 
-	^ (self 
-		label: 'Label Example' 
-		input: SpTextPresenter new
-		description: 'Description string') open
-
+	^ (self label: 'Label Example' input: SpTextPresenter new description: 'Description string') open
 ]
 
 { #category : 'initialization' }