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