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.
*** empty log message ***
authorwerner
Thu, 08 Apr 2004 12:54:15 +0200
changeset 8306 5b610781e787
parent 8305 7f80b5a18ffc
child 8307 8e90da896548
*** empty log message ***
Autoload.st file | annotate | diff | comparison | revisions
ClassDescription.st file | annotate | diff | comparison | revisions 
--- a/Autoload.st	Wed Apr 07 14:59:37 2004 +0200
+++ b/Autoload.st	Thu Apr 08 12:54:15 2004 +0200
@@ -585,6 +585,181 @@
     ^ self doesNotUnderstand:(Message selector:#respondsTo: with:aSelector)
 
     "Modified: 26.5.1997 / 14:59:58 / cg"
+!
+
+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 loadAndResendMessage
+!
+
+subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat classInstanceVariableNames:classInstanceVariableNames
+    "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 loadAndResendMessage
+!
+
+subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat inEnvironment:aNameSpace
+    "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 loadAndResendMessage
+!
+
+subclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "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 loadAndResendMessage
+!
+
+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 loadAndResendMessage
+!
+
+variableByteSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "create a new class as a subclass of an existing class (the receiver) 
+     in which the subclass has indexable byte-sized nonpointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+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 loadAndResendMessage
+!
+
+variableDoubleSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "create a new class as a subclass of an existing class (the receiver) 
+     in which the subclass has indexable double-sized nonpointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+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 loadAndResendMessage
+!
+
+variableFloatSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "create a new class as a subclass of an existing class (the receiver) 
+     in which the subclass has indexable float-sized nonpointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+variableLongLongSubclass: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 unsigned long-long-sized nonpointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+variableLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "create a new class as a subclass of an existing class (the receiver) 
+     in which the subclass has indexable longlong-sized nonpointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+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 loadAndResendMessage
+!
+
+variableLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "create a new class as a subclass of an existing class (the receiver) 
+     in which the subclass has indexable long-sized nonpointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+variableSignedLongLongSubclass: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-long-sized nonpointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+variableSignedLongLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "create a new class as a subclass of an existing class (the receiver) 
+     in which the subclass has indexable signed longlong-sized nonpointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+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"
+
+    ^ self loadAndResendMessage
+!
+
+variableSignedLongSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "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 loadAndResendMessage
+!
+
+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"
+
+    ^ self loadAndResendMessage
+!
+
+variableSignedWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "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 loadAndResendMessage
+!
+
+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 loadAndResendMessage
+!
+
+variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool category:cat classInstanceVariableNames:classInstanceVariableNames
+    "create a new class as a subclass of an existing class (the receiver) 
+     in which the subclass has indexable pointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+variableSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "create a new class as a subclass of an existing class (the receiver) 
+     in which the subclass has indexable pointer variables"
+
+    ^ self loadAndResendMessage
+!
+
+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 loadAndResendMessage
+!
+
+variableWordSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
+    "create a new class as a subclass of an existing class (the receiver) 
+     in which the subclass has indexable word-sized nonpointer variables"
+
+    ^ self loadAndResendMessage
 ! !
 
 !Autoload class methodsFor:'queries'!
@@ -657,7 +832,7 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.121 2004-03-12 19:09:16 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.122 2004-04-08 10:54:15 werner Exp $'
 ! !
 
 Autoload initialize!
--- a/ClassDescription.st	Wed Apr 07 14:59:37 2004 +0200
+++ b/ClassDescription.st	Thu Apr 08 12:54:15 2004 +0200
@@ -3055,10 +3055,6 @@
     "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 isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifFalse:[
         ^ self class
             name:nameSymbol  
@@ -3090,10 +3086,6 @@
     "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 isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     ^ self class
         name:nameSymbol  
         inEnvironment:(Class nameSpaceQuerySignal query)
@@ -3116,10 +3108,6 @@
 
     |rslt|
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         Class nameSpaceQuerySignal answer:aNameSpace
         do:[
@@ -3154,10 +3142,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable byte-sized nonpointer variables"
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isBytes ifFalse:[
             ^ self error:
@@ -3188,10 +3172,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable double-sized nonpointer variables"
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isDoubles ifFalse:[
             ^ self error:
@@ -3222,10 +3202,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable float-sized nonpointer variables"
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isFloats ifFalse:[
             ^ self error:
@@ -3256,10 +3232,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable unsigned long-long-sized nonpointer variables"
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isLongLongs ifFalse:[
             ^ self error:
@@ -3288,10 +3260,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable long-sized nonpointer variables"
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isLongs ifFalse:[
             self isBytes ifFalse:[
@@ -3324,10 +3292,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable signed long-long-sized nonpointer variables"
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isSignedLongLongs ifFalse:[
             ^ self error:
@@ -3356,10 +3320,6 @@
     "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 isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isSignedLongs ifFalse:[
             ^ self error:
@@ -3390,10 +3350,6 @@
     "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 isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isSignedWords ifFalse:[
             ^ self error:
@@ -3424,10 +3380,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable pointer variables"
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isPointers ifFalse:[
             ^ self error:
@@ -3458,10 +3410,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable pointer variables"
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isPointers ifFalse:[
             ^ self error:
@@ -3493,10 +3441,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable word-sized nonpointer variables"
 
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isWords ifFalse:[
             self isBytes ifFalse:[
@@ -3531,14 +3475,8 @@
     "create a new class as a subclass of an existing class (the receiver).
      The subclass will have indexed variables if the receiving-class has."
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifFalse:[
-        newClass := self class
+        ^ self class
             name:nameSymbol
             inEnvironment:aClass
             subclassOf:self
@@ -3551,7 +3489,6 @@
             category:(aClass category)
             comment:nil
             changed:true.
-        ^ newClass
     ].
     self isBytes ifTrue:[
         ^ self
@@ -3641,12 +3578,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable byte-sized nonpointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isBytes ifFalse:[
             ^ self error:
@@ -3654,7 +3585,7 @@
         ].
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -3668,8 +3599,6 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:31:27 / cg"
     "Modified: / 4.7.1999 / 18:42:36 / cg"
 !
@@ -3679,12 +3608,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable double-sized nonpointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isDoubles ifFalse:[
             ^ self error:
@@ -3692,7 +3615,7 @@
         ].
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -3706,23 +3629,14 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:32:23 / cg"
     "Modified: / 4.7.1999 / 18:42:41 / cg"
 !
 
 variableFloatSubclass:nameSymbol instanceVariableNames:instVarNameString classVariableNames:classVarString poolDictionaries:pool privateIn:aClass 
-
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable float-sized nonpointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isFloats ifFalse:[
             ^ self error:
@@ -3730,7 +3644,7 @@
         ].
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -3744,8 +3658,6 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:32:37 / cg"
     "Modified: / 4.7.1999 / 18:42:45 / cg"
 !
@@ -3754,12 +3666,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable longlong-sized nonpointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isLongLongs ifFalse:[
             ^ self error:
@@ -3767,7 +3673,7 @@
         ].
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -3781,8 +3687,6 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:32:48 / cg"
     "Modified: / 4.7.1999 / 18:42:49 / cg"
 !
@@ -3791,12 +3695,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable long-sized nonpointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isLongs ifFalse:[
             ^ self error:
@@ -3804,7 +3702,7 @@
         ].
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -3818,8 +3716,6 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:32:48 / cg"
     "Modified: / 4.7.1999 / 18:42:53 / cg"
 !
@@ -3828,12 +3724,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable signed longlong-sized nonpointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isSignedLongLongs ifFalse:[
             ^ self error:
@@ -3841,7 +3731,7 @@
         ].
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -3855,8 +3745,6 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:46:30 / cg"
     "Modified: / 4.7.1999 / 18:42:57 / cg"
 !
@@ -3865,12 +3753,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable signed long-sized nonpointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isSignedLongs ifFalse:[
             ^ self error:
@@ -3878,7 +3760,7 @@
         ].
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -3892,8 +3774,6 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:46:30 / cg"
     "Modified: / 4.7.1999 / 18:43:03 / cg"
 !
@@ -3902,12 +3782,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable word-sized signed nonpointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isSignedWords ifFalse:[
             ^ self error:
@@ -3915,7 +3789,7 @@
         ].
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -3929,8 +3803,6 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:46:44 / cg"
     "Modified: / 4.7.1999 / 18:43:06 / cg"
 !
@@ -3939,12 +3811,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable pointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isPointers ifFalse:[
             ^ self error:
@@ -3952,7 +3818,7 @@
         ]
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -3966,8 +3832,6 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:54:33 / cg"
     "Modified: / 4.7.1999 / 18:43:10 / cg"
 !
@@ -3976,12 +3840,6 @@
     "create a new class as a subclass of an existing class (the receiver) 
      in which the subclass has indexable word-sized nonpointer variables"
 
-    |newClass|
-
-    self isLoaded ifFalse:[
-        ^ self loadAndResendMessage
-    ].
-
     self isVariable ifTrue:[
         self isWords ifFalse:[
             ^ self error:
@@ -3989,7 +3847,7 @@
         ].
     ].
 
-    newClass := self class
+    ^ self class
         name:nameSymbol
         inEnvironment:aClass
         subclassOf:self
@@ -4003,8 +3861,6 @@
         comment:nil
         changed:true.
 
-    ^ newClass
-
     "Created: / 11.10.1996 / 16:54:48 / cg"
     "Modified: / 4.7.1999 / 18:43:18 / cg"
 ! !
@@ -4034,7 +3890,7 @@
 !ClassDescription class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.170 2004-03-19 08:17:29 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.171 2004-04-08 10:54:03 werner Exp $'
 ! !
 
 ClassDescription initialize!
hg/stx-libbasic