Behavior.st
changeset 1191 7d458640ca32
parent 1179 3e0f32177af4
child 1192 b1c2b886f23c
--- 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 $'
 ! !