The Trunk: Monticello-eem.606.mcz

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@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]!