"{ Package: 'stx:goodies/monticello' }"

Object subclass:#MCVersionLoader

	instanceVariableNames:'versions'

	classVariableNames:''

	poolDictionaries:''

	category:'Monticello-Loading'

!

!MCVersionLoader class methodsFor:'initialization'!

new

    ^self basicNew initialize

! !

!MCVersionLoader class methodsFor:'as yet unclassified'!

loadVersion: aVersion

	self new

		addVersion: aVersion;

		load

! !

!MCVersionLoader methodsFor:'checking'!

checkForModifications

	| modifications |

	modifications := versions select: [:ea | ea package workingCopy modified].

	modifications isEmpty ifFalse: [self warnAboutLosingChangesTo: modifications].

!

checkIfDepIsOlder: aDependency

	^ aDependency isOlder not 

		or: [self confirm: 'load older dependency ', aDependency versionInfo name , '?']

!

confirmMissingDependency: aDependency

	| name |

	name := aDependency versionInfo name.

	(self confirm: 'Can''t find dependency ', name, '. ignore?')

		ifFalse: [self error: 'Can''t find dependency ', name]

!

depAgeIsOk: aDependency

	^ aDependency isOlder not 

		or: [self confirm: 'load older dependency ', aDependency versionInfo name , '?']

!

warnAboutLosingChangesTo: versionCollection

	self notify: (String streamContents: [:s |

		s nextPutAll: 'You are about to load new versions of the following packages that have unsaved changes in the image.  If you continue, you will lose these changes.'; cr.

		versionCollection do:

			[:ea |

			s cr; space; space; nextPutAll: ea package name]])

! !

!MCVersionLoader methodsFor:'initialization'!

initialize

	super initialize.

	versions := OrderedCollection new

! !

!MCVersionLoader methodsFor:'loading'!

addDependency: aDependency

	| dep |

	aDependency isCurrent ifTrue: [^ self].

	(self depAgeIsOk: aDependency) ifFalse: [^ self].

	dep := aDependency resolve.

	dep

		ifNil: [self confirmMissingDependency: aDependency]

		ifNotNil: [(versions includes: dep) ifFalse: [self addVersion: dep]]

!

addVersion: aVersion

	aVersion dependencies do: [ :ea | self addDependency: ea].

	versions add: aVersion.

!

load

	self loadWithNameLike: versions first info name.

!

loadWithNameLike: aString

        | loader |

        self checkForModifications.

        loader := versions size > 1

                ifTrue: [MCMultiPackageLoader new]

                ifFalse: [MCPackageLoader new].

        versions do: [:ea |

                ea canOptimizeLoading

                        ifTrue: [ea patch applyTo: loader]

                        ifFalse: [loader updatePackage: ea package withSnapshot: ea snapshot]].

        "/MCStXPackageQuery answer: versions first package name do: [

            loader loadWithNameLike: aString.

        "/].

        versions do: [:ea | ea workingCopy loaded: ea]

    "Modified: / 09-11-2010 / 17:27:01 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!MCVersionLoader class methodsFor:'documentation'!

version

!

version_CVS

!

version_SVN

    ^ '§Id: MCVersionLoader.st 25 2010-11-09 18:50:31Z vranyj1 §'

! !