[Pkg] Tasks: Tasks-Common-kph.40.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Sun Dec 14 00:18:46 UTC 2008
A new version of Tasks-Common was added to project Tasks:
http://www.squeaksource.com/Tasks/Tasks-Common-kph.40.mcz
==================== Summary ====================
Name: Tasks-Common-kph.40
Author: kph
Time: 14 December 2008, 12:18:45 am
UUID: f743655f-3347-4eab-8884-2fcaa18e14ab
Ancestors: Tasks-Common-kph.39
if no build number is supplied use a compact date and time
=============== Diff against Tasks-Common-kph.39 ===============
Item was changed:
----- Method: TasksRelease class>>buildNumber (in category 'as yet unclassified') -----
buildNumber
+ | st |
+ ^ self status at: #build ifAbsent: [
+ st := DateAndTime now.
+ (st asDate printFormat: #(3 2 1 0 1 2 2)),':', st asTime hhmm24
+ ]
+
+ "
+ self buildNumber
+ "!
- ^ self status at: #build ifAbsent: nil!
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 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) run.
- (wc taskSaveIn: repo withComment: 'Saved from ', SystemVersion current asString,'#' ,(self buildNumber ifNil: ['']) asString) run.
]
]!
More information about the Packages
mailing list