15 Jul
2011
15 Jul
'11
4:57 p.m.
hasExactlySamePropertiesThan: aMooseEntity
self allDeclaredProperties size = aMooseEntity allDeclaredProperties
size
ifFalse: [^ false].
(self allDeclaredProperties collect: [:each | each name]) =
(aMooseEntity allDeclaredProperties collect: [:each | each name])
ifFalse: [^ false].
self allDeclaredProperties do: [:each |
(each getFrom: self) = (each getFrom: aMooseEntity)
ifFalse: [^ false]
].
^ true
if you have comment on that definition please let us know.
--
Andre Hora