| 123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162 |
- Smalltalk createPackage: 'Kernel-Helpers'!
- Trait named: #TIsInGroup
- package: 'Kernel-Helpers'!
- !TIsInGroup commentStamp!
- I contain all `isXxx` checking methods that check
- if receiver is part of some group of objects (`isBehavior` etc.)
- I should NOT contain tests for
- having a certain property (`isImmutable` etc.).!
- !TIsInGroup methodsFor: 'testing'!
- isBehavior
- ^ false
- !
- isBoolean
- ^ false
- !
- isClass
- ^ false
- !
- isCompiledMethod
- ^ false
- !
- isError
- ^ false
- !
- isMetaclass
- ^ false
- !
- isNumber
- ^ false
- !
- isPackage
- ^ false
- !
- isString
- ^ false
- !
- isSymbol
- ^ false
- ! !
- 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
- ! !
|
