[Pkg] Tasks: Tasks-Common-kph.44.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Sun Dec 14 01:58:13 UTC 2008
A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.44.mcz
==================== Summary ====================
Name: Tasks-Common-kph.44
Author: kph
Time: 14 December 2008, 1:58:12 am
UUID: ccd7fe49-f865-436a-9122-6071c56f0007
Ancestors: Tasks-Common-kph.43
pass configIsSaving as a nil comment in order to prevent saving
=============== Diff against Tasks-Common-kph.43 ===============
Item was changed:
----- Method: TasksRelease class>>taskSave: (in category 'as yet unclassified') -----
taskSave: pkgInfo
-
- "we link to the history of that already in the repo, so that the repo maintains a history"
+ ^ pkgInfo manager taskSaveWithComment:
+ (self configIsSaving
+ ifTrue: [ 'saved by ', self class name ]
+ ifFalse: [ nil ])
- ^ pkgInfo manager taskSaveWithComment: 'saved by ', self class name
!
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 comment |
- | oldVersions wc |
^ self define: [ :task |
task if: [ (MCPackage named: pkgName) workingCopy 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 ].
+ comment := 'Saved from ', SystemVersion current asString,'#' ,self buildNumber.
+
+ self configIsSaving ifFalse: [ comment := nil. "prevents saving" ].
+
+ (wc taskAdoptHistoryFrom: repo saveWithComment: comment) run.
-
- (wc taskSaveIn: repo withComment: 'Saved from ', SystemVersion current asString,'#' ,self buildNumber) run.
]
]!
More information about the Packages
mailing list