--- a/Behavior.st Thu Nov 07 13:00:50 1996 +0100
+++ b/Behavior.st Thu Nov 07 13:49:51 1996 +0100
@@ -3031,10 +3031,12 @@
owningClass
"return my owning class - nil if I am a public class"
+ "/ this information is in the metaclass ...
+
^ self class owningClass
- "Modified: 15.10.1996 / 18:54:56 / cg"
"Created: 15.10.1996 / 21:19:32 / cg"
+ "Modified: 7.11.1996 / 13:49:28 / cg"
!
selectorAtMethod:aMethod
@@ -3312,5 +3314,5 @@
!Behavior class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.89 1996-10-28 16:09:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.90 1996-11-07 12:49:51 cg Exp $'
! !