# HG changeset patch # User Stefan Vogel # Date 1255517402 -7200 # Node ID a67c0b787173df40a16e7961dafceb7d4ccdd039 # Parent 0b8299ee8530584064b75c89eb58a90659fccd0c Remove subclass creation catchers - this is now handled by AutoloadMetaclass diff -r 0b8299ee8530 -r a67c0b787173 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!