ClassDescription.st
changeset 1740 baa0d76a9c68
parent 1715 8bd2a2d8fbb4
child 1745 179abaf65cd6
--- a/ClassDescription.st	Mon Oct 14 18:37:50 1996 +0200
+++ b/ClassDescription.st	Mon Oct 14 18:40:28 1996 +0200
@@ -17,7 +17,7 @@
 	category:'Kernel-Classes'
 !
 
-!ClassDescription  class methodsFor:'documentation'!
+!ClassDescription class methodsFor:'documentation'!
 
 copyright
 "
@@ -64,7 +64,7 @@
 "
 ! !
 
-!ClassDescription  class methodsFor:'instance creation'!
+!ClassDescription class methodsFor:'instance creation'!
 
 new
     "creates and returns a new class.
@@ -77,7 +77,7 @@
     ^ newClass
 ! !
 
-!ClassDescription  class methodsFor:'queries'!
+!ClassDescription class methodsFor:'queries'!
 
 isBuiltInClass
     "return true if this class is known by the run-time-system.
@@ -685,7 +685,6 @@
             category:(aClass category)
             comment:nil
             changed:true.
-        newClass setOwningClass:aClass.
         ^ newClass
     ].
     self isBytes ifTrue:[
@@ -753,7 +752,7 @@
         privateIn:aClass
 
     "Created: 11.10.1996 / 16:30:53 / cg"
-    "Modified: 11.10.1996 / 17:53:18 / cg"
+    "Modified: 14.10.1996 / 17:39:37 / cg"
 !
 
 variableByteSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
@@ -783,11 +782,10 @@
         comment:nil
         changed:true.
 
-    newClass setOwningClass:aClass.
     ^ newClass
 
     "Created: 11.10.1996 / 16:31:27 / cg"
-    "Modified: 11.10.1996 / 17:53:21 / cg"
+    "Modified: 14.10.1996 / 17:39:42 / cg"
 !
 
 variableDoubleSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
@@ -818,11 +816,10 @@
         comment:nil
         changed:true.
 
-    newClass setOwningClass:aClass.
     ^ newClass
 
     "Created: 11.10.1996 / 16:32:23 / cg"
-    "Modified: 11.10.1996 / 17:53:26 / cg"
+    "Modified: 14.10.1996 / 17:39:45 / cg"
 !
 
 variableFloatSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
@@ -853,11 +850,10 @@
         comment:nil
         changed:true.
 
-    newClass setOwningClass:aClass.
     ^ newClass
 
     "Created: 11.10.1996 / 16:32:37 / cg"
-    "Modified: 11.10.1996 / 17:53:30 / cg"
+    "Modified: 14.10.1996 / 17:39:50 / cg"
 !
 
 variableLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
@@ -887,11 +883,10 @@
         comment:nil
         changed:true.
 
-    newClass setOwningClass:aClass.
     ^ newClass
 
     "Created: 11.10.1996 / 16:32:48 / cg"
-    "Modified: 11.10.1996 / 17:53:33 / cg"
+    "Modified: 14.10.1996 / 17:39:54 / cg"
 !
 
 variableSignedLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
@@ -921,11 +916,10 @@
         comment:nil
         changed:true.
 
-    newClass setOwningClass:aClass.
     ^ newClass
 
     "Created: 11.10.1996 / 16:46:30 / cg"
-    "Modified: 11.10.1996 / 17:53:37 / cg"
+    "Modified: 14.10.1996 / 17:39:58 / cg"
 !
 
 variableSignedWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
@@ -955,11 +949,10 @@
         comment:nil
         changed:true.
 
-    newClass setOwningClass:aClass.
     ^ newClass
 
     "Created: 11.10.1996 / 16:46:44 / cg"
-    "Modified: 11.10.1996 / 17:53:41 / cg"
+    "Modified: 14.10.1996 / 17:40:01 / cg"
 !
 
 variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
@@ -989,11 +982,10 @@
         comment:nil
         changed:true.
 
-    newClass setOwningClass:aClass.
     ^ newClass
 
     "Created: 11.10.1996 / 16:54:33 / cg"
-    "Modified: 11.10.1996 / 17:53:46 / cg"
+    "Modified: 14.10.1996 / 17:40:06 / cg"
 !
 
 variableWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
@@ -1023,15 +1015,14 @@
         comment:nil
         changed:true.
 
-    newClass setOwningClass:aClass.
     ^ newClass
 
     "Created: 11.10.1996 / 16:54:48 / cg"
-    "Modified: 11.10.1996 / 17:53:50 / cg"
+    "Modified: 14.10.1996 / 17:40:09 / cg"
 ! !
 
-!ClassDescription  class methodsFor:'documentation'!
+!ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.32 1996-10-12 18:20:22 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.33 1996-10-14 16:40:28 cg Exp $'
 ! !