--- a/Behavior.st Tue Apr 16 16:40:00 1996 +0200
+++ b/Behavior.st Tue Apr 16 16:40:34 1996 +0200
@@ -700,6 +700,28 @@
"
!
+classVariableString
+ "return a string of the class variables names.
+ Returning empty here, since Behavior does not define any classVariables.
+ (only Classes do). This allows different Behavior-like objects
+ (alien classes) to be handled by the browser as well."
+
+ ^ ''
+
+ "Created: 16.4.1996 / 16:28:56 / cg"
+!
+
+comment
+ "return the comment of the class.
+ Returning nil here, since Behavior does not define a category
+ (only Classes do). This allows different Behavior-like objects
+ (alien classes) to be handled by the browser as well."
+
+ ^ nil
+
+ "Modified: 16.4.1996 / 16:25:23 / cg"
+!
+
displayString
"although behaviors have no name, we return something
useful here - there are many places (inspectors) where
@@ -838,6 +860,17 @@
methodArray := newMethods
!
+sourceCodeManager
+ "return the sourceCodeManager of the class.
+ Returning nil here, since Behavior does not define any sourceCode management.
+ (only Classes do). This allows different Behavior-like objects
+ (alien classes) to be handled by the browser as well."
+
+ ^ nil
+
+ "Created: 16.4.1996 / 16:26:03 / cg"
+!
+
superclass
"return the receivers superclass"
@@ -1127,6 +1160,17 @@
"
! !
+!Behavior methodsFor:'changes management'!
+
+addChangeRecordForClassRemove:aClassName
+ "add a change record that some class has been removed.
+ Defined as dummy here, since Behavior does not know about change management.
+ (only Classes do). This allows different Behavior-like objects
+ (alien classes) to be handled by the browser as well."
+
+ "Created: 16.4.1996 / 16:30:09 / cg"
+! !
+
!Behavior methodsFor:'compiler interface'!
compiler
@@ -1303,6 +1347,18 @@
"
! !
+!Behavior methodsFor:'fileOut'!
+
+fileOutDefinitionOn:aStream
+ "dummy fileOut defined here.
+ This allows different Behavior-like objects
+ (alien classes) to be handled by the browser as well."
+
+ ^ self
+
+ "Created: 16.4.1996 / 16:28:01 / cg"
+! !
+
!Behavior methodsFor:'initialization'!
deinitialize
@@ -2944,6 +3000,17 @@
"
!
+wasAutoloaded
+ "return true, if this class came into the system via an
+ autoload; false otherwise.
+ Returning false here. This allows different Behavior-like objects
+ (alien classes) to be handled by the browser as well."
+
+ ^ false
+
+ "Created: 16.4.1996 / 16:27:16 / cg"
+!
+
whichClassImplements:aSelector
"obsolete interface;
use whichClassIncludesSelector: for ST-80 compatibility."
@@ -3032,5 +3099,5 @@
!Behavior class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.67 1996-04-15 15:39:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Behavior.st,v 1.68 1996-04-16 14:40:34 cg Exp $'
! !