Remove subclass creation catchers - this is now handled by AutoloadMetaclass
authorStefan Vogel <sv@exept.de>
Wed, 14 Oct 2009 12:50:02 +0200
changeset 12270 a67c0b787173
parent 12269 0b8299ee8530
child 12271 8d974650b1d2
Remove subclass creation catchers - this is now handled by AutoloadMetaclass
Autoload.st
--- a/Autoload.st	Wed Oct 14 12:30:10 2009 +0200
+++ b/Autoload.st	Wed Oct 14 12:50:02 2009 +0200
@@ -9,6 +9,8 @@
  other person.  No title to or ownership of the software is
  hereby transferred.
 "
+'From Smalltalk/X, Version:5.4.6 on 14-10-2009 at 10:26:50'                     !
+
 "{ Package: 'stx:libbasic' }"
 
 nil subclass:#Autoload
@@ -646,185 +648,10 @@
     "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
-!
-
 value
     "catch value - load the class and resend #value to the real one"
 
     ^ self doesNotUnderstand:(Message selector:#value)
-!
-
-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:'private'!
@@ -936,11 +763,11 @@
 !Autoload class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.154 2009-10-13 16:43:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.155 2009-10-14 10:50:02 stefan Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.154 2009-10-13 16:43:33 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Autoload.st,v 1.155 2009-10-14 10:50:02 stefan Exp $'
 ! !
 
 Autoload initialize!