Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
variable names - docu only
authorClaus Gittinger <cg@exept.de>
Wed, 18 Sep 1996 15:26:39 +0200
changeset 1667 253c5f7340ba
parent 1666 4797ec69fc53
child 1668 41db5950f9ea
variable names - docu only
Class.st file | annotate | diff | comparison | revisions 
--- a/Class.st	Fri Sep 13 18:55:46 1996 +0200
+++ b/Class.st	Wed Sep 18 15:26:39 1996 +0200
@@ -3728,197 +3728,207 @@
 
 !Class methodsFor:'subclass creation'!
 
-subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
     "create a new class as a subclass of an existing class (the receiver).
      The subclass will have indexed variables if the receiving-class has."
 
     self isVariable ifFalse:[
-	^ self class
-	    name:t
-	    inEnvironment:(Smalltalk currentNameSpace)
-	    subclassOf:self
-	    instanceVariableNames:f
-	    variable:false
-	    words:true
-	    pointers:true
-	    classVariableNames:d
-	    poolDictionaries:s
-	    category:cat
-	    comment:nil
-	    changed:true 
+        ^ self class
+            name:nameSymbol
+            inEnvironment:(Smalltalk currentNameSpace)
+            subclassOf:self
+            instanceVariableNames:instVarNameString
+            variable:false
+            words:true
+            pointers:true
+            classVariableNames:classVarString
+            poolDictionaries:pool
+            category:cat
+            comment:nil
+            changed:true 
     ].
     self isBytes ifTrue:[
-	^ self
-	    variableByteSubclass:t
-	    instanceVariableNames:f
-	    classVariableNames:d
-	    poolDictionaries:s
-	    category:cat
+        ^ self
+            variableByteSubclass:nameSymbol
+            instanceVariableNames:instVarNameString
+            classVariableNames:classVarString
+            poolDictionaries:pool
+            category:cat
     ].
     self isLongs ifTrue:[
-	^ self
-	    variableLongSubclass:t
-	    instanceVariableNames:f
-	    classVariableNames:d
-	    poolDictionaries:s
-	    category:cat
+        ^ self
+            variableLongSubclass:nameSymbol
+            instanceVariableNames:instVarNameString
+            classVariableNames:classVarString
+            poolDictionaries:pool
+            category:cat
     ].
     self isFloats ifTrue:[
-	^ self
-	    variableFloatSubclass:t
-	    instanceVariableNames:f
-	    classVariableNames:d
-	    poolDictionaries:s
-	    category:cat
+        ^ self
+            variableFloatSubclass:nameSymbol
+            instanceVariableNames:instVarNameString
+            classVariableNames:classVarString
+            poolDictionaries:pool
+            category:cat
     ].
     self isDoubles ifTrue:[
-	^ self
-	    variableDoubleSubclass:t
-	    instanceVariableNames:f
-	    classVariableNames:d
-	    poolDictionaries:s
-	    category:cat
+        ^ self
+            variableDoubleSubclass:nameSymbol
+            instanceVariableNames:instVarNameString
+            classVariableNames:classVarString
+            poolDictionaries:pool
+            category:cat
     ].
     self isWords ifTrue:[
-	^ self
-	    variableWordSubclass:t
-	    instanceVariableNames:f
-	    classVariableNames:d
-	    poolDictionaries:s
-	    category:cat
+        ^ self
+            variableWordSubclass:nameSymbol
+            instanceVariableNames:instVarNameString
+            classVariableNames:classVarString
+            poolDictionaries:pool
+            category:cat
     ].
     self isSignedWords ifTrue:[
         ^ self
-            variableSignedWordSubclass:t
-            instanceVariableNames:f
-            classVariableNames:d
-            poolDictionaries:s
+            variableSignedWordSubclass:nameSymbol
+            instanceVariableNames:instVarNameString
+            classVariableNames:classVarString
+            poolDictionaries:pool
             category:cat
     ].
     self isSignedLongs ifTrue:[
         ^ self
-            variableSignedLongSubclass:t
-            instanceVariableNames:f
-            classVariableNames:d
-            poolDictionaries:s
+            variableSignedLongSubclass:nameSymbol
+            instanceVariableNames:instVarNameString
+            classVariableNames:classVarString
+            poolDictionaries:pool
             category:cat
     ].
 
     ^ self
-	variableSubclass:t
-	instanceVariableNames:f
-	classVariableNames:d
-	poolDictionaries:s
-	category:cat
+        variableSubclass:nameSymbol
+        instanceVariableNames:instVarNameString
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+
+    "Modified: 18.9.1996 / 15:22:08 / cg"
 !
 
-variableByteSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+variableByteSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
     "create a new class as a subclass of an existing class (the receiver) 
      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:[
+            ^ self error:
+                'cannot make a variable byte subclass of a variable non-byte class'
+        ].
     ].
 
     ^ self class
-	name:t
-	inEnvironment:(Smalltalk currentNameSpace)
-	subclassOf:self
-	instanceVariableNames:f
-	variable:true
-	words:false
-	pointers:false
-	classVariableNames:d
-	poolDictionaries:s
-	category:cat
-	comment:nil
-	changed:true 
+        name:nameSymbol
+        inEnvironment:(Smalltalk currentNameSpace)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:true
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
+
+    "Modified: 18.9.1996 / 15:24:54 / cg"
 !
 
-variableDoubleSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+variableDoubleSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
 
     "create a new class as a subclass of an existing class (the receiver) 
      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:[
+            ^ self error:
+                'cannot make a variable double subclass of a variable non-double class'
+        ].
     ].
 
     ^ self class
