initial checkin
authorClaus Gittinger <cg@exept.de>
Wed, 22 Nov 2006 14:20:01 +0100
changeset 104 8ba478a34b4b
parent 103 016996199a05
child 105 d759f0b2db69
initial checkin
MCSnapshot.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MCSnapshot.st	Wed Nov 22 14:20:01 2006 +0100
@@ -0,0 +1,61 @@
+"{ Package: 'stx:goodies/monticello' }"
+
+Object subclass:#MCSnapshot
+	instanceVariableNames:'definitions'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Monticello-Base'
+!
+
+
+!MCSnapshot class methodsFor:'as yet unclassified'!
+
+empty
+	^ self fromDefinitions: #()
+!
+
+fromDefinitions: aCollection
+	^ self new initializeWithDefinitions: aCollection
+! !
+
+!MCSnapshot methodsFor:'accessing'!
+
+= other
+	^ definitions asArray = other definitions asArray
+!
+
+definitions
+	^ definitions
+!
+
+hash
+	^ definitions asArray hash
+! !
+
+!MCSnapshot methodsFor:'initializing'!
+
+initializeWithDefinitions: aCollection
+	definitions _ aCollection.
+! !
+
+!MCSnapshot methodsFor:'loading'!
+
+install
+	MCPackageLoader installSnapshot: self
+!
+
+updatePackage: aPackage
+	MCPackageLoader updatePackage: aPackage withSnapshot: self
+! !
+
+!MCSnapshot methodsFor:'patching'!
+
+patchRelativeToBase: aSnapshot
+	^ MCPatch fromBase: aSnapshot target: self
+! !
+
+!MCSnapshot class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/goodies/monticello/MCSnapshot.st,v 1.1 2006-11-22 13:20:01 cg Exp $'
+! !