Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Class.st
changeset 37 d9a302eaa3ef
parent 28 4606b818d646
child 48 9f68393bea3c 
--- a/Class.st	Sun Jan 09 22:11:39 1994 +0100
+++ b/Class.st	Sun Jan 09 22:13:01 1994 +0100
@@ -45,7 +45,7 @@
 
 WARNING: layout known by compiler and runtime system
 
-$Header: /cvs/stx/stx/libbasic/Class.st,v 1.7 1994-01-08 16:08:02 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Class.st,v 1.8 1994-01-09 21:12:57 claus Exp $
 written Spring 89 by claus
 '!
 
@@ -75,11 +75,7 @@
 
 !Class methodsFor:'subclass creation'!
 
-subclass:t instanceVariableNames:f
-              classVariableNames:d
-                poolDictionaries:s
-                        category:cat
-
+subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s 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."
 
@@ -146,12 +142,7 @@
         category:cat
 !
 
-variableSubclass:t
-        instanceVariableNames:f
-        classVariableNames:d
-        poolDictionaries:s
-        category:cat
-
+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"
 
@@ -177,12 +168,7 @@
         changed:false
 !
 
-variableByteSubclass:t
-        instanceVariableNames:f
-        classVariableNames:d
-        poolDictionaries:s
-        category:cat
-
+variableByteSubclass: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 byte-sized nonpointer variables"
 
@@ -208,12 +194,7 @@
         changed:false
 !
 
-variableWordSubclass:t
-        instanceVariableNames:f
-        classVariableNames:d
-        poolDictionaries:s
-        category:cat
-
+variableWordSubclass:t instanceVariableNames:f lassVariableNames:d oolDictionaries:s ategory:cat
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable word-sized nonpointer variables"
 
@@ -239,12 +220,7 @@
         changed:false
 !
 
-variableLongSubclass:t
-        instanceVariableNames:f
-        classVariableNames:d
-        poolDictionaries:s
-        category:cat
-
+variableLongSubclass: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 long-sized nonpointer variables"
 
@@ -270,11 +246,7 @@
         changed:false
 !
 
-variableFloatSubclass:t
-        instanceVariableNames:f
-        classVariableNames:d
-        poolDictionaries:s
-        category:cat
+variableFloatSubclass: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 float-sized nonpointer variables"
@@ -301,11 +273,7 @@
         changed:false
 !
 
-variableDoubleSubclass:t
-        instanceVariableNames:f
-        classVariableNames:d
-        poolDictionaries:s
-        category:cat
+variableDoubleSubclass: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 double-sized nonpointer variables"
@@ -334,12 +302,8 @@
 
 !Class methodsFor:'ST/V subclass creation'!
 
-subclass:t
-        instanceVariableNames:f
-        classVariableNames:d
-        poolDictionaries:s
-
-    "this methods allows fileIn of ST/V classes 
+subclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s
+    "this method allows fileIn of ST/V classes 
      (which seem to have no category)"
 
     ^ self subclass:t 
@@ -349,11 +313,8 @@
            category:'ST/V classes'
 !
 
-variableByteSubclass:t
-        classVariableNames:d
-        poolDictionaries:s
-
-    "this methods allows fileIn of ST/V variable byte classes 
+variableByteSubclass:t classVariableNames:d poolDictionaries:s
+    "this method allows fileIn of ST/V variable byte classes 
      (which seem to have no category and no instvars)"
 
     ^ self variableByteSubclass:t 
@@ -363,12 +324,8 @@
            category:'ST/V classes'
 !
 
-variableSubclass:t
-        instanceVariableNames:f
-        classVariableNames:d
-        poolDictionaries:s
-
-    "this methods allows fileIn of ST/V variable pointer classes 
+variableSubclass:t instanceVariableNames:f classVariableNames:d poolDictionaries:s
+    "this method allows fileIn of ST/V variable pointer classes 
      (which seem to have no category)"
 
     ^ self variableSubclass:t 
@@ -909,7 +866,8 @@
 !
 
 binaryMethods
-    "return a ClassCategoryReader to read in binary methods for me"
+    "return a ClassCategoryReader to read in binary methods for me.
+     The implementation of binary methods is not finished yet."
 
     ^ BinaryClassCategoryReader class:self category:'binary'
 !
@@ -1618,6 +1576,8 @@
 !
 
 storeBinaryDefinitionOf: anAssociation on: stream manager: manager
+    "not usable at the moment - there are no classpools currently"
+
     | string |
 
     string := self name, ' classPool at: ', anAssociation key storeString.
hg/stx-libbasic