# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1251887149 -7200
# Node ID a14098721d4c7297253f25edc750688106462f77
# Parent  d32064f5149a5214fac5cce8d53a73d2b201b02b
*** empty log message ***

diff -r d32064f5149a -r a14098721d4c ClassDescription.st
--- a/ClassDescription.st	Wed Sep 02 12:24:43 2009 +0200
+++ b/ClassDescription.st	Wed Sep 02 12:25:49 2009 +0200
@@ -3265,25 +3265,25 @@
      in which the subclass has indexable byte-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isBytes ifFalse:[
-	    ^ self error:
-		'cannot make a variable byte subclass of a variable non-byte class'
-	].
+        self isBytes ifFalse:[
+            ^ ClassBuildError raiseErrorString:
+                'cannot make a variable byte subclass of a variable non-byte class'
+        ].
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:true
-	words:false
-	pointers:false
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:true
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Created: / 12.10.1996 / 19:18:18 / cg"
     "Modified: / 6.11.1996 / 22:48:18 / cg"
@@ -3295,25 +3295,25 @@
      in which the subclass has indexable double-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isDoubles ifFalse:[
-	    ^ self error:
-		'cannot make a variable double subclass of a variable non-double class'
-	].
+        self isDoubles ifFalse:[
+            ^ ClassBuildError raiseErrorString:
+                'cannot make a variable double subclass of a variable non-double class'
+        ].
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:#double
-	words:false
-	pointers:false
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#double
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Created: / 12.10.1996 / 19:18:21 / cg"
     "Modified: / 6.11.1996 / 22:48:22 / cg"
@@ -3325,25 +3325,25 @@
      in which the subclass has indexable float-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isFloats ifFalse:[
-	    ^ self error:
-		'cannot make a variable float subclass of a variable non-float class'
-	].
+        self isFloats ifFalse:[
+            ^ ClassBuildError raiseErrorString:
+                'cannot make a variable float subclass of a variable non-float class'
+        ].
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:#float
-	words:false
-	pointers:false
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#float
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Created: / 12.10.1996 / 19:18:24 / cg"
     "Modified: / 6.11.1996 / 22:48:26 / cg"
@@ -3355,25 +3355,25 @@
      in which the subclass has indexable unsigned long-long-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isLongLongs ifFalse:[
-	    ^ self error:
-		'cannot make a variable long-long subclass of a variable non-long-long class'
-	].
+        self isLongLongs ifFalse:[
+            ^ ClassBuildError raiseErrorString:
+                'cannot make a variable long-long subclass of a variable non-long-long class'
+        ].
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:#longLong
-	words:false
-	pointers:false
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#longLong
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Modified: / 18.3.1999 / 18:19:17 / stefan"
 !
@@ -3383,27 +3383,27 @@
      in which the subclass has indexable long-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isLongs ifFalse:[
-	    self isBytes ifFalse:[
-		^ self error:
-		    'cannot make a variable long subclass of a variable non-long class'
-	    ].
-	].
+        self isLongs ifFalse:[
+            self isBytes ifFalse:[
+                ^ ClassBuildError raiseErrorString:
+                    'cannot make a variable long subclass of a variable non-long class'
+            ].
+        ].
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:#long
-	words:false
-	pointers:false
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#long
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Created: / 12.10.1996 / 19:18:27 / cg"
     "Modified: / 6.11.1996 / 22:48:29 / cg"
@@ -3415,25 +3415,25 @@
      in which the subclass has indexable signed long-long-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isSignedLongLongs ifFalse:[
-	    ^ self error:
-		'cannot make a variable signed long-long subclass of a variable non-long-long class'
-	].
+        self isSignedLongLongs ifFalse:[
+            ^ ClassBuildError raiseErrorString:
+                'cannot make a variable signed long-long subclass of a variable non-long-long class'
+        ].
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:#signedLongLong
-	words:false
-	pointers:false
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#signedLongLong
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Modified: / 18.3.1999 / 18:19:35 / stefan"
 !
