Matthew Fulmer uploaded a new version of DeltaStreams-Model to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-mtf.2.mcz
==================== Summary ====================
Name: DeltaStreams-Model-mtf.2 Author: mtf Time: 30 May 2008, 11:55:37 am UUID: afdcb1d7-a05c-499a-9b32-3fc30b0a1da3 Ancestors: DeltaStreams-Model-mtf.1
oops; some extension methods got left behind during the package split
=============== Diff against DeltaStreams-Model-mtf.1 ===============
Item was added: + ----- Method: SequenceableCollection>>scanNames (in category '*DeltaStreams-Model') ----- + scanNames + ^ (self collect: [:ea | ea asSymbol]) asArray!
Item was added: + ----- Method: SystemEditor>>atChange:ifAbsent: (in category '*DeltaStreams-Model') ----- + atChange: change ifAbsent: aBlock + + | classEditor | + change isClassChange ifFalse: [^ aBlock value]. + classEditor := self at: change className ifAbsent: [^ aBlock value]. + change isMeta ifTrue: [classEditor := classEditor class]. + ^ classEditor!
Item was added: + ----- Method: String>>nullMethodSource (in category '*DeltaStreams-Model') ----- + nullMethodSource + "Assuming I am a selector, answer a blank method that implements me" + + | numArgs | + numArgs := self numArgs. + numArgs < 0 ifTrue: [^ nil]. + numArgs = 0 ifTrue: [^ self asString]. + ^ String streamContents: [:stream | self keywords with: (1 to: numArgs) + do: [:keyword :index | stream + nextPutAll: keyword; + space; + nextPut: $t; + print: index; + space]]!
Item was changed: + ----- Method: DSCompositeClassChange>>applyUsing: (in category 'applying') ----- - ----- Method: DSCompositeClassChange>>applyUsing: (in category 'as yet unclassified') ----- applyUsing: anApplier anApplier applyCompositeClassChange: self!
Item was added: + ----- Method: Boolean>>and:and:and:and:and:and:and: (in category '*DeltaStreams-Model') ----- + and: block1 and: block2 and: block3 and: block4 and: block5 and: block6 and: block7 + "Nonevaluating conjunction without deep nesting. + The receiver is evaluated, followed by the blocks in order. + If any of these evaluates as false, then return false immediately, + without evaluating any further blocks. + If all return true, then return true." + + self ifFalse: [^ false]. + block1 value ifFalse: [^ false]. + block2 value ifFalse: [^ false]. + block3 value ifFalse: [^ false]. + block4 value ifFalse: [^ false]. + block5 value ifFalse: [^ false]. + block6 value ifFalse: [^ false]. + block7 value ifFalse: [^ false]. + ^ true!
Item was added: + ----- Method: DSCompositeClassChange>>isMeta (in category 'accessing') ----- + isMeta + ^ false!
Item was added: + ----- Method: MethodEditor>>source (in category '*DeltaStreams-Model') ----- + source + ^ source!
Item was added: + ----- Method: MethodEditor>>stamp: (in category '*DeltaStreams-Model') ----- + stamp: timestamp + stamp := timestamp.!
Item was added: + ----- Method: SystemEditor>>ensureClassNamed: (in category '*DeltaStreams-Model') ----- + ensureClassNamed: className + ^ self at: className ifAbsent: [(self at: #Object) subclass: className + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: Categorizer default]!
Item was added: + ----- Method: SequenceableCollection>>asSpaceString (in category '*DeltaStreams-Model') ----- + asSpaceString + ^ String streamContents: [:stream | + self + do: [:ea | stream nextPutAll: ea] + separatedBy: [stream nextPut: $ ]]!
Item was added: + ----- Method: String>>scanNames (in category '*DeltaStreams-Model') ----- + scanNames + + ^(Scanner new scanFieldNames: self) scanNames!
Item was added: + ----- Method: MethodEditor>>category: (in category '*DeltaStreams-Model') ----- + category: catString + category := catString!
Item was added: + ----- Method: MethodEditor>>source: (in category '*DeltaStreams-Model') ----- + source: sourceString + source := sourceString.!