[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