| 12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758 |
- 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
- ^ ClassBuilder new
- superclass: self subclass: aString asString instanceVariableNames: 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
- ! !
|
