[Pkg] DeltaStreams: DeltaStreams-Model-mtf.2.mcz

[squeaksource-noreply at iam.unibe.ch]

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.!