123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111 |
- Smalltalk createPackage: 'Kernel-Helpers'!
- Trait named: #TPragmator
- package: 'Kernel-Helpers'!
- !TPragmator methodsFor: 'pragma processing'!
- canProcessPragma: aMessage
- | selector |
- selector := aMessage selector.
- ^ (self respondsTo: selector) and: [
- (self class superclass canUnderstand: selector) not]
- !
- processPragma: aMessage
- (self canProcessPragma: aMessage) ifTrue: [
- ^ aMessage sendTo: self ]
- !
- processPragmas: aCollection
- aCollection do: [ :each | self processPragma: each ]
- ! !
- Trait named: #TSubclassable
- package: 'Kernel-Helpers'!
- !TSubclassable methodsFor: 'class creation'!
- subclass: aString
- "Kept for file-in compatibility."
- ^ self subclass: aString slots: #() 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."
- ^ self subclass: aString slots: aString2 instanceVariablesStringAsSlotList package: aString3
- !
- subclass: aString slots: aCollection
- "Kept for file-in compatibility."
- ^ self subclass: aString slots: aCollection package: nil
- !
- subclass: aString slots: aCollection classVariables: anObject package: anotherString
- "Kept for file-in compatibility. ignores class variables."
- ^ ClassBuilder new
- superclass: self subclass: aString slots: aCollection package: anotherString
- !
- subclass: aString slots: aCollection classVariables: anObject poolDictionaries: anotherObject package: anotherString
- "Kept for file-in compatibility. ignores class variables and pools."
- ^ ClassBuilder new
- superclass: self subclass: aString slots: aCollection package: anotherString
- !
- subclass: aString slots: aCollection package: anotherString
- ^ ClassBuilder new
- superclass: self subclass: aString slots: aCollection package: anotherString
- !
- subclass: aString uses: aTraitCompositionDescription
- "Kept for file-in compatibility."
- ^ self subclass: aString uses: aTraitCompositionDescription slots: #() 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
- "Kept for file-in compatibility."
- ^ self subclass: aString uses: aTraitCompositionDescription slots: aString2 instanceVariablesStringAsSlotList package: aString3
- !
- subclass: aString uses: aTraitCompositionDescription slots: aCollection
- "Kept for file-in compatibility."
- ^ self subclass: aString uses: aTraitCompositionDescription slots: aCollection package: nil
- !
- subclass: aString uses: aTraitCompositionDescription slots: aCollection package: aString3
- | cls |
- cls := self subclass: aString slots: aCollection package: aString3.
- cls setTraitComposition: aTraitCompositionDescription asTraitComposition.
- ^ cls
- ! !
|