Eliot Miranda uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-eem.606.mcz

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

Name: Monticello-eem.606
Author: eem
Time: 6 December 2014, 12:53:02.345 pm
UUID: a82ff1d4-aae4-466c-8d74-5fb75ace18a4
Ancestors: Monticello-dtl.605

Include the old list of changes in the screed
provided at the end of the save dialog.  This text is
useful when writing detailed check-in comments.

Categorise the save dialog methods.

=============== Diff against Monticello-dtl.605 ===============

Item was changed:
+ ----- Method: MCSaveVersionDialog>>buttonSpecs (in category 'ui') -----
- ----- Method: MCSaveVersionDialog>>buttonSpecs (in category 'as yet unclassified') -----
  buttonSpecs
  	^ #((Accept accept 'accept version name and log message')
  		(Cancel cancel 'cancel saving version')
  		) !

Item was changed:
+ ----- Method: MCSaveVersionDialog>>defaultExtent (in category 'ui') -----
- ----- Method: MCSaveVersionDialog>>defaultExtent (in category 'as yet unclassified') -----
  defaultExtent 
  	^ 700 at 600!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>defaultLabel (in category 'ui') -----
- ----- Method: MCSaveVersionDialog>>defaultLabel (in category 'as yet unclassified') -----
  defaultLabel
  	^ 'Edit Version Name and Message:'!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>list (in category 'accessing') -----
- ----- Method: MCSaveVersionDialog>>list (in category 'as yet unclassified') -----
  list
  	^ self items collect: [:ea |
  		(self ignore includes: ea)
  			ifFalse: [ea summary]
  			ifTrue: [Text string: '( ', ea summary, ' )' attribute: TextEmphasis struckOut ]]!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>logMessage (in category 'accessing') -----
- ----- Method: MCSaveVersionDialog>>logMessage (in category 'as yet unclassified') -----
  logMessage
  	^ message ifNil: ['empty log message']!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>logMessage: (in category 'accessing') -----
- ----- Method: MCSaveVersionDialog>>logMessage: (in category 'as yet unclassified') -----
  logMessage: aString
  	message := aString.
  	self changed: #logMessage!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>methodListKey:from: (in category 'menus') -----
- ----- Method: MCSaveVersionDialog>>methodListKey:from: (in category 'as yet unclassified') -----
  methodListKey: aKeystroke from: aListMorph 
  	aKeystroke caseOf: {
  		[$I] -> [self ignoreSelection].
  	} otherwise: [super methodListKey: aKeystroke from: aListMorph ]!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>methodListMenu: (in category 'accessing') -----
- ----- Method: MCSaveVersionDialog>>methodListMenu: (in category 'as yet unclassified') -----
  methodListMenu: aMenu
  	aMenu addList:#(
  		('ignore (I)'	ignoreSelection 'Do not include this change when saving')
  		-).
  	super methodListMenu: aMenu.
  	^aMenu!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>representsSameBrowseeAs: (in category 'ui') -----
- ----- Method: MCSaveVersionDialog>>representsSameBrowseeAs: (in category 'as yet unclassified') -----
  representsSameBrowseeAs: anotherModel 
  	^ self class = anotherModel class
  	and: [ self versionName = anotherModel versionName ]!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>updateItems (in category 'ui') -----
- ----- Method: MCSaveVersionDialog>>updateItems (in category 'as yet unclassified') -----
  updateItems
  	" update our items using the patchBlock "
  	self patch: patchBlock value!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>versionName (in category 'accessing') -----
- ----- Method: MCSaveVersionDialog>>versionName (in category 'as yet unclassified') -----
  versionName
  	^ name!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>versionName: (in category 'accessing') -----
- ----- Method: MCSaveVersionDialog>>versionName: (in category 'as yet unclassified') -----
  versionName: aString
  	name := aString.
  	self changed: #versionName!

Item was changed:
+ ----- Method: MCSaveVersionDialog>>widgetSpecs (in category 'ui') -----
- ----- Method: MCSaveVersionDialog>>widgetSpecs (in category 'as yet unclassified') -----
  widgetSpecs
  	^ #(	
  		((listMorph:selection:menu:keystroke: list selection methodListMenu: methodListKey:from:) (0 0 0.5 0.6) )
  		((textMorph: versionName) (0.5 0 1 0) (0 0 0 30))
  		((textMorph: logMessage) (0.5 0 1 0.6) (0 30 0 -30))
  		((buttonRow) (0.5 0.6 1 0.6) (0 -30 0 0))
  		((textMorph: text) (0 0.6 1 1) (0 0 0 0))
  		)!

Item was changed:
  ----- Method: MCWorkingCopy>>patchMessageSuggestion (in category 'operations') -----
  patchMessageSuggestion
  	^ String streamContents: [:strm | strm
  		nextPutAll: self patchMessageDefault; cr;cr;
  		nextPutAll: self patchMessageChangesDelimiter; cr;
+ 		nextPutAll: self patchMessageAncestry; cr; cr;
+ 		nextPutAll: self patchMessageChanges]!
- 		nextPutAll: self patchMessageAncestry]!