On 10/12/2010 11:02 AM, Gwenaël Casaccio wrote:
Message extend [ = anObject [ <category: 'testing'>^ self class == anObject class and: [ self selector = anObject selector and: [ self arguments = anObject arguments ] ] ] ] DirectedMessage extend [ = anObject [ <category: 'testing'> ^ super = anObject and: [ self receiver = anObject receiver ] ] ]
#hash missing. Paolo _______________________________________________ help-smalltalk mailing list [email protected] http://lists.gnu.org/mailman/listinfo/help-smalltalk