-	name:t
-	inEnvironment:(Smalltalk currentNameSpace)
-	subclassOf:self
-	instanceVariableNames:f
-	variable:#double 
-	words:false
-	pointers:false
-	classVariableNames:d
-	poolDictionaries:s
-	category:cat
-	comment:nil
-	changed:true 
+        name:nameSymbol
+        inEnvironment:(Smalltalk currentNameSpace)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#double 
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
+
+    "Modified: 18.9.1996 / 15:25:03 / cg"
 !
 
-variableFloatSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+variableFloatSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
 
     "create a new class as a subclass of an existing class (the receiver) 
      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:[
+            ^ self error:
+                'cannot make a variable float subclass of a variable non-float class'
+        ].
     ].
 
     ^ self class
-	name:t
-	inEnvironment:(Smalltalk currentNameSpace)
-	subclassOf:self
-	instanceVariableNames:f
-	variable:#float 
-	words:false
-	pointers:false
-	classVariableNames:d
-	poolDictionaries:s
-	category:cat
-	comment:nil
-	changed:true 
+        name:nameSymbol
+        inEnvironment:(Smalltalk currentNameSpace)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#float 
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
+
+    "Modified: 18.9.1996 / 15:25:14 / cg"
 !
 
-variableLongSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+variableLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable long-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isLongs ifFalse:[
-	    ^ self error:
-		'cannot make a variable long subclass of a variable non-long class'
-	].
+        self isLongs ifFalse:[
+            ^ self error:
+                'cannot make a variable long subclass of a variable non-long class'
+        ].
     ].
 
     ^ self class
-	name:t
-	inEnvironment:(Smalltalk currentNameSpace)
-	subclassOf:self
-	instanceVariableNames:f
-	variable:#long 
-	words:false
-	pointers:false
-	classVariableNames:d
-	poolDictionaries:s
-	category:cat
-	comment:nil
-	changed:true 
+        name:nameSymbol
+        inEnvironment:(Smalltalk currentNameSpace)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:#long 
+        words:false
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
+
+    "Modified: 18.9.1996 / 15:25:22 / cg"
 !
 
-variableSignedLongSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+variableSignedLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool 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"
 
@@ -3930,21 +3940,23 @@
     ].
 
     ^ self class
-        name:t
+        name:nameSymbol
         inEnvironment:(Smalltalk currentNameSpace)
         subclassOf:self
-        instanceVariableNames:f
+        instanceVariableNames:instVarNameString
         variable:#signedLong
         words:false
         pointers:false
-        classVariableNames:d
-        poolDictionaries:s
+        classVariableNames:classVarString
+        poolDictionaries:pool
         category:cat
         comment:nil
-        changed:true 
+        changed:true
+
+    "Modified: 18.9.1996 / 15:25:31 / cg"
 !
 
-variableSignedWordSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+variableSignedWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool 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"
 
@@ -3956,75 +3968,81 @@
     ].
 
     ^ self class
-        name:t
+        name:nameSymbol
         inEnvironment:(Smalltalk currentNameSpace)
         subclassOf:self
-        instanceVariableNames:f
+        instanceVariableNames:instVarNameString
         variable:#signedWord
         words:false
         pointers:false
-        classVariableNames:d
-        poolDictionaries:s
+        classVariableNames:classVarString
+        poolDictionaries:pool
         category:cat
         comment:nil
-        changed:true 
+        changed:true
+
+    "Modified: 18.9.1996 / 15:25:40 / cg"
 !
 
-variableSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
     "create a new class as a subclass of an existing class (the receiver) 
      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:[
+            ^ self error:
+                'cannot make a variable pointer subclass of a variable non-pointer class'
+        ]
     ].
 
     ^ self class
-	name:t
-	inEnvironment:(Smalltalk currentNameSpace)
-	subclassOf:self
-	instanceVariableNames:f
-	variable:true
-	words:false
-	pointers:true
-	classVariableNames:d
-	poolDictionaries:s
-	category:cat
-	comment:nil
-	changed:true 
+        name:nameSymbol
+        inEnvironment:(Smalltalk currentNameSpace)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:true
+        words:false
+        pointers:true
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
+
+    "Modified: 18.9.1996 / 15:25:46 / cg"
 !
 
-variableWordSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s category:cat
+variableWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable word-sized nonpointer variables"
 
     self isVariable ifTrue:[
-	self isWords ifFalse:[
-	    ^ self error:
-		'cannot make a variable word subclass of a variable non-word class'
-	].
+        self isWords ifFalse:[
+            ^ self error:
+                'cannot make a variable word subclass of a variable non-word class'
+        ].
     ].
 
     ^ self class
-	name:t
-	inEnvironment:(Smalltalk currentNameSpace)
-	subclassOf:self
-	instanceVariableNames:f
-	variable:true
-	words:true
-	pointers:false
-	classVariableNames:d
-	poolDictionaries:s
-	category:cat
-	comment:nil
-	changed:true 
+        name:nameSymbol
+        inEnvironment:(Smalltalk currentNameSpace)
+        subclassOf:self
+        instanceVariableNames:instVarNameString
+        variable:true
+        words:true
+        pointers:false
+        classVariableNames:classVarString
+        poolDictionaries:pool
+        category:cat
+        comment:nil
+        changed:true
+
+    "Modified: 18.9.1996 / 15:25:53 / cg"
 ! !
 
 !Class  class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.168 1996-09-12 07:42:45 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.169 1996-09-18 13:26:39 cg Exp $'
 ! !
 Class initialize!
hg/stx-libbasic