diff --git a/bootstrap/scripts/03-metacello-bootstrap/01-loadMetacello.st b/bootstrap/scripts/03-metacello-bootstrap/01-loadMetacello.st index 645253cd1bb..ea491f8ffa3 100644 --- a/bootstrap/scripts/03-metacello-bootstrap/01-loadMetacello.st +++ b/bootstrap/scripts/03-metacello-bootstrap/01-loadMetacello.st @@ -34,9 +34,6 @@ MCFileTreeFileSystemUtils initialize. ConfigurationOf initialize. MetacelloPlatform initialize. -"Init deprecated aliases for Pharo 12. To remove in Pharo 13" -{ MetacelloPlatform . MetacelloProject . MetacelloProjectSpec . MetacelloTarget . MetacelloVersion . MetacelloVersionSpec } do: [ :class | class initialize ]. - STONWriter initialize. MCGitHubRepository initialize. diff --git a/src/BaselineOfPharo/BaselineOfPharo.class.st b/src/BaselineOfPharo/BaselineOfPharo.class.st index 2f12d9bb7cd..278ce150930 100644 --- a/src/BaselineOfPharo/BaselineOfPharo.class.st +++ b/src/BaselineOfPharo/BaselineOfPharo.class.st @@ -119,7 +119,7 @@ BaselineOfPharo class >> roassal [ newName: 'Roassal' owner: 'pharo-graphics' project: 'Roassal' - version: 'v1.06d' + version: 'v1.06e' ] { #category : 'repository urls' } diff --git a/src/BeautifulComments/ClyPackageRichTextCommentEditorToolMorph.class.st b/src/BeautifulComments/ClyPackageRichTextCommentEditorToolMorph.class.st index 5b53e2d2b65..33cc978204d 100644 --- a/src/BeautifulComments/ClyPackageRichTextCommentEditorToolMorph.class.st +++ b/src/BeautifulComments/ClyPackageRichTextCommentEditorToolMorph.class.st @@ -22,7 +22,7 @@ ClyPackageRichTextCommentEditorToolMorph class >> browserTabActivation [ "This declaration specifies that in any browser when packages are selected, a comment editor will be available in a tab." - ^ClyTabActivationStrategyAnnotation for: RPackage asCalypsoItemContext + ^ClyTabActivationStrategyAnnotation for: Package asCalypsoItemContext ] { #category : 'activation' } diff --git a/src/Calypso-Browser/ClyTabActivationStrategyAnnotation.class.st b/src/Calypso-Browser/ClyTabActivationStrategyAnnotation.class.st index d7e01e046c0..0d5e14f3398 100644 --- a/src/Calypso-Browser/ClyTabActivationStrategyAnnotation.class.st +++ b/src/Calypso-Browser/ClyTabActivationStrategyAnnotation.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Tabs' } -{ #category : 'class initialization' } -ClyTabActivationStrategyAnnotation class >> initialize [ - - self deprecatedAliases: { #ClyTabActivationStrategy } -] - { #category : 'operations' } ClyTabActivationStrategyAnnotation >> createToolFor: aBrowser inContext: aBrowserContext [ diff --git a/src/Calypso-SystemTools-Core/ClyProtocolEditorMorph.class.st b/src/Calypso-SystemTools-Core/ClyProtocolEditorMorph.class.st index 10285ca4161..3f362b48514 100644 --- a/src/Calypso-SystemTools-Core/ClyProtocolEditorMorph.class.st +++ b/src/Calypso-SystemTools-Core/ClyProtocolEditorMorph.class.st @@ -30,11 +30,6 @@ Class { #tag : 'Editors-Methods' } -{ #category : 'class initialization' } -ClyProtocolEditorMorph class >> initialize [ - self deprecatedAliases: { #ClyProtocolAndPackageEditorMorph } -] - { #category : 'building' } ClyProtocolEditorMorph >> build [ self buildResetButton. diff --git a/src/Kernel-CodeModel-Tests/PackageAndClassesTest.class.st b/src/Kernel-CodeModel-Tests/PackageAndClassesTest.class.st index 6597c875508..81ba8f6848e 100644 --- a/src/Kernel-CodeModel-Tests/PackageAndClassesTest.class.st +++ b/src/Kernel-CodeModel-Tests/PackageAndClassesTest.class.st @@ -426,15 +426,15 @@ PackageAndClassesTest >> testRenameClass [ | xPackage class | xPackage := self ensureXPackage. - class := self newClassNamed: #RPackageOldStubClass in: xPackage. + class := self newClassNamed: #PackageOldStubClass in: xPackage. - class rename: #RPackageNewStubClass. + class rename: #PackageNewStubClass. self assert: (self organizer packageOf: class) equals: xPackage. - self assert: (self organizer packageOfClassNamed: #RPackageNewStubClass) equals: xPackage. - self assert: (self organizer packageOfClassNamed: #RPackageOldStubClass) equals: self organizer undefinedPackage. - self assert: (xPackage includesClassNamed: 'RPackageNewStubClass'). - self deny: (xPackage includesClassNamed: 'RPackageOldStubClass') + self assert: (self organizer packageOfClassNamed: #PackageNewStubClass) equals: xPackage. + self assert: (self organizer packageOfClassNamed: #PackageOldStubClass) equals: self organizer undefinedPackage. + self assert: (xPackage includesClassNamed: 'PackageNewStubClass'). + self deny: (xPackage includesClassNamed: 'PackageOldStubClass') ] { #category : 'tests - operations on classes' } @@ -443,10 +443,10 @@ PackageAndClassesTest >> testRenameClassUpdateClassDefinedSelectorsInTheParentPa | xPackage class | xPackage := self ensureXPackage. - class := self newClassNamed: 'RPackageOldStubClass' asSymbol in: xPackage. - self createMethodNamed: 'stubMethod' inClass: class inProtocol: 'classic category'. + class := self newClassNamed: 'PackageOldStubClass' asSymbol in: xPackage. + self createMethodNamed: 'stubMethod' inClass: class inProtocol: 'classic protocol'. - class rename: 'RPackageNewStubClass'. + class rename: 'PackageNewStubClass'. self assert: (class >> #stubMethod) package equals: xPackage. self deny: (class >> #stubMethod) isExtension @@ -459,10 +459,10 @@ PackageAndClassesTest >> testRenameClassUpdateClassExtensionSelectorsInTheExtend | xPackage yPackage class | xPackage := self ensureXPackage. yPackage := self ensureYPackage. - class := self newClassNamed: #RPackageOldStubClass in: xPackage. + class := self newClassNamed: #PackageOldStubClass in: xPackage. self createMethodNamed: 'stubMethod' inClass: class asExtensionOf: yPackage. - class rename: 'RPackageNewStubClass'. + class rename: 'PackageNewStubClass'. self assert: (yPackage includesExtensionSelector: #stubMethod ofClass: class) ] @@ -473,10 +473,10 @@ PackageAndClassesTest >> testRenameClassUpdateMetaclassDefinedSelectorsInThePare | xPackage class | xPackage := self ensureXPackage. - class := self newClassNamed: #RPackageOldStubClass in: xPackage. - self createMethodNamed: 'stubMethod' inClass: class class inProtocol: 'classic category'. + class := self newClassNamed: #PackageOldStubClass in: xPackage. + self createMethodNamed: 'stubMethod' inClass: class class inProtocol: 'classic protocol'. - class rename: 'RPackageNewStubClass'. + class rename: 'PackageNewStubClass'. self assert: (class class >> #stubMethod) package equals: xPackage. self deny: (class class >> #stubMethod) isExtension @@ -489,10 +489,10 @@ PackageAndClassesTest >> testRenameClassUpdateMetaclassExtensionSelectorsInTheEx | xPackage yPackage class | xPackage := self ensureXPackage. yPackage := self ensureYPackage. - class := self newClassNamed: #RPackageOldStubClass in: xPackage. + class := self newClassNamed: #PackageOldStubClass in: xPackage. self createMethodNamed: 'stubMethod' inClass: class class asExtensionOf: yPackage. - class rename: 'RPackageNewStubClass'. + class rename: 'PackageNewStubClass'. self assert: (yPackage includesExtensionSelector: #stubMethod ofClass: class class) ] @@ -504,10 +504,10 @@ PackageAndClassesTest >> testRenameClassUpdateOrganizerClassExtendingPackagesMap | xPackage yPackage class | xPackage := self ensureXPackage. yPackage := self ensureYPackage. - class := self newClassNamed: #RPackageOldStubClass in: xPackage. + class := self newClassNamed: #PackageOldStubClass in: xPackage. self createMethodNamed: #stubMethod inClass: class asExtensionOf: yPackage. - class rename: 'RPackageNewStubClass'. + class rename: 'PackageNewStubClass'. self assert: (class extendingPackages includes: yPackage) ] diff --git a/src/Kernel-CodeModel-Tests/PackageOrganizerTest.class.st b/src/Kernel-CodeModel-Tests/PackageOrganizerTest.class.st index 5b408931cf1..502c8a04192 100644 --- a/src/Kernel-CodeModel-Tests/PackageOrganizerTest.class.st +++ b/src/Kernel-CodeModel-Tests/PackageOrganizerTest.class.st @@ -112,7 +112,6 @@ PackageOrganizerTest >> testExtensionMethodNotExactlyTheName [ PackageOrganizerTest >> testFullRegistration [ | xPackage yPackage zPackage a1 a2 b1 b2 a3 | - "taken from setup of RPackageReadOnlyCompleteSetup" xPackage := self ensureXPackage. yPackage := self ensureYPackage. zPackage := self ensureZPackage. @@ -360,7 +359,6 @@ PackageOrganizerTest >> testRemoveEmptyPackagesAndTags [ PackageOrganizerTest >> testRemovePackage [ | xPackage yPackage zPackage a1 a2 b1 b2 a3 | - "taken from setup of RPackageReadOnlyCompleteSetup" xPackage := self ensureXPackage. yPackage := self ensureYPackage. zPackage := self ensureZPackage. diff --git a/src/Kernel-CodeModel-Tests/PackageTest.class.st b/src/Kernel-CodeModel-Tests/PackageTest.class.st index bff1d6c94e8..66f978ae616 100644 --- a/src/Kernel-CodeModel-Tests/PackageTest.class.st +++ b/src/Kernel-CodeModel-Tests/PackageTest.class.st @@ -131,10 +131,10 @@ PackageTest >> testAnonymousClassAndSelector [ | ghost method | ghost := Object newAnonymousSubclassInEnvironment: testEnvironment. method := ghost compiler compile: 'rpackagetest'. - ghost addSelector: #rpackagetest withMethod: method. - self deny: (self organizer undefinedPackage includesSelector: #rpackagetest ofClass: ghost). + ghost addSelector: #packagetest withMethod: method. + self deny: (self organizer undefinedPackage includesSelector: #packagetest ofClass: ghost). self assert: (self organizer packageOfClassNamed: ghost name) equals: self organizer undefinedPackage. - ghost classify: #rpackagetest under: '*rpackagetest' + ghost classify: #packagetest under: '*packagetest' ] { #category : 'tests - extensions' } @@ -154,7 +154,7 @@ PackageTest >> testAsPackageWithError [ ] { #category : 'tests - demotion' } -PackageTest >> testDemoteToRPackageNamed [ +PackageTest >> testDemoteToPackageNamed [ | package1 package2 class | package1 := self ensurePackage: #'Test1-TAG1'. @@ -171,7 +171,7 @@ PackageTest >> testDemoteToRPackageNamed [ ] { #category : 'tests - demotion' } -PackageTest >> testDemoteToRPackageNamedExistingPackage [ +PackageTest >> testDemoteToPackageNamedExistingPackage [ | package1 package2 packageExisting class | package1 := self ensurePackage: #'Test1-TAG1'. @@ -190,7 +190,7 @@ PackageTest >> testDemoteToRPackageNamedExistingPackage [ ] { #category : 'tests - demotion' } -PackageTest >> testDemoteToRPackageNamedKeepOrganizer [ +PackageTest >> testDemoteToPackageNamedKeepOrganizer [ | newOrganizer package renamedPackage | newOrganizer := PackageOrganizer new. @@ -203,7 +203,7 @@ PackageTest >> testDemoteToRPackageNamedKeepOrganizer [ ] { #category : 'tests - demotion' } -PackageTest >> testDemoteToRPackageNamedMultilevelPackage [ +PackageTest >> testDemoteToPackageNamedMultilevelPackage [ | package1 package2 class | package1 := self ensurePackage: #'Test1-TAG1-X1'. @@ -220,7 +220,7 @@ PackageTest >> testDemoteToRPackageNamedMultilevelPackage [ ] { #category : 'tests - demotion' } -PackageTest >> testDemoteToRPackageNamedWithExtension [ +PackageTest >> testDemoteToPackageNamedWithExtension [ | packageOriginal packageDemoted class classOther | packageOriginal := self ensurePackage: #'Test1-TAG1'. diff --git a/src/Kernel-CodeModel/Package.class.st b/src/Kernel-CodeModel/Package.class.st index c9ba06ff6e0..7201b472581 100644 --- a/src/Kernel-CodeModel/Package.class.st +++ b/src/Kernel-CodeModel/Package.class.st @@ -62,7 +62,6 @@ Class { { #category : 'class initialization' } Package class >> initialize [ - self deprecatedAliases: { #RPackage }. Properties ifNil: [ self initializeProperties ] ifNotNil: [ @@ -403,10 +402,10 @@ Package >> isTestPackage [ 2. Or test package contains '-Tests-' in middle. Some examples: " - "(RPackage named: 'MockPackage-Tests') isTestPackage >>> true" - "(RPackage named: 'MockPackage-tests') isTestPackage >>> true" - "(RPackage named: 'MockPackage') isTestPackage >>> false" - "(RPackage named: 'MockPackage-Tests-Package') isTestPackage >>> true" + "(Package named: 'MockPackage-Tests') isTestPackage >>> true" + "(Package named: 'MockPackage-tests') isTestPackage >>> true" + "(Package named: 'MockPackage') isTestPackage >>> false" + "(Package named: 'MockPackage-Tests-Package') isTestPackage >>> true" ^ (self name endsWith: '-Tests' caseSensitive: false) or: [ self name includesSubstring: '-Tests-' caseSensitive: false ] ] diff --git a/src/Kernel-CodeModel/PackageConflictError.class.st b/src/Kernel-CodeModel/PackageConflictError.class.st index 868a8107a17..ed22582c024 100644 --- a/src/Kernel-CodeModel/PackageConflictError.class.st +++ b/src/Kernel-CodeModel/PackageConflictError.class.st @@ -12,9 +12,3 @@ Class { #package : 'Kernel-CodeModel', #tag : 'Exceptions' } - -{ #category : 'class initialization' } -PackageConflictError class >> initialize [ - - self deprecatedAliases: { #RPackageConflictError } -] diff --git a/src/Kernel-CodeModel/PackageOrganizer.class.st b/src/Kernel-CodeModel/PackageOrganizer.class.st index c1f01759bf8..9c362637fd8 100644 --- a/src/Kernel-CodeModel/PackageOrganizer.class.st +++ b/src/Kernel-CodeModel/PackageOrganizer.class.st @@ -24,12 +24,6 @@ PackageOrganizer class >> default [ ^ self packageOrganizer ] -{ #category : 'class initialization' } -PackageOrganizer class >> initialize [ - - self deprecatedAliases: { #RPackageOrganizer } -] - { #category : 'registration' } PackageOrganizer >> addPackage: aPackage [ diff --git a/src/Kernel-CodeModel/PackageTag.class.st b/src/Kernel-CodeModel/PackageTag.class.st index 5ab636291f7..8bde9ae6a5c 100644 --- a/src/Kernel-CodeModel/PackageTag.class.st +++ b/src/Kernel-CodeModel/PackageTag.class.st @@ -15,12 +15,6 @@ Class { #tag : 'Packages' } -{ #category : 'class initialization' } -PackageTag class >> initialize [ - - self deprecatedAliases: { #RPackageTag } -] - { #category : 'instance creation' } PackageTag class >> package: aPackage name: aString [ diff --git a/src/Kernel-CodeModel/PseudoVariable.class.st b/src/Kernel-CodeModel/PseudoVariable.class.st index bba5f905782..95f46ad3945 100644 --- a/src/Kernel-CodeModel/PseudoVariable.class.st +++ b/src/Kernel-CodeModel/PseudoVariable.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Variables' } -{ #category : 'class initialization' } -PseudoVariable class >> initialize [ - - self deprecatedAliases: { #ReservedVariable } -] - { #category : 'testing' } PseudoVariable class >> isAbstract [ ^self = PseudoVariable diff --git a/src/Kernel/MessageNotUnderstood.class.st b/src/Kernel/MessageNotUnderstood.class.st index 88b2fcdbc9a..171df1b7741 100644 --- a/src/Kernel/MessageNotUnderstood.class.st +++ b/src/Kernel/MessageNotUnderstood.class.st @@ -14,12 +14,6 @@ Class { #tag : 'Exceptions' } -{ #category : 'class initialization' } -MessageNotUnderstood class >> initialize [ - - self deprecatedAliases: { #VariableNotDeclared } -] - { #category : 'accessing' } MessageNotUnderstood >> defaultAction [ diff --git a/src/Metacello-Base/ConfigurationOf.class.st b/src/Metacello-Base/ConfigurationOf.class.st index 87dbcaa40ab..782243f446a 100644 --- a/src/Metacello-Base/ConfigurationOf.class.st +++ b/src/Metacello-Base/ConfigurationOf.class.st @@ -67,12 +67,6 @@ Class { #package : 'Metacello-Base' } -{ #category : 'class initialization' } -ConfigurationOf class >> initialize [ - - self deprecatedAliases: { #MetacelloBaseConfiguration } -] - { #category : 'accessing' } ConfigurationOf class >> project [ diff --git a/src/Metacello-Core/MetacelloPlatform.class.st b/src/Metacello-Core/MetacelloPlatform.class.st index 517cafb1293..a7ff172b1f7 100644 --- a/src/Metacello-Core/MetacelloPlatform.class.st +++ b/src/Metacello-Core/MetacelloPlatform.class.st @@ -25,8 +25,7 @@ MetacelloPlatform class >> current [ { #category : 'class initialization' } MetacelloPlatform class >> initialize [ - self select. - self deprecatedAliases: { #MetacelloPharoPlatform } + self select ] { #category : 'initialize-release' } diff --git a/src/Metacello-Core/MetacelloProject.class.st b/src/Metacello-Core/MetacelloProject.class.st index a9856d880cd..a1bd7fd8c66 100644 --- a/src/Metacello-Core/MetacelloProject.class.st +++ b/src/Metacello-Core/MetacelloProject.class.st @@ -15,12 +15,6 @@ Class { #tag : 'Model' } -{ #category : 'class initialization' } -MetacelloProject class >> initialize [ - - self deprecatedAliases: { #MetacelloMCProject } -] - { #category : 'instance creation' } MetacelloProject class >> new [ diff --git a/src/Metacello-Core/MetacelloProjectSpec.class.st b/src/Metacello-Core/MetacelloProjectSpec.class.st index 7f32859f50e..c430c25b353 100644 --- a/src/Metacello-Core/MetacelloProjectSpec.class.st +++ b/src/Metacello-Core/MetacelloProjectSpec.class.st @@ -19,12 +19,6 @@ Class { #tag : 'Specs' } -{ #category : 'class initialization' } -MetacelloProjectSpec class >> initialize [ - - self deprecatedAliases: { #MetacelloMCProjectSpec. #MetacelloGenericProjectSpec } -] - { #category : 'instance creation' } MetacelloProjectSpec class >> new [ self name == #MetacelloProjectSpec diff --git a/src/Metacello-Core/MetacelloTarget.class.st b/src/Metacello-Core/MetacelloTarget.class.st index d9f2590184a..505be2c5b10 100644 --- a/src/Metacello-Core/MetacelloTarget.class.st +++ b/src/Metacello-Core/MetacelloTarget.class.st @@ -13,12 +13,6 @@ Class { #tag : 'Targets' } -{ #category : 'class initialization' } -MetacelloTarget class >> initialize [ - - self deprecatedAliases: { #MetacelloCommonMCSpecLoader } -] - { #category : 'utilities' } MetacelloTarget class >> nameComponentsFrom: aVersionName [ | ar | diff --git a/src/Metacello-Core/MetacelloVersion.class.st b/src/Metacello-Core/MetacelloVersion.class.st index 85076a3106e..2b13fa959f0 100644 --- a/src/Metacello-Core/MetacelloVersion.class.st +++ b/src/Metacello-Core/MetacelloVersion.class.st @@ -25,11 +25,6 @@ MetacelloVersion class >> fromString: aString [ ^self new versionNumber: aString asMetacelloVersionNumber ] -{ #category : 'class initialization' } -MetacelloVersion class >> initialize [ - self deprecatedAliases: { #MetacelloMCVersion } -] - { #category : 'comparing' } MetacelloVersion >> < aMetacelloVersion [ diff --git a/src/Metacello-Core/MetacelloVersionSpec.class.st b/src/Metacello-Core/MetacelloVersionSpec.class.st index 56525810126..7cbf270fa47 100644 --- a/src/Metacello-Core/MetacelloVersionSpec.class.st +++ b/src/Metacello-Core/MetacelloVersionSpec.class.st @@ -20,12 +20,6 @@ Class { #tag : 'Specs' } -{ #category : 'class initialization' } -MetacelloVersionSpec class >> initialize [ - - self deprecatedAliases: { #MetacelloMCVersionSpec } -] - { #category : 'visiting' } MetacelloVersionSpec >> acceptVisitor: aVisitor [ diff --git a/src/Morphic-Base/BottomBorderStyle.class.st b/src/Morphic-Base/BottomBorderStyle.class.st index 1a5af094f0e..1ddf171d2bd 100644 --- a/src/Morphic-Base/BottomBorderStyle.class.st +++ b/src/Morphic-Base/BottomBorderStyle.class.st @@ -36,12 +36,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -BottomBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #BottomBorder } -] - { #category : 'drawing' } BottomBorderStyle >> frameRectangle: aRectangle on: aCanvas [ self drawLineFrom: aRectangle bottomLeft + (self trimSize @ 0) to: aRectangle bottomRight - (self trimSize @ 0) on: aCanvas diff --git a/src/Morphic-Base/ComplexBorderStyle.class.st b/src/Morphic-Base/ComplexBorderStyle.class.st index 7aa51060617..7b877636a9d 100644 --- a/src/Morphic-Base/ComplexBorderStyle.class.st +++ b/src/Morphic-Base/ComplexBorderStyle.class.st @@ -69,12 +69,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -ComplexBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #ComplexBorder } -] - { #category : 'instance creation' } ComplexBorderStyle class >> style: aSymbol [ ^self new style: aSymbol diff --git a/src/Morphic-Base/CompositeBorderStyle.class.st b/src/Morphic-Base/CompositeBorderStyle.class.st index 868b59116d2..917708612c7 100644 --- a/src/Morphic-Base/CompositeBorderStyle.class.st +++ b/src/Morphic-Base/CompositeBorderStyle.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -CompositeBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #CompositeBorder } -] - { #category : 'comparing' } CompositeBorderStyle >> = aBorderStyle [ "Check the sub-borders too" diff --git a/src/Morphic-Base/DashedBorderStyle.class.st b/src/Morphic-Base/DashedBorderStyle.class.st index 2cabef16c4f..ad31d6e7e04 100644 --- a/src/Morphic-Base/DashedBorderStyle.class.st +++ b/src/Morphic-Base/DashedBorderStyle.class.st @@ -13,12 +13,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -DashedBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #DashedBorder } -] - { #category : 'instance creation' } DashedBorderStyle class >> width: width dashColors: cols dashLengths: lens [ "Answer a new instance of the receiver with the given diff --git a/src/Morphic-Base/FillBorderStyle.class.st b/src/Morphic-Base/FillBorderStyle.class.st index a8f64326227..179f190fa33 100644 --- a/src/Morphic-Base/FillBorderStyle.class.st +++ b/src/Morphic-Base/FillBorderStyle.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -FillBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #FillStyleBorder } -] - { #category : 'geometry' } FillBorderStyle >> borderRectsFor: aRectangle [ "Answer a collection of rectangles to fill. diff --git a/src/Morphic-Base/InsetBorderStyle.class.st b/src/Morphic-Base/InsetBorderStyle.class.st index f2b43d2f841..aa98104d1e2 100644 --- a/src/Morphic-Base/InsetBorderStyle.class.st +++ b/src/Morphic-Base/InsetBorderStyle.class.st @@ -9,12 +9,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -InsetBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #InsetBorder } -] - { #category : 'accessing' } InsetBorderStyle >> bottomRightColor [ "Changed from direct access to color since, if nil, diff --git a/src/Morphic-Base/MarginBorderStyle.class.st b/src/Morphic-Base/MarginBorderStyle.class.st index 7a5118d2727..8685c22c115 100644 --- a/src/Morphic-Base/MarginBorderStyle.class.st +++ b/src/Morphic-Base/MarginBorderStyle.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -MarginBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #MarginBorder } -] - { #category : 'accessing' } MarginBorderStyle >> drawLineFrom: startPoint to: stopPoint on: aCanvas [ "Reduce the width by the margin." diff --git a/src/Morphic-Base/ModelMorph.class.st b/src/Morphic-Base/ModelMorph.class.st index 344d8ad93c0..3bfba2fdc1f 100644 --- a/src/Morphic-Base/ModelMorph.class.st +++ b/src/Morphic-Base/ModelMorph.class.st @@ -20,12 +20,6 @@ Class { #tag : 'Kernel' } -{ #category : 'class initialization' } -ModelMorph class >> initialize [ - - self deprecatedAliases: { #MorphicModel } -] - { #category : 'settings' } ModelMorph class >> keyboardFocusOnMouseDown [ ^ KeyboardFocusOnMouseDown ifNil: [KeyboardFocusOnMouseDown := true] diff --git a/src/Morphic-Base/RaisedBorderStyle.class.st b/src/Morphic-Base/RaisedBorderStyle.class.st index 38e2aea31dd..3ca3494ee73 100644 --- a/src/Morphic-Base/RaisedBorderStyle.class.st +++ b/src/Morphic-Base/RaisedBorderStyle.class.st @@ -9,12 +9,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -RaisedBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #RaisedBorder } -] - { #category : 'accessing' } RaisedBorderStyle >> bottomRightColor [ "Changed from direct access to color since, if nil, diff --git a/src/Morphic-Base/RoundedBorderStyle.class.st b/src/Morphic-Base/RoundedBorderStyle.class.st index 343db42956c..eb8baa34c00 100644 --- a/src/Morphic-Base/RoundedBorderStyle.class.st +++ b/src/Morphic-Base/RoundedBorderStyle.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -RoundedBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #RoundedBorder } -] - { #category : 'accessing' } RoundedBorderStyle >> cornerRadius [ "Answer the value of cornerRadius" diff --git a/src/Morphic-Base/SimpleBorderStyle.class.st b/src/Morphic-Base/SimpleBorderStyle.class.st index 988a6052a60..50ed1536cdd 100644 --- a/src/Morphic-Base/SimpleBorderStyle.class.st +++ b/src/Morphic-Base/SimpleBorderStyle.class.st @@ -14,12 +14,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -SimpleBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #SimpleBorder } -] - { #category : 'accessing' } SimpleBorderStyle >> baseColor [ ^baseColor ifNil:[Color transparent] diff --git a/src/Morphic-Base/TabPanelBorderStyle.class.st b/src/Morphic-Base/TabPanelBorderStyle.class.st index b1f7f8a5852..e008ac9a061 100644 --- a/src/Morphic-Base/TabPanelBorderStyle.class.st +++ b/src/Morphic-Base/TabPanelBorderStyle.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Borders' } -{ #category : 'class initialization' } -TabPanelBorderStyle class >> initialize [ - "Deprecated in Pharo 11" - self deprecatedAliases: { #TabPanelBorder } -] - { #category : 'drawing' } TabPanelBorderStyle >> frameRectangle: aRectangle on: aCanvas [ "Draw the border taking the currently selected tab into account. diff --git a/src/Morphic-Base/ToggleWithSymbolMenuItemShortcut.class.st b/src/Morphic-Base/ToggleWithSymbolMenuItemShortcut.class.st index 059178f651d..6f2421abd79 100644 --- a/src/Morphic-Base/ToggleWithSymbolMenuItemShortcut.class.st +++ b/src/Morphic-Base/ToggleWithSymbolMenuItemShortcut.class.st @@ -43,12 +43,6 @@ ToggleWithSymbolMenuItemShortcut class >> createSymbolTable [ "#Enter. Text string: (Character value: 16r23ce) asString attributes: attributes" } ] -{ #category : 'class initialization' } -ToggleWithSymbolMenuItemShortcut class >> initialize [ - - self deprecatedAliases: { #ToggleMenuItemShortcutWithSymbol } -] - { #category : 'accessing' } ToggleWithSymbolMenuItemShortcut class >> priority [ ^ 0 diff --git a/src/Morphic-Base/ToggleWithTextMenuItemShortcut.class.st b/src/Morphic-Base/ToggleWithTextMenuItemShortcut.class.st index 1ec3126ffad..1d7ca7478ae 100644 --- a/src/Morphic-Base/ToggleWithTextMenuItemShortcut.class.st +++ b/src/Morphic-Base/ToggleWithTextMenuItemShortcut.class.st @@ -16,12 +16,6 @@ ToggleWithTextMenuItemShortcut class >> canBeUsed [ ^ true ] -{ #category : 'class initialization' } -ToggleWithTextMenuItemShortcut class >> initialize [ - - self deprecatedAliases: { #ToggleMenuItemShortcutWithText } -] - { #category : 'accessing' } ToggleWithTextMenuItemShortcut class >> priority [ "Lowest priority... last to be choosen" diff --git a/src/Morphic-Examples/RadioButtonModelExample.class.st b/src/Morphic-Examples/RadioButtonModelExample.class.st index a405f1cf657..f3c8eb0dd59 100644 --- a/src/Morphic-Examples/RadioButtonModelExample.class.st +++ b/src/Morphic-Examples/RadioButtonModelExample.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Widgets' } -{ #category : 'class initialization' } -RadioButtonModelExample class >> initialize [ - - self deprecatedAliases: { #ExampleRadioButtonModel } -] - { #category : 'accessing' } RadioButtonModelExample >> beCenter [ "Set the option to #center." diff --git a/src/Morphic-Examples/WidgetExample.class.st b/src/Morphic-Examples/WidgetExample.class.st index a7e16e89c03..99be20294d7 100644 --- a/src/Morphic-Examples/WidgetExample.class.st +++ b/src/Morphic-Examples/WidgetExample.class.st @@ -446,9 +446,3 @@ WidgetExample class >> exampleWindowWithToolbars [ themeChanged; openInWorld ] - -{ #category : 'class initialization' } -WidgetExample class >> initialize [ - - self deprecatedAliases: { #WidgetExamples } -] diff --git a/src/Morphic-Tests/ForEventTestMock.class.st b/src/Morphic-Tests/ForEventTestMock.class.st index 00003316aa8..28cf1d81f1e 100644 --- a/src/Morphic-Tests/ForEventTestMock.class.st +++ b/src/Morphic-Tests/ForEventTestMock.class.st @@ -15,12 +15,6 @@ Class { #tag : 'Event' } -{ #category : 'class initialization' } -ForEventTestMock class >> initialize [ - - self deprecatedAliases: { #MockObjectForEventTests } -] - { #category : 'accessing' } ForEventTestMock >> counter [ ^ counter diff --git a/src/Morphic-Widgets-Basic/IconicButtonMorph.class.st b/src/Morphic-Widgets-Basic/IconicButtonMorph.class.st index 61a1ef4630b..fe81c62db08 100644 --- a/src/Morphic-Widgets-Basic/IconicButtonMorph.class.st +++ b/src/Morphic-Widgets-Basic/IconicButtonMorph.class.st @@ -26,9 +26,7 @@ IconicButtonMorph class >> defaultGraphics [ { #category : 'class initialization' } IconicButtonMorph class >> initialize [ - DefaultGraphics := self defaultGraphics. - - self deprecatedAliases: { #IconicButton } + DefaultGraphics := self defaultGraphics ] { #category : 'menu' } diff --git a/src/Morphic-Widgets-FastTable/FTActionFilterFunction.class.st b/src/Morphic-Widgets-FastTable/FTActionFilterFunction.class.st index 8de4d8b42e7..ca2160f8800 100644 --- a/src/Morphic-Widgets-FastTable/FTActionFilterFunction.class.st +++ b/src/Morphic-Widgets-FastTable/FTActionFilterFunction.class.st @@ -36,12 +36,6 @@ Class { #tag : 'Functions' } -{ #category : 'class initialization' } -FTActionFilterFunction class >> initialize [ - - self deprecatedAliases: { #FTFilterFunctionWithAction } -] - { #category : 'instance creation' } FTActionFilterFunction class >> table: aFTTableMorph action: aBlockClosure named: aString [ ^ (self table: aFTTableMorph) diff --git a/src/Morphic-Widgets-FastTable/FTFilterFunction.class.st b/src/Morphic-Widgets-FastTable/FTFilterFunction.class.st index 83a66be4866..b2755b6f3ee 100644 --- a/src/Morphic-Widgets-FastTable/FTFilterFunction.class.st +++ b/src/Morphic-Widgets-FastTable/FTFilterFunction.class.st @@ -24,12 +24,6 @@ Class { #tag : 'Functions' } -{ #category : 'class initialization' } -FTFilterFunction class >> initialize [ - - self deprecatedAliases: { #FTFunctionWithField } -] - { #category : 'updating' } FTFilterFunction >> colorText: aText [ table dataSource numberOfRows ~= 0 diff --git a/src/Morphic-Widgets-FastTable/FTMultipleSelectionStrategy.class.st b/src/Morphic-Widgets-FastTable/FTMultipleSelectionStrategy.class.st index 6e0f68a04e1..d46792092b1 100644 --- a/src/Morphic-Widgets-FastTable/FTMultipleSelectionStrategy.class.st +++ b/src/Morphic-Widgets-FastTable/FTMultipleSelectionStrategy.class.st @@ -10,12 +10,6 @@ Class { #tag : 'Selection' } -{ #category : 'class initialization' } -FTMultipleSelectionStrategy class >> initialize [ - - self deprecatedAliases: { #FTMultipleSelection } -] - { #category : 'testing' } FTMultipleSelectionStrategy >> isMultiple [ ^ true diff --git a/src/Morphic-Widgets-FastTable/FTSimpleSelectionStrategy.class.st b/src/Morphic-Widgets-FastTable/FTSimpleSelectionStrategy.class.st index 816be90d23c..1c39c16c3f4 100644 --- a/src/Morphic-Widgets-FastTable/FTSimpleSelectionStrategy.class.st +++ b/src/Morphic-Widgets-FastTable/FTSimpleSelectionStrategy.class.st @@ -10,12 +10,6 @@ Class { #tag : 'Selection' } -{ #category : 'class initialization' } -FTSimpleSelectionStrategy class >> initialize [ - - self deprecatedAliases: { #FTSimpleSelection } -] - { #category : 'testing' } FTSimpleSelectionStrategy >> isMultiple [ ^ false diff --git a/src/Morphic-Widgets-Scrolling/GeneralScrollBarMorph.class.st b/src/Morphic-Widgets-Scrolling/GeneralScrollBarMorph.class.st index c0199908f5d..9a09bdc3303 100644 --- a/src/Morphic-Widgets-Scrolling/GeneralScrollBarMorph.class.st +++ b/src/Morphic-Widgets-Scrolling/GeneralScrollBarMorph.class.st @@ -11,12 +11,6 @@ Class { #package : 'Morphic-Widgets-Scrolling' } -{ #category : 'class initialization' } -GeneralScrollBarMorph class >> initialize [ - - self deprecatedAliases: { #GeneralScrollBarMorph } -] - { #category : 'initialization' } GeneralScrollBarMorph >> initialize [ "Initialize the receiver." diff --git a/src/Morphic-Widgets-Scrolling/GeneralScrollPaneMorph.class.st b/src/Morphic-Widgets-Scrolling/GeneralScrollPaneMorph.class.st index 8448da52059..249706a3b5f 100644 --- a/src/Morphic-Widgets-Scrolling/GeneralScrollPaneMorph.class.st +++ b/src/Morphic-Widgets-Scrolling/GeneralScrollPaneMorph.class.st @@ -13,12 +13,6 @@ Class { #package : 'Morphic-Widgets-Scrolling' } -{ #category : 'class initialization' } -GeneralScrollPaneMorph class >> initialize [ - - self deprecatedAliases: { #GeneralScrollPane } -] - { #category : 'accessing' } GeneralScrollPaneMorph >> adoptPaneColor: paneColor [ "Adopt the given pane color." diff --git a/src/Morphic-Widgets-Scrolling/ScrollBarMorph.class.st b/src/Morphic-Widgets-Scrolling/ScrollBarMorph.class.st index 7f5158b4a3e..935d798e467 100644 --- a/src/Morphic-Widgets-Scrolling/ScrollBarMorph.class.st +++ b/src/Morphic-Widgets-Scrolling/ScrollBarMorph.class.st @@ -123,9 +123,7 @@ ScrollBarMorph class >> cleanUp [ { #category : 'class initialization' } ScrollBarMorph class >> initialize [ - self initializeImagesCache. - - self deprecatedAliases: { #ScrollBar } + self initializeImagesCache ] { #category : 'private - initialization' } diff --git a/src/Morphic-Widgets-Scrolling/SliderMorph.class.st b/src/Morphic-Widgets-Scrolling/SliderMorph.class.st index 07b06f8c7cd..231f0be7ddb 100644 --- a/src/Morphic-Widgets-Scrolling/SliderMorph.class.st +++ b/src/Morphic-Widgets-Scrolling/SliderMorph.class.st @@ -14,12 +14,6 @@ Class { #package : 'Morphic-Widgets-Scrolling' } -{ #category : 'class initialization' } -SliderMorph class >> initialize [ - - self deprecatedAliases: { #Slider } -] - { #category : 'geometry' } SliderMorph >> computeSlider [ | r | diff --git a/src/Morphic-Widgets-Tabs/TabDisabledState.class.st b/src/Morphic-Widgets-Tabs/TabDisabledState.class.st index 39bb848547a..c7b14418e66 100644 --- a/src/Morphic-Widgets-Tabs/TabDisabledState.class.st +++ b/src/Morphic-Widgets-Tabs/TabDisabledState.class.st @@ -9,12 +9,6 @@ Class { #tag : 'States' } -{ #category : 'class initialization' } -TabDisabledState class >> initialize [ - - self deprecatedAliases: { #TabDisabled } -] - { #category : 'protocol' } TabDisabledState >> backgroundColor [ ^ Smalltalk ui theme disabledColor diff --git a/src/Morphic-Widgets-Tabs/TabEnabledState.class.st b/src/Morphic-Widgets-Tabs/TabEnabledState.class.st index 35d2c77d652..929211531eb 100644 --- a/src/Morphic-Widgets-Tabs/TabEnabledState.class.st +++ b/src/Morphic-Widgets-Tabs/TabEnabledState.class.st @@ -9,12 +9,6 @@ Class { #tag : 'States' } -{ #category : 'class initialization' } -TabEnabledState class >> initialize [ - - self deprecatedAliases: { #TabEnabled } -] - { #category : 'protocol' } TabEnabledState >> backgroundColor [ ^ Smalltalk ui theme darkBaseColor diff --git a/src/Morphic-Widgets-Tabs/TabSelectedState.class.st b/src/Morphic-Widgets-Tabs/TabSelectedState.class.st index 890f27f1016..b3644d876f7 100644 --- a/src/Morphic-Widgets-Tabs/TabSelectedState.class.st +++ b/src/Morphic-Widgets-Tabs/TabSelectedState.class.st @@ -9,12 +9,6 @@ Class { #tag : 'States' } -{ #category : 'class initialization' } -TabSelectedState class >> initialize [ - - self deprecatedAliases: { #TabSelected } -] - { #category : 'protocol' } TabSelectedState >> backgroundColor [ ^ Smalltalk ui theme selectionColor diff --git a/src/Morphic-Widgets-Tabs/TabWithNoContentsMorph.class.st b/src/Morphic-Widgets-Tabs/TabWithNoContentsMorph.class.st index c01d0c8bd2a..ee8cbf93dc5 100644 --- a/src/Morphic-Widgets-Tabs/TabWithNoContentsMorph.class.st +++ b/src/Morphic-Widgets-Tabs/TabWithNoContentsMorph.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Support' } -{ #category : 'class initialization' } -TabWithNoContentsMorph class >> initialize [ - - self deprecatedAliases: { #TabWithNoContents } -] - { #category : 'instance creation' } TabWithNoContentsMorph class >> signalTab: aTab [ diff --git a/src/Morphic-Widgets-Tree/TreeChunkPagerMorph.class.st b/src/Morphic-Widgets-Tree/TreeChunkPagerMorph.class.st index 879fd1df5cf..d1e30a7c588 100644 --- a/src/Morphic-Widgets-Tree/TreeChunkPagerMorph.class.st +++ b/src/Morphic-Widgets-Tree/TreeChunkPagerMorph.class.st @@ -15,12 +15,6 @@ Class { #tag : 'Pagination' } -{ #category : 'class initialization' } -TreeChunkPagerMorph class >> initialize [ - - self deprecatedAliases: { #MorphTreeChunkPager } -] - { #category : 'accessing' } TreeChunkPagerMorph >> atBottom [ ^ atBottom ifNil: [atBottom := false] diff --git a/src/Morphic-Widgets-Tree/TreeColumnButtonMorph.class.st b/src/Morphic-Widgets-Tree/TreeColumnButtonMorph.class.st index b86e9c67a27..9ded86012cc 100644 --- a/src/Morphic-Widgets-Tree/TreeColumnButtonMorph.class.st +++ b/src/Morphic-Widgets-Tree/TreeColumnButtonMorph.class.st @@ -12,12 +12,6 @@ Class { #package : 'Morphic-Widgets-Tree' } -{ #category : 'class initialization' } -TreeColumnButtonMorph class >> initialize [ - - self deprecatedAliases: { #MorphTreeColumnButton } -] - { #category : 'accessing' } TreeColumnButtonMorph >> acceptDroppingMorph: aMorph event: evt [ self model container swapColumn: self model withColumn: aMorph passenger. diff --git a/src/Morphic-Widgets-Tree/TreeNavigationBarMorph.class.st b/src/Morphic-Widgets-Tree/TreeNavigationBarMorph.class.st index 13d35badd9b..2122bc8107d 100644 --- a/src/Morphic-Widgets-Tree/TreeNavigationBarMorph.class.st +++ b/src/Morphic-Widgets-Tree/TreeNavigationBarMorph.class.st @@ -29,12 +29,6 @@ TreeNavigationBarMorph class >> createIconMethods [ self class compile: (n, 'Icon', String cr, String tab, '^ ', form storeString) classified: #icons] ] -{ #category : 'class initialization' } -TreeNavigationBarMorph class >> initialize [ - - self deprecatedAliases: { #MorphTreeNavigationBar } -] - { #category : 'instance creation' } TreeNavigationBarMorph class >> on: aTreeMorph pageSize: aPageSize [ ^ self new treeMorph: aTreeMorph pageSize: aPageSize diff --git a/src/Morphic-Widgets-Tree/TreePagerMorph.class.st b/src/Morphic-Widgets-Tree/TreePagerMorph.class.st index 2209d923b85..938ecdff403 100644 --- a/src/Morphic-Widgets-Tree/TreePagerMorph.class.st +++ b/src/Morphic-Widgets-Tree/TreePagerMorph.class.st @@ -12,12 +12,6 @@ Class { #tag : 'Pagination' } -{ #category : 'class initialization' } -TreePagerMorph class >> initialize [ - - self deprecatedAliases: { #MorphTreePager } -] - { #category : 'accessing' } TreePagerMorph >> allIntervals [ | intervals | diff --git a/src/Morphic-Widgets-Windows/DialogWindowMorph.class.st b/src/Morphic-Widgets-Windows/DialogWindowMorph.class.st index 9c3f09125ba..668eaee7015 100644 --- a/src/Morphic-Widgets-Windows/DialogWindowMorph.class.st +++ b/src/Morphic-Widgets-Windows/DialogWindowMorph.class.st @@ -14,12 +14,6 @@ Class { #tag : 'Widgets' } -{ #category : 'class initialization' } -DialogWindowMorph class >> initialize [ - - self deprecatedAliases: { #DialogWindow } -] - { #category : 'actions' } DialogWindowMorph >> acceptTextMorphs [ "Accept any text morphs except for those that have no edits." diff --git a/src/OSWindow-Core/OSBackendWindow.class.st b/src/OSWindow-Core/OSBackendWindow.class.st index 80c6d987ad8..31dd929ce76 100644 --- a/src/OSWindow-Core/OSBackendWindow.class.st +++ b/src/OSWindow-Core/OSBackendWindow.class.st @@ -16,12 +16,6 @@ Class { #tag : 'Utilities' } -{ #category : 'class initialization' } -OSBackendWindow class >> initialize [ - - self deprecatedAliases: { #OSWindowHandle } -] - { #category : 'accessing' } OSBackendWindow >> borderless [ ^ false diff --git a/src/Polymorph-Widgets/Pharo3TabPanelBorderStyle.class.st b/src/Polymorph-Widgets/Pharo3TabPanelBorderStyle.class.st index 9d41d2dbd28..733489311b4 100644 --- a/src/Polymorph-Widgets/Pharo3TabPanelBorderStyle.class.st +++ b/src/Polymorph-Widgets/Pharo3TabPanelBorderStyle.class.st @@ -9,12 +9,6 @@ Class { #tag : 'Themes' } -{ #category : 'class initialization' } -Pharo3TabPanelBorderStyle class >> initialize [ - - self deprecatedAliases: { #Pharo3TabPanelBorder } -] - { #category : 'drawing' } Pharo3TabPanelBorderStyle >> frameRectangle: aRectangle on: aCanvas [ "Draw the border taking the currently selected tab into account. diff --git a/src/Ring-Definitions-Core/RGPackageDefinition.class.st b/src/Ring-Definitions-Core/RGPackageDefinition.class.st index 4f2e420c90b..7ae119600dc 100644 --- a/src/Ring-Definitions-Core/RGPackageDefinition.class.st +++ b/src/Ring-Definitions-Core/RGPackageDefinition.class.st @@ -15,13 +15,6 @@ Class { #tag : 'Base' } -{ #category : 'class initialization' } -RGPackageDefinition class >> initialize [ - "Those got merged into RGPackageDefinition" - - self deprecatedAliases: { #RGAbstractContainer. #RGContainer } -] - { #category : 'adding-removing' } RGPackageDefinition >> addClass: aRGBehaviorDefinition [ "aRGBehaviorDefinition has to be a class, trait or metaclass" diff --git a/src/SUnit-Core/ClassFactoryForTestCase.class.st b/src/SUnit-Core/ClassFactoryForTestCase.class.st index 362790aa888..78f2e23bcec 100644 --- a/src/SUnit-Core/ClassFactoryForTestCase.class.st +++ b/src/SUnit-Core/ClassFactoryForTestCase.class.st @@ -49,13 +49,6 @@ ClassFactoryForTestCase class >> environment: aSystemDictionary [ yourself ] -{ #category : 'class initialization' } -ClassFactoryForTestCase class >> initialize [ - "Now we can personnalize the environment of the ClassFactoryForTestCase. So instead of having this duplicated class, we can just use this one and specify the environment that will have its own organization." - - self deprecatedAliases: { #ClassFactoryWithOrganization } -] - { #category : 'cleaning' } ClassFactoryForTestCase >> cleanUp [ diff --git a/src/Shift-ClassBuilder/ShSuperclassChangeDetector.class.st b/src/Shift-ClassBuilder/ShSuperclassChangeDetector.class.st index 741c51539f8..ca20a546d2a 100644 --- a/src/Shift-ClassBuilder/ShSuperclassChangeDetector.class.st +++ b/src/Shift-ClassBuilder/ShSuperclassChangeDetector.class.st @@ -9,12 +9,6 @@ Class { #tag : 'Changes' } -{ #category : 'class initialization' } -ShSuperclassChangeDetector class >> initialize [ - - self deprecatedAliases: { #ShSuperclassChangedDetector } -] - { #category : 'initialization' } ShSuperclassChangeDetector >> initialize [ super initialize. diff --git a/src/Shift-ClassBuilder/ShiftClassBuilder.class.st b/src/Shift-ClassBuilder/ShiftClassBuilder.class.st index f0d232af29d..a393c77d06a 100644 --- a/src/Shift-ClassBuilder/ShiftClassBuilder.class.st +++ b/src/Shift-ClassBuilder/ShiftClassBuilder.class.st @@ -71,12 +71,6 @@ ShiftClassBuilder class >> defaultBuildEnhancer [ ^ BuilderEnhancer ifNil: [ ShDefaultBuilderEnhancer ] ] -{ #category : 'class initialization' } -ShiftClassBuilder class >> initialize [ - - self deprecatedAliases: #( #FluidBuilder #FluidClassBuilder #FluidTraitBuilder ) -] - { #category : 'accessing' } ShiftClassBuilder class >> setDefaultBuilderEnhancer: aClass [ BuilderEnhancer := aClass diff --git a/src/Shift-ClassBuilder/ShiftClassSideBuilder.class.st b/src/Shift-ClassBuilder/ShiftClassSideBuilder.class.st index 99c40d4ddf5..a3c03e3418a 100644 --- a/src/Shift-ClassBuilder/ShiftClassSideBuilder.class.st +++ b/src/Shift-ClassBuilder/ShiftClassSideBuilder.class.st @@ -18,12 +18,6 @@ Class { #tag : 'Builder' } -{ #category : 'class initialization' } -ShiftClassSideBuilder class >> initialize [ - - self deprecatedAliases: #( #FluidClassSideClassBuilder #FluidClassSideTraitBuilder ) -] - { #category : 'accessing' } ShiftClassSideBuilder >> slots: anArray [ "Pay attention on the class side we do not have to have classSlots: but slots:" diff --git a/src/System-Announcements/ClassRepackaged.class.st b/src/System-Announcements/ClassRepackaged.class.st index 152a33061a5..85e505532cf 100644 --- a/src/System-Announcements/ClassRepackaged.class.st +++ b/src/System-Announcements/ClassRepackaged.class.st @@ -24,12 +24,6 @@ ClassRepackaged class >> classRepackaged: aClass oldTag: oldTag newTag: newTag [ yourself ] -{ #category : 'class initialization' } -ClassRepackaged class >> initialize [ - - self deprecatedAliases: { #ClassRecategorized } -] - { #category : 'accessing' } ClassRepackaged >> classAffected [ diff --git a/src/System-Announcements/PackageAdded.class.st b/src/System-Announcements/PackageAdded.class.st index 48f1c763926..990016e50d4 100644 --- a/src/System-Announcements/PackageAdded.class.st +++ b/src/System-Announcements/PackageAdded.class.st @@ -8,8 +8,3 @@ Class { #package : 'System-Announcements', #tag : 'System-Packages' } - -{ #category : 'class initialization' } -PackageAdded class >> initialize [ - self deprecatedAliases: { #RPackageRegistered } -] diff --git a/src/System-Announcements/PackageAnnouncement.class.st b/src/System-Announcements/PackageAnnouncement.class.st index e8d09072b00..8cd6484977a 100644 --- a/src/System-Announcements/PackageAnnouncement.class.st +++ b/src/System-Announcements/PackageAnnouncement.class.st @@ -12,11 +12,6 @@ Class { #tag : 'System-Packages' } -{ #category : 'class initialization' } -PackageAnnouncement class >> initialize [ - self deprecatedAliases: { #RPackageAnnouncement } -] - { #category : 'instance creation' } PackageAnnouncement class >> to: aPackage [ diff --git a/src/System-Announcements/PackageRemoved.class.st b/src/System-Announcements/PackageRemoved.class.st index a9ac704fccb..431484c2a08 100644 --- a/src/System-Announcements/PackageRemoved.class.st +++ b/src/System-Announcements/PackageRemoved.class.st @@ -8,8 +8,3 @@ Class { #package : 'System-Announcements', #tag : 'System-Packages' } - -{ #category : 'class initialization' } -PackageRemoved class >> initialize [ - self deprecatedAliases: { #RPackageUnregistered } -] diff --git a/src/System-Announcements/PackageRenamed.class.st b/src/System-Announcements/PackageRenamed.class.st index 7eb68693f1a..ecd549b091c 100644 --- a/src/System-Announcements/PackageRenamed.class.st +++ b/src/System-Announcements/PackageRenamed.class.st @@ -13,12 +13,6 @@ Class { #tag : 'System-Packages' } -{ #category : 'class initialization' } -PackageRenamed class >> initialize [ - - self deprecatedAliases: { #RPackageRenamed } -] - { #category : 'instance creation' } PackageRenamed class >> to: aPackage oldName: aSymbol newName: anotherSymbol [ diff --git a/src/System-Announcements/PackageTagAdded.class.st b/src/System-Announcements/PackageTagAdded.class.st index 53ead569d98..225df82daec 100644 --- a/src/System-Announcements/PackageTagAdded.class.st +++ b/src/System-Announcements/PackageTagAdded.class.st @@ -8,9 +8,3 @@ Class { #package : 'System-Announcements', #tag : 'System-Packages' } - -{ #category : 'class initialization' } -PackageTagAdded class >> initialize [ - - self deprecatedAliases: { #ClassTagAdded . #CategoryAdded } -] diff --git a/src/System-Announcements/PackageTagAnnouncement.class.st b/src/System-Announcements/PackageTagAnnouncement.class.st index d605cdd15a1..bfb2765e61b 100644 --- a/src/System-Announcements/PackageTagAnnouncement.class.st +++ b/src/System-Announcements/PackageTagAnnouncement.class.st @@ -19,12 +19,6 @@ PackageTagAnnouncement class >> in: aPackage tag: aSymbol [ tag: aSymbol ] -{ #category : 'class initialization' } -PackageTagAnnouncement class >> initialize [ - - self deprecatedAliases: { 'ClassTagAnnouncement' } -] - { #category : 'instance creation' } PackageTagAnnouncement class >> to: aPackageTag [ diff --git a/src/System-Announcements/PackageTagRemoved.class.st b/src/System-Announcements/PackageTagRemoved.class.st index 5a790c66d9f..f715f48313a 100644 --- a/src/System-Announcements/PackageTagRemoved.class.st +++ b/src/System-Announcements/PackageTagRemoved.class.st @@ -8,9 +8,3 @@ Class { #package : 'System-Announcements', #tag : 'System-Packages' } - -{ #category : 'class initialization' } -PackageTagRemoved class >> initialize [ - - self deprecatedAliases: { #ClassTagRemoved . #CategoryRemoved } -] diff --git a/src/System-Announcements/PackageTagRenamed.class.st b/src/System-Announcements/PackageTagRenamed.class.st index 9fd9860d0b2..46192b43789 100644 --- a/src/System-Announcements/PackageTagRenamed.class.st +++ b/src/System-Announcements/PackageTagRenamed.class.st @@ -13,12 +13,6 @@ Class { #tag : 'System-Packages' } -{ #category : 'class initialization' } -PackageTagRenamed class >> initialize [ - - self deprecatedAliases: { #ClassTagRenamed . #CategoryRenamed } -] - { #category : 'instance creation' } PackageTagRenamed class >> to: aPackageTag oldName: aSymbol newName: anotherSymbol [ diff --git a/src/System-Announcements/ProtocolAnnouncement.class.st b/src/System-Announcements/ProtocolAnnouncement.class.st index bde57f78e50..0ac9a054b81 100644 --- a/src/System-Announcements/ProtocolAnnouncement.class.st +++ b/src/System-Announcements/ProtocolAnnouncement.class.st @@ -29,12 +29,6 @@ ProtocolAnnouncement class >> in: aClass protocol: aProtocol [ yourself ] -{ #category : 'class initialization' } -ProtocolAnnouncement class >> initialize [ - - self deprecatedAliases: { #ClassReorganized } -] - { #category : 'accessing' } ProtocolAnnouncement >> classAffected [ diff --git a/src/System-Platforms/KeyboardKey.class.st b/src/System-Platforms/KeyboardKey.class.st index 8bc5c90e447..b3df02103fe 100644 --- a/src/System-Platforms/KeyboardKey.class.st +++ b/src/System-Platforms/KeyboardKey.class.st @@ -398,9 +398,7 @@ KeyboardKey class >> initialize [ initializeMacOSVirtualKeyTable; initializeUnixVirtualKeyTable; initializeWindowsVirtualKeyTable; - initializeKeyFromCharacterCompatibilityTable. - - self deprecatedAliases: { #Key } + initializeKeyFromCharacterCompatibilityTable ] { #category : 'key table' }