The Inbox: Monticello-bf.399.mcz

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

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

Name: Monticello-bf.399
Author: bf
Time: 4 September 2010, 7:06:03.314 pm
UUID: d34224f4-a77d-44ec-9981-4a9e6fec5d29
Ancestors: Monticello-ar.398

When saving a package, the changes about to be committed are listed as a reminder.

=============== 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: 'M'; tab; nextPutAll: newDefinition summary; cr!

Item was added:
+ ----- Method: MCWorkingCopy>>patchMessageChangesHeader (in category 'operations') -----
+ patchMessageChangesHeader
+ ^ancestry summary, String cr,
+ 'Added, Modified, Deleted',
+ (self ancestors ifEmpty: [''] ifNotEmpty: [' vs. ', self ancestors first name]), ':'!

Item was added:
+ ----- Method: MCWorkingCopy>>patchMessageSuggestion (in category 'operations') -----
+ patchMessageSuggestion
+ ^ self patchMessageDefault, String cr, String cr,
+ self patchMessageChangesDelimiter, String cr,
+ self patchMessageChangesHeader, String cr,
+ self patchMessageChanges!

Item was added:
+ ----- Method: MCWorkingCopy>>patchMessageChanges (in category 'operations') -----
+ patchMessageChanges
+ | 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 changed:
  ----- Method: MCWorkingCopy>>newVersion (in category 'operations') -----
  newVersion
+ ^ (self requestVersionNameAndMessageWithSuggestion: self uniqueVersionName
+ initialMessage: self patchMessageSuggestion) ifNotNil:
+ [:pair |
+ 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: 'A'; 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: 'D'; tab; nextPutAll: aDefinition summary; cr!

Item was added:
+ ----- Method: MCWorkingCopy>>patchMessageDefault (in category 'operations') -----
+ patchMessageDefault
+ ^ 'empty log message'!

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

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

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 patchMessageChangesDelimiter.
+ ^ (pos > 0
+ ifTrue: [aString first: pos - 1]
+ ifFalse: [aString]) withBlanksTrimmed!

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