[Pkg] DeltaStreams: DeltaStreams-Tirade-gk.1.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of DeltaStreams-Tirade was added to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/DeltaStreams-Tirade-gk.1.mcz

==================== Summary ====================

Name: DeltaStreams-Tirade-gk.1
Author: gk
Time: 30 June 2009, 6:01:59 pm
UUID: b8dc2613-3269-46a2-8432-1c53a0aa3fd5
Ancestors: 

First code for Tirade support in Deltas.

==================== Snapshot ====================

SystemOrganization addCategory: #'DeltaStreams-Tirade'!

----- Method: DSDelta>>tiradeOn: (in category '*deltastreams-tirade') -----
tiradeOn: recorder

	recorder delta: uuid asString36 stamp: timeStamp printString properties: properties.
	recorder beginChanges.
	self changes do: [:each |
		each tiradeOn: recorder].
	recorder endChanges!

----- Method: DSMethodAddedChange>>tiradeOn: (in category '*deltastreams-tirade') -----
tiradeOn: recorder
	recorder
		addSelector: selector
		class: className
		meta: meta
		source: source
		protocol: protocol
		stamp: stamp
		at: timeStamp printString
		properties: properties!

TiradeReader subclass: #DSTiradeReader
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'DeltaStreams-Tirade'!

----- Method: DSTiradeReader>>addSelector:class:meta:source:protocol:stamp:at:properties: (in category 'reading') -----
addSelector: aSelector
		class: className
		meta: meta
		source: source
		protocol: protocol
		stamp: stamp
		at: timeStamp
		properties: properties

	result  !

----- Method: DSTiradeReader>>delta:stamp:properties: (in category 'tirade') -----
delta: uuidString36 stamp: timeStampString properties: properties

	result := DSDelta new.
	result uuid: (UUID fromString36: uuidString36); properties: properties; timeStamp: (TimeStamp fromString: timeStampString)!

----- Method: DSChange>>tiradeOn: (in category '*deltastreams-tirade') -----
tiradeOn: recorder!

TiradeRecorder subclass: #DSTiradeWriter
	instanceVariableNames: ''
	classVariableNames: ''
	poolDictionaries: ''
	category: 'DeltaStreams-Tirade'!