[squeak-dev] The Inbox: Monticello-bf.399.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Sep 4 17:06:12 UTC 2010


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!




More information about the Squeak-dev mailing list