@@ -3443,25 +3443,25 @@
      in which the subclass has indexable signed long-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isSignedLongs ifFalse:[
-	    ^ self error:
-		'cannot make a variable signed long subclass of a variable non-long class'
-	].
+        self isSignedLongs ifFalse:[
+            ^ ClassBuildError raiseErrorString:
+                'cannot make a variable signed long subclass of a variable non-long class'
+        ].
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:#signedLong
-	words:false
-	pointers:false
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#signedLong
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Created: / 12.10.1996 / 19:18:31 / cg"
     "Modified: / 6.11.1996 / 22:48:32 / cg"
@@ -3473,25 +3473,25 @@
      in which the subclass has indexable word-sized signed nonpointer variables"
 
     self isVariable ifTrue:[
-	self isSignedWords ifFalse:[
-	    ^ self error:
-		'cannot make a variable signed word subclass of a variable non-word class'
-	].
+        self isSignedWords ifFalse:[
+            ^ ClassBuildError raiseErrorString:
+                'cannot make a variable signed word subclass of a variable non-word class'
+        ].
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:#signedWord
-	words:false
-	pointers:false
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#signedWord
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Created: / 12.10.1996 / 19:18:34 / cg"
     "Modified: / 6.11.1996 / 22:48:35 / cg"
@@ -3503,25 +3503,25 @@
      in which the subclass has indexable pointer variables"
 
     self isVariable ifTrue:[
-	self isPointers ifFalse:[
-	    ^ self error:
-		'cannot make a variable pointer subclass of a variable non-pointer class'
-	]
+        self isPointers ifFalse:[
+            ^ ClassBuildError raiseErrorString:
+                'cannot make a variable pointer subclass of a variable non-pointer class'
+        ]
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:true
-	words:false
-	pointers:true
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:true
+        words:false
+        pointers:true
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Created: / 12.10.1996 / 19:18:37 / cg"
     "Modified: / 6.11.1996 / 22:48:40 / cg"
@@ -3533,26 +3533,26 @@
      in which the subclass has indexable pointer variables"
 
     self isVariable ifTrue:[
-	self isPointers ifFalse:[
-	    ^ self error:
-		'cannot make a variable pointer subclass of a variable non-pointer class'
-	]
+        self isPointers ifFalse:[
+            ^ ClassBuildError raiseErrorString:
+                'cannot make a variable pointer subclass of a variable non-pointer class'
+        ]
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:true
-	words:false
-	pointers:true
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
-	classInstanceVariableNames:classInstanceVariableNames
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:true
+        words:false
+        pointers:true
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
+        classInstanceVariableNames:classInstanceVariableNames
 
     "Created: / 12.10.1996 / 19:18:37 / cg"
     "Modified: / 6.11.1996 / 22:48:40 / cg"
@@ -3564,27 +3564,27 @@
      in which the subclass has indexable word-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isWords ifFalse:[
-	    self isBytes ifFalse:[
-		^ self error:
-		    'cannot make a variable word subclass of a variable non-word class'
-	    ]
-	].
+        self isWords ifFalse:[
+            self isBytes ifFalse:[
+                ^ ClassBuildError raiseErrorString:
+                    'cannot make a variable word subclass of a variable non-word class'
+            ]
+        ].
     ].
 
     ^ self class
-	name:nameSymbol
-	inEnvironment:(Class nameSpaceQuerySignal query)
-	subclassOf:self
-	instanceVariableNames:instVarNameString
-	variable:true
-	words:true
-	pointers:false
-	classVariableNames:classVarString
-	poolDictionaries:pool
-	category:cat
-	comment:nil
-	changed:true
+        name:nameSymbol
+        inEnvironment:(Class nameSpaceQuerySignal query)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:true
+        words:true
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
 
     "Created: / 12.10.1996 / 19:18:40 / cg"
     "Modified: / 6.11.1996 / 22:48:43 / cg"
@@ -4060,7 +4060,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.203 2009-08-23 09:26:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.204 2009-09-02 10:25:49 cg Exp $'
 ! !
 
 ClassDescription initialize!