Remove equality that are now on Bloc + fix toTheme class selection

OpenSmock · Mar 8, 2024 · 483b67c · 483b67c
1 parent 1f93199
commit 483b67c
Show file tree

Hide file tree

Showing 11 changed files with 1 addition and 79 deletions.
diff --git a/src/Pyramid-Bloc/BlBackground.extension.st b/src/Pyramid-Bloc/BlBackground.extension.st
@@ -1,12 +1,5 @@
 Extension { #name : #BlBackground }
 
-{ #category : #'*Pyramid-Bloc' }
-BlBackground >> = aBlBackground [
-
-	aBlBackground == self ifTrue: [ ^ true ].
-	^ aBlBackground class = self class
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlBackground >> asForm [
 

diff --git a/src/Pyramid-Bloc/BlEllipseGeometry.extension.st b/src/Pyramid-Bloc/BlEllipseGeometry.extension.st
diff --git a/src/Pyramid-Bloc/BlFlowLayout.extension.st b/src/Pyramid-Bloc/BlFlowLayout.extension.st
@@ -1,16 +1,5 @@
 Extension { #name : #BlFlowLayout }
 
-{ #category : #'*Pyramid-Bloc' }
-BlFlowLayout >> = anObject [
-
-	self == anObject ifTrue: [ ^ true ].
-	self class = anObject class ifFalse: [ ^ false ].
-	self orientation = anObject orientation ifFalse: [ ^ false ].
-	self horizontalAlignment = anObject horizontalAlignment ifFalse: [ ^ false ].
-	self verticalAlignment = anObject verticalAlignment ifFalse: [ ^ false ].
-	^ true
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlFlowLayout >> asIcon [
 

diff --git a/src/Pyramid-Bloc/BlGradientPaint.extension.st b/src/Pyramid-Bloc/BlGradientPaint.extension.st
@@ -1,13 +1,5 @@
 Extension { #name : #BlGradientPaint }
 
-{ #category : #'*Pyramid-Bloc' }
-BlGradientPaint >> = aBlPaint [
-
-	self == aBlPaint ifTrue: [ ^ true ].
-	self class == aBlPaint class ifFalse: [ ^ false ].
-	^ self stops = aBlPaint stops
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlGradientPaint >> asForm [
 

diff --git a/src/Pyramid-Bloc/BlImageBackground.extension.st b/src/Pyramid-Bloc/BlImageBackground.extension.st
@@ -1,12 +1,5 @@
 Extension { #name : #BlImageBackground }
 
-{ #category : #'*Pyramid-Bloc' }
-BlImageBackground >> = aBlBackground [
-
-	super = aBlBackground ifFalse: [ ^ false ].
-	^ self image = aBlBackground image
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlImageBackground >> asForm [
 

diff --git a/src/Pyramid-Bloc/BlLayout.extension.st b/src/Pyramid-Bloc/BlLayout.extension.st
@@ -1,12 +1,5 @@
 Extension { #name : #BlLayout }
 
-{ #category : #'*Pyramid-Bloc' }
-BlLayout >> = anObject [
-
-	self == anObject ifTrue: [ ^ true ].
-	^ self class = anObject class
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlLayout >> asIcon [
 

diff --git a/src/Pyramid-Bloc/BlLinearGradientPaint.extension.st b/src/Pyramid-Bloc/BlLinearGradientPaint.extension.st
@@ -1,12 +1,5 @@
 Extension { #name : #BlLinearGradientPaint }
 
-{ #category : #'*Pyramid-Bloc' }
-BlLinearGradientPaint >> = aBlPaint [
-
-	super = aBlPaint ifFalse: [ ^ false ].
-	^ self end = aBlPaint end and: [ self start = aBlPaint start ]
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlLinearGradientPaint >> selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter [
 

diff --git a/src/Pyramid-Bloc/BlRadialGradientPaint.extension.st b/src/Pyramid-Bloc/BlRadialGradientPaint.extension.st
@@ -1,12 +1,5 @@
 Extension { #name : #BlRadialGradientPaint }
 
-{ #category : #'*Pyramid-Bloc' }
-BlRadialGradientPaint >> = aBlPaint [
-
-	super = aBlPaint ifFalse: [ ^ false ].
-	^ self innerCenter = aBlPaint innerCenter and: [ self innerRadius = aBlPaint innerRadius and: [ self outerCenter = aBlPaint outerCenter and: [ self outerRadius = aBlPaint outerRadius ] ] ]
-]
-
 { #category : #'*Pyramid-Bloc' }
 BlRadialGradientPaint >> selectOnGradientPaintInput: aPyramidGradientPaintInputPresenter [
 

diff --git a/src/Pyramid-Bloc/BlRectangleGeometry.extension.st b/src/Pyramid-Bloc/BlRectangleGeometry.extension.st
diff --git a/src/Pyramid-Bloc/BlRoundedRectangleGeometry.extension.st b/src/Pyramid-Bloc/BlRoundedRectangleGeometry.extension.st
diff --git a/src/Pyramid-Toplo/PyramidThemeSelectorPresenter.class.st b/src/Pyramid-Toplo/PyramidThemeSelectorPresenter.class.st
@@ -96,7 +96,7 @@ PyramidThemeSelectorPresenter >> labelPresenter [
 PyramidThemeSelectorPresenter >> selectTheme: aToTheme [
 
 	self triggerThemeChangement: false.
-	self themeSelector selectItem: aToTheme class.
+	self themeSelector selectItem: aToTheme.
 	self triggerThemeChangement: true.
 
 ]