--- 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!