[Pkg] The Trunk: Monticello-cmm.429.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Mar 15 19:17:48 UTC 2011
Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.429.mcz
==================== Summary ====================
Name: Monticello-cmm.429
Author: cmm
Time: 5 March 2011, 3:20:26.991 pm
UUID: c390242e-b3a7-4d73-a82e-511487053f62
Ancestors: Monticello-cmm.428
- Added MCVersionInfo>>versionNumber.
=============== Diff against Monticello-cmm.428 ===============
Item was changed:
----- Method: MCSMReleaseRepository>>releaseVersion:url: (in category 'as yet unclassified') -----
releaseVersion: aVersion url: urlString
| result |
result := HTTPSocket
httpPost: self squeakMapUrl, '/packagebyname/', packageName, '/newrelease'
+ args: {'version' -> {(aVersion info versionNumber)}.
- args: {'version' -> {(aVersion info versionName versionNumber)}.
'note' -> {aVersion info message}.
'downloadURL' -> {urlString}}
user: user
passwd: password.
result contents size > 4 ifTrue: [self error: result contents]
!
Item was added:
+ ----- Method: MCVersionInfo>>versionNumber (in category 'accessing') -----
+ versionNumber
+ ^ self versionName versionNumber!
Item was changed:
----- Method: MCWorkingCopy>>nextVersionName (in category 'private') -----
nextVersionName
| branch oldName |
ancestry ancestors isEmpty
ifTrue:
[ counter ifNil: [ counter := 0 ].
branch := package name ]
ifFalse:
[ oldName := ancestry ancestors first versionName.
branch := oldName packageName.
counter ifNil:
[ counter := (ancestry ancestors detectMax:
+ [ : eachVersionInfo | eachVersionInfo versionNumber ])
- [ : eachVersionInfo | eachVersionInfo versionName versionNumber ])
ifNil: [ 0 ]
ifNotNil:
+ [ : highestNumbered | highestNumbered versionNumber ] ] ].
- [ : highestNumbered | highestNumbered versionName versionNumber ] ] ].
counter := counter + 1.
^ branch , '-' , Utilities authorInitials , '.' , counter asString!
More information about the Packages
mailing list