--- a/Class.st Fri Jul 12 23:44:14 1996 +0200
+++ b/Class.st Fri Jul 12 23:45:32 1996 +0200
@@ -2099,7 +2099,7 @@
source isNil ifTrue:[
FileOutErrorSignal
raiseRequestWith:self
- errorString:'no source for method'
+ errorString:'no source for method: ', (aMethod displayString)
] ifFalse:[
aStream nextChunkPut:source.
].
@@ -2111,8 +2111,8 @@
]
"Modified: 28.8.1995 / 14:30:41 / claus"
- "Modified: 9.2.1996 / 17:59:13 / cg"
"Modified: 12.6.1996 / 11:37:33 / stefan"
+ "Modified: 12.7.1996 / 23:36:21 / cg"
!
fileOutCategory:aCategory on:aStream
@@ -3907,6 +3907,58 @@
changed:true
!
+variableSignedLongSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+ "create a new class as a subclass of an existing class (the receiver)
+ 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 class
+ name:t
+ inEnvironment:(Smalltalk currentNameSpace)
+ subclassOf:self
+ instanceVariableNames:f
+ variable:#signedLong
+ words:false
+ pointers:false
+ classVariableNames:d
+ poolDictionaries:s
+ category:cat
+ comment:nil
+ changed:true
+!
+
+variableSignedWordSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+ "create a new class as a subclass of an existing class (the receiver)
+ 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 class
+ name:t
+ inEnvironment:(Smalltalk currentNameSpace)
+ subclassOf:self
+ instanceVariableNames:f
+ variable:#signedWord
+ words:false
+ pointers:false
+ classVariableNames:d
+ poolDictionaries:s
+ category:cat
+ comment:nil
+ changed:true
+!
+
variableSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
"create a new class as a subclass of an existing class (the receiver)
in which the subclass has indexable pointer variables"
@@ -3957,63 +4009,11 @@
category:cat
comment:nil
changed:true
-!
-
-variableSignedWordSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
- "create a new class as a subclass of an existing class (the receiver)
- 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 class
- name:t
- inEnvironment:(Smalltalk currentNameSpace)
- subclassOf:self
- instanceVariableNames:f
- variable:#signedWord
- words:false
- pointers:false
- classVariableNames:d
- poolDictionaries:s
- category:cat
- comment:nil
- changed:true
-!
-
-variableSignedLongSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
- "create a new class as a subclass of an existing class (the receiver)
- 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 class
- name:t
- inEnvironment:(Smalltalk currentNameSpace)
- subclassOf:self
- instanceVariableNames:f
- variable:#signedLong
- words:false
- pointers:false
- classVariableNames:d
- poolDictionaries:s
- category:cat
- comment:nil
- changed:true
! !
!Class class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.162 1996-07-02 18:31:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.163 1996-07-12 21:45:32 cg Exp $'
! !
Class initialize!