diff -r 6cb00ecfbc6d -r 989f0e510a32 Behavior.st --- a/Behavior.st Thu Mar 07 19:34:33 1996 +0100 +++ b/Behavior.st Thu Mar 07 19:40:50 1996 +0100 @@ -11,11 +11,11 @@ " Object subclass:#Behavior - instanceVariableNames:'superclass flags selectorArray methodArray otherSuperclasses + instanceVariableNames:'superclass flags selectorArray methodArray otherSuperclasses instSize' - classVariableNames:'SubclassInfo' - poolDictionaries:'' - category:'Kernel-Classes' + classVariableNames:'SubclassInfo' + poolDictionaries:'' + category:'Kernel-Classes' ! !Behavior class methodsFor:'documentation'! @@ -2372,8 +2372,8 @@ |index| selectorArray isNil ifTrue:[ - ('oops: nil selectorArray in ' , self name) errorPrintNL. - ^ nil + ('BEHAVIOR: OOPS - nil selectorArray in ' , self name) errorPrintNL. + ^ nil ]. index := selectorArray identityIndexOf:aSelector startingAt:1. @@ -2384,6 +2384,8 @@ Object compiledMethodAt:#== (Object compiledMethodAt:#==) category " + + "Modified: 7.3.1996 / 19:14:23 / cg" ! containsMethod:aMethod @@ -3028,5 +3030,5 @@ !Behavior class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.64 1996-02-21 12:35:08 cg Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.65 1996-03-07 18:40:50 cg Exp $' ! !