'From Cuis 5.0 [latest update: #4342] on 9 August 2020 at 7:10:06 pm'!

!CodePackageList methodsFor: 'accessing' stamp: 'jmv 8/9/2020 19:02:18'!
packageFullNames

	^ packages collect: [ :each | each fullFileName ifNil: '---Never saved yet' ]! !


!CodePackage methodsFor: 'accessing' stamp: 'jmv 8/9/2020 19:02:15'!
fullFileName

	^fullFileName! !


!ChangeSet class methodsFor: 'services' stamp: 'jmv 8/9/2020 19:07:00'!
installNewUpdates: updatesFileDirectory

	(self newUpdates: updatesFileDirectory) do: [ :each |
		self install: each ].	
	(self confirm: 'Do you want to reinstall recently updated packages?') ifTrue: [
		CodePackage installedPackages keysAndValuesDo: [ :pckName :package |
			package fullFileName ifNotNil: [ :fullFileName | | codePackageFile |
				codePackageFile _ CodePackageFile onFileEntry: fullFileName asFileEntry.
				(codePackageFile provides version > package provides version or: [
					codePackageFile provides revision > package provides revision ]) ifTrue: [
						package hasUnsavedChanges
							ifTrue: [ 'Package: ', pckName, ' loading newer version could conflict with changes made locally' ]
							ifFalse: [
								"CodePackageFile installPackage: fullFileName asFileEntry"
								codePackageFile install ]]]]].
	Smalltalk aboutThisSystem! !

