| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859 |
- Smalltalk createPackage: 'Kernel-Helpers'!
- Trait named: #TSubclassable
- package: 'Kernel-Helpers'!
- !TSubclassable methodsFor: 'class creation'!
- subclass: aString
- "Kept for file-in compatibility."
- ^ self subclass: aString instanceVariableNames: '' package: nil
- !
- subclass: aString instanceVariableNames: anotherString
- "Kept for file-in compatibility."
- ^ self subclass: aString instanceVariableNames: anotherString package: nil
- !
- subclass: aString instanceVariableNames: aString2 category: aString3
- "Kept for file-in compatibility."
- ^ self subclass: aString instanceVariableNames: aString2 package: aString3
- !
- subclass: aString instanceVariableNames: aString2 classVariableNames: classVars poolDictionaries: pools category: aString3
- "Kept for file-in compatibility. ignores class variables and pools."
- ^ self subclass: aString instanceVariableNames: aString2 package: aString3
- !
- subclass: aString instanceVariableNames: aString2 package: aString3
- "Kept for file-in compatibility."
- ^ ClassBuilder new
- superclass: self subclass: aString asString slots: (self slotsFromInstanceVariablesString: aString2) package: aString3
- !
- subclass: aString uses: aTraitCompositionDescription
- "Kept for file-in compatibility."
- ^ self subclass: aString uses: aTraitCompositionDescription instanceVariableNames: '' package: nil
- !
- subclass: aString uses: aTraitCompositionDescription instanceVariableNames: anotherString
- "Kept for file-in compatibility."
- ^ self subclass: aString uses: aTraitCompositionDescription instanceVariableNames: anotherString package: nil
- !
- subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 category: aString3
- "Kept for file-in compatibility."
- ^ self subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 package: aString3
- !
- subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 classVariableNames: classVars poolDictionaries: pools category: aString3
- "Kept for file-in compatibility. ignores class variables and pools."
- ^ self subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 package: aString3
- !
- subclass: aString uses: aTraitCompositionDescription instanceVariableNames: aString2 package: aString3
- | cls |
- cls := self subclass: aString instanceVariableNames: aString2 package: aString3.
- cls setTraitComposition: aTraitCompositionDescription asTraitComposition.
- ^ cls
- ! !
|
