Categorize = as part of 'comparing' protocol

pharo-vcs · Feb 2, 2021 · 402633a · 402633a
1 parent 749986c
commit 402633a
Showing 1 changed file with 5 additions and 4 deletions.
diff --git a/Iceberg-TipUI/IceTipCachedModel.class.st b/Iceberg-TipUI/IceTipCachedModel.class.st
@@ -18,10 +18,10 @@ IceTipCachedModel class >> for: anObject [
 	^ self basicNew initializeObject: anObject
 ]
 
-{ #category : #accessing }
-IceTipCachedModel >> = aObject [ 
-	self species ~= aObject species
-	ifTrue: [^ false].
+{ #category : #comparing }
+IceTipCachedModel >> = aObject [
+
+	self species ~= aObject species ifTrue: [ ^ false ].
 	^ self realObject = aObject realObject
 ]
 
@@ -51,6 +51,7 @@ IceTipCachedModel >> forwardMessage: aMessage [
 
 { #category : #comparing }
 IceTipCachedModel >> hash [
+
 	^ self realObject hash
 ]