The Trunk: Monticello-bf.399.mcz

Bert Freudenberg uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-bf.399.mcz

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

Name: Monticello-bf.399
Author: bf
Time: 4 September 2010, 6:08:54.975 pm
UUID: 73f9d241-d2c0-43b2-ba22-18bdfa32450f
Ancestors: Monticello-ar.398



=============== Diff against Monticello-ar.398 ===============

Item was changed:
  ----- Method: MCVersionNameAndMessageRequest>>defaultAction (in category 'as yet unclassified') -----
  defaultAction
  ^ MCSaveVersionDialog new
  versionName: suggestion;
+ logMessage: initialMessage;
  showModally!

Item was added:
+ ----- Method: MCPatchMessage>>modifyDefinition:to: (in category 'patch operations') -----
+ modifyDefinition: oldDefinition to: newDefinition
+ stream nextPutAll: ' !!'; tab; nextPutAll: newDefinition summary; cr!

Item was added:
+ ----- Method: MCWorkingCopy>>patchMessageDelimiter (in category 'operations') -----
+ patchMessageDelimiter
+ ^'=== Text below is ignored ==='!

Item was changed:
  ----- Method: MCWorkingCopy>>newVersion (in category 'operations') -----
  newVersion
+ ^ (self requestVersionNameAndMessageWithSuggestion: self uniqueVersionName
+ initialMessage: self patchMessageForStripping) ifNotNil:
+ [:pair |
+ self halt.
+ self newVersionWithName: pair first
+ message: (self patchMessageStripped: pair last)].
- ^ (self requestVersionNameAndMessageWithSuggestion: self uniqueVersionName) ifNotNil:
- [:pair |
- self newVersionWithName: pair first message: pair last].
  !

Item was added:
+ ----- Method: MCPatchMessage>>message (in category 'accessing') -----
+ message
+ ^stream contents
+ !

Item was added:
+ ----- Method: MCVersionNameAndMessageRequest>>initialMessage (in category 'as yet unclassified') -----
+ initialMessage
+ ^ initialMessage!

Item was added:
+ ----- Method: MCPatchMessage>>addDefinition: (in category 'patch operations') -----
+ addDefinition: aDefinition
+ stream nextPutAll: '+'; tab; nextPutAll: aDefinition summary; cr!

Item was added:
+ ----- Method: MCWorkingCopy>>requestVersionNameAndMessageWithSuggestion:initialMessage: (in category 'private') -----
+ requestVersionNameAndMessageWithSuggestion: nameString initialMessage: msgString
+ ^ (MCVersionNameAndMessageRequest new
+ suggestedName: nameString;
+ initialMessage: msgString
+ ) signal!

Item was added:
+ ----- Method: MCPatchMessage>>removeDefinition: (in category 'patch operations') -----
+ removeDefinition: aDefinition
+ stream nextPutAll: ' -'; tab; nextPutAll: aDefinition summary; cr!

Item was added:
+ ----- Method: MCWorkingCopy>>patchMessageForStripping (in category 'operations') -----
+ patchMessageForStripping
+ ^self patchMessageDelimiter, String cr, self patchMessage!

Item was added:
+ ----- Method: MCWorkingCopy>>patchMessage (in category 'operations') -----
+ patchMessage
+ | changes parentInfo parentSnapshot |
+ parentInfo := self ancestors
+ ifEmpty: [nil]
+ ifNotEmpty: [self ancestors first].
+ parentSnapshot := self findSnapshotWithVersionInfo: parentInfo.
+ changes := package snapshot patchRelativeToBase: parentSnapshot.
+ ^ (MCPatchMessage new patch: changes) message!

Item was added:
+ Object subclass: #MCPatchMessage
+ instanceVariableNames: 'stream'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Monticello-Versioning'!

Item was changed:
  Notification subclass: #MCVersionNameAndMessageRequest
+ instanceVariableNames: 'suggestion initialMessage'
- instanceVariableNames: 'suggestion'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'Monticello-Versioning'!

Item was added:
+ ----- Method: MCPatchMessage>>patch: (in category 'accessing') -----
+ patch: aPatch
+ stream ifNil: [stream := WriteStream on: (String new: 100)].
+ aPatch operations asSortedCollection
+ do: [:op | op applyTo: self]!

Item was added:
+ ----- Method: MCVersionNameAndMessageRequest>>initialMessage: (in category 'as yet unclassified') -----
+ initialMessage: aString
+ initialMessage := aString!

Item was added:
+ ----- Method: MCWorkingCopy>>patchMessageStripped: (in category 'operations') -----
+ patchMessageStripped: aString
+ | pos |
+ pos := aString findString: self patchMessageDelimiter.
+ ^ pos > 0
+ ifTrue: [aString first: pos - 1]
+ ifFalse: [aString]!

Item was removed:
- ----- Method: MCWorkingCopy>>requestVersionNameAndMessageWithSuggestion: (in category 'private') -----
- requestVersionNameAndMessageWithSuggestion: aString
- ^ (MCVersionNameAndMessageRequest new suggestedName: aString) signal!

On 04.09.2010, at 16:08, [hidden email] wrote:

Oops. That was not ready to go quite yet. Recalled.

- Bert -