--- a/Class.st Mon Nov 04 15:47:11 2002 +0100
+++ b/Class.st Mon Nov 04 15:51:17 2002 +0100
@@ -15,7 +15,8 @@
ClassDescription subclass:#Class
instanceVariableNames:'name category classvars comment subclasses classFilename package
revision primitiveSpec environment signature hook'
- classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE'
+ classVariableNames:'DefaultCategoryForSTV DefaultCategoryForVAGE
+ DefaultCategoryForDolphin'
poolDictionaries:''
category:'Kernel-Classes'
!
@@ -260,6 +261,44 @@
"Modified: 23.4.1996 / 15:56:58 / cg"
! !
+!Class methodsFor:'Compatibility - Dolphin'!
+
+defaultCategoryForDolphinClasses
+ ^ DefaultCategoryForDolphin ? 'Dolphin classes'.
+!
+
+subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s classInstanceVariableNames:classInstanceVariableNames
+ "{ Pragma: +optSpace }"
+
+ "this method allows fileIn of Dolphin classes "
+
+ ^ self subclass:t
+ instanceVariableNames:f
+ classVariableNames:d
+ poolDictionaries:s
+ category:(self defaultCategoryForDolphinClasses)
+ classInstanceVariableNames:classInstanceVariableNames
+
+ "Modified: / 15.6.1998 / 21:31:34 / cg"
+ "Modified: / 18.3.1999 / 18:16:11 / stefan"
+!
+
+variableSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s classInstanceVariableNames:classInstanceVariableNames
+ "{ Pragma: +optSpace }"
+
+ "this method allows fileIn of Dolphin classes "
+
+ ^ self variableSubclass:t
+ instanceVariableNames:f
+ classVariableNames:d
+ poolDictionaries:s
+ category:(self defaultCategoryForDolphinClasses)
+ classInstanceVariableNames:classInstanceVariableNames
+
+ "Modified: / 15.6.1998 / 21:31:34 / cg"
+ "Modified: / 18.3.1999 / 18:16:11 / stefan"
+! !
+
!Class methodsFor:'Compatibility - ST/V and V''Age'!
defaultCategoryForSTVorVAGEClasses
@@ -1362,7 +1401,7 @@
newClass := cls class
name:name asSymbol
- in:environment
+ inEnvironment:environment
subclassOf:cls
instanceVariableNames:instvars
variable:false
@@ -4727,5 +4766,5 @@
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.418 2002-09-17 10:27:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.419 2002-11-04 14:51:17 cg Exp $'
! !