[Pkg] Tasks: Tasks-Common-kph.47.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Sun Dec 14 02:42:48 UTC 2008
A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.47.mcz
==================== Summary ====================
Name: Tasks-Common-kph.47
Author: kph
Time: 14 December 2008, 2:42:46 am
UUID: ca2d7c65-2c74-4fac-bdb0-5aad461031ef
Ancestors: Tasks-Common-kph.46
take the buildStampNow at one place, rather than anytime a buildNumber is found to be nil
=============== Diff against Tasks-Common-kph.46 ===============
Item was added:
+ ----- Method: TasksRelease class>>buildDateStampString (in category 'as yet unclassified') -----
+ buildDateStampString
+
+ ^ self buildDateStamp printYYMMDDHHSS: ':'.
+
+ !
Item was changed:
----- Method: TasksRelease class>>buildNumber (in category 'as yet unclassified') -----
buildNumber
+ ^ self status at: #build ifAbsent:['']
- ^ self status at: #build ifAbsent: [
- DateAndTime now printYYMMDDHHSS: ':'.
- ]
"
self buildNumber
"!
Item was changed:
----- Method: TasksRelease class>>buildNumber: (in category 'as yet unclassified') -----
buildNumber: n
+
-
^ self status at: #build put: n!
Item was added:
+ ----- Method: TasksRelease class>>buildDateStamp (in category 'as yet unclassified') -----
+ buildDateStamp
+
+ ^ self status at: #date ifAbsent:[ self error: 'buildStampNow has never been called']
+
+ !
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 |
^ 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 ', self saveFileName .
- comment := 'Saved from ', SystemVersion current asString,'#' ,self buildNumber.
self configIsSaving ifFalse: [ comment := nil. "prevents saving" ].
(wc taskAdoptHistoryFrom: repo saveWithComment: comment) run.
]
]!
Item was added:
+ ----- Method: TasksRelease class>>saveFileName (in category 'as yet unclassified') -----
+ saveFileName
+
+ ^ SystemVersion current version asString,'_#' , self buildNumber ,'@',self buildDateStampString!
Item was changed:
----- Method: TasksRelease class>>taskSaveAll (in category 'as yet unclassified') -----
taskSaveAll
^ self define: [ :task |
+
- task if: [ self configIsSaving ].
-
task action: {
+
+ [ self buildStampNow ].
+
self taskSaveAll: self kernelPackages rehomingIn: self repository.
self taskSave: self packageNameForMyTasks.
}
]!
Item was added:
+ ----- Method: TasksRelease class>>buildStampNow (in category 'as yet unclassified') -----
+ buildStampNow
+
+ ^ self status at: #date put: DateAndTime now
+
+ !
More information about the Packages
mailing list