[Pkg] Tasks: Tasks-Common-kph.37.mcz

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Sat Dec 13 16:39:43 UTC 2008

A new version of Tasks-Common was added to project Tasks:

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

Name: Tasks-Common-kph.37
Author: kph
Time: 13 December 2008, 4:39:42 pm
UUID: d5a8c264-83b4-44c6-97a8-9e0972ac25a4
Ancestors: Tasks-Common-kph.36

fixed missing workingCopy

=============== Diff against Tasks-Common-kph.36 ===============

Item was changed:
  ----- Method: TasksRelease class>>taskSave:rehomingIn: (in category 'as yet unclassified') -----
  taskSave: pkgName rehomingIn: repo
  	"we link to the history of that already in the repo, so that the repo maintains a history"
  	| oldVersions wc |
  	^ self define: [ :task |
+ 		task if: [ (MCPackage named: pkgName) workingCopy needsSaving ] .  
- 		task if: [ (MCPackage named: pkgName) needsSaving ] .  
  		task action: [
  				"findMostRecentInRepo, put that versionInfo into my history.
  				if none, keep the old history"
  				oldVersions := repo sortedVersionInfosAvailableForPackageNamed: pkgName.
  				wc := (MCPackage named: pkgName) workingCopy.
  					oldVersions ifNotEmpty: [ wc versionInfo: oldVersions first ].
  					(wc taskSaveIn: repo withComment: 'Saved from ', SystemVersion current asString,'#' ,(self buildNumber ifNil: ['']) asString) run.

More information about the Packages mailing list