[Pkg] The Trunk: Monticello-cmm.432.mcz

[commits at source.squeak.org]

Chris Muller uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-cmm.432.mcz

==================== Summary ====================

Name: Monticello-cmm.432
Author: cmm
Time: 7 March 2011, 2:54:28.319 pm
UUID: 40bb137a-8fac-42ff-bd84-e3d6b4b4856f
Ancestors: Monticello-cmm.431

- Added ByteSymbol>>#asMCVersionName because the MC test cases want to create VersionInfo's with Symbol names instead of Strings.
- Categorized some uncategorized methods.
- Removed unnecessary MCRepository class>>new since it is identical to its superclass, and all modern Smalltalk's send #initialize by default don't they?
- Added generic stub method, MCRepository>>#cacheAllFileNamesDuring:, to accomodate FileBasedRepository's, which do not have advanced access.

=============== Diff against Monticello-cmm.431 ===============

Item was changed:
  SystemOrganization addCategory: #'Monticello-Base'!
  SystemOrganization addCategory: #'Monticello-Chunk Format'!
  SystemOrganization addCategory: #'Monticello-Loading'!
  SystemOrganization addCategory: #'Monticello-Merging'!
  SystemOrganization addCategory: #'Monticello-Modeling'!
  SystemOrganization addCategory: #'Monticello-Patching'!
  SystemOrganization addCategory: #'Monticello-Repositories'!
  SystemOrganization addCategory: #'Monticello-Storing'!
  SystemOrganization addCategory: #'Monticello-UI'!
  SystemOrganization addCategory: #'Monticello-Utilities'!
  SystemOrganization addCategory: #'Monticello-Versioning'!
+ SystemOrganization addCategory: #'Monticello-Mocks'!

Item was added:
+ ----- Method: ByteSymbol>>asMCVersionName (in category '*monticello') -----
+ asMCVersionName
+ 	^ self asString asMCVersionName!

Item was changed:
+ ----- Method: MCRepository class>>allConcreteSubclasses (in category 'configuring') -----
- ----- Method: MCRepository class>>allConcreteSubclasses (in category 'as yet unclassified') -----
  allConcreteSubclasses
  	^ self withAllSubclasses reject: [:ea | ea isAbstract]!

Item was changed:
+ ----- Method: MCRepository class>>creationTemplate (in category 'configuring') -----
- ----- Method: MCRepository class>>creationTemplate (in category 'as yet unclassified') -----
  creationTemplate
  	self subclassResponsibility.!

Item was changed:
+ ----- Method: MCRepository class>>description (in category 'configuring') -----
- ----- Method: MCRepository class>>description (in category 'as yet unclassified') -----
  description
  	^ nil!

Item was changed:
+ ----- Method: MCRepository class>>fillInTheBlankConfigure (in category 'configuring') -----
- ----- Method: MCRepository class>>fillInTheBlankConfigure (in category 'as yet unclassified') -----
  fillInTheBlankConfigure
  	^ self fillInTheBlankConfigure: self creationTemplate
  			!

Item was changed:
+ ----- Method: MCRepository class>>fillInTheBlankConfigure: (in category 'configuring') -----
- ----- Method: MCRepository class>>fillInTheBlankConfigure: (in category 'as yet unclassified') -----
  fillInTheBlankConfigure: aTemplateString
  	| chunk repo |
  	
  	aTemplateString ifNil: [ ^ false ].
  	chunk := FillInTheBlankMorph 
  			request: self fillInTheBlankRequest
  			initialAnswer: aTemplateString
  			centerAt: Sensor cursorPoint
  			inWorld: World
  			onCancelReturn: nil
  			acceptOnCR: false
  			answerExtent: 400 at 120.
  			
  	chunk 
  		ifNotNil: [ 
  			repo := self readFrom: chunk readStream.
  			repo creationTemplate: chunk. 
  	].
  
  	^ repo!

Item was changed:
+ ----- Method: MCRepository class>>fillInTheBlankRequest (in category 'configuring') -----
- ----- Method: MCRepository class>>fillInTheBlankRequest (in category 'as yet unclassified') -----
  fillInTheBlankRequest
  	self subclassResponsibility.!

Item was changed:
+ ----- Method: MCRepository class>>isAbstract (in category 'configuring') -----
- ----- Method: MCRepository class>>isAbstract (in category 'as yet unclassified') -----
  isAbstract
  	^ self description isNil!

Item was changed:
+ ----- Method: MCRepository class>>morphicConfigure (in category 'configuring') -----
- ----- Method: MCRepository class>>morphicConfigure (in category 'as yet unclassified') -----
  morphicConfigure
  	^ self new!

Item was removed:
- ----- Method: MCRepository class>>new (in category 'as yet unclassified') -----
- new
- 	^ self basicNew initialize!

Item was added:
+ ----- Method: MCRepository>>cacheAllFileNamesDuring: (in category 'private') -----
+ cacheAllFileNamesDuring: aBlock
+ 	"FileBasedRepository's can only access all version-names, therefore this is provided to allow client-code to direct caching of getting all filenames.  Other types of repositories offer more sophisticated kinds of access, so they don't need to cache, so simply run the block."
+ 	^ aBlock value!

Item was changed:
  ----- Method: MCVersionInfo>>initializeWithName:id:message:date:time:author:ancestors:stepChildren: (in category 'initialize-release') -----
  initializeWithName: vName id: aUUID message: aString date: aDate time: aTime author: initials ancestors: aCollection stepChildren: stepCollection
+ 	name := vName asString asMCVersionName.
- 	name := vName asMCVersionName.
  	id := aUUID.
  	message := aString.
  	date := aDate.
  	time := aTime.
  	author := initials.
  	ancestors :=  aCollection.
  	stepChildren := stepCollection!