The Trunk: Monticello-ar.381.mcz

Andreas Raab uploaded a new version of Monticello to project The Trunk:
http://source.squeak.org/trunk/Monticello-ar.381.mcz

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

Name: Monticello-ar.381
Author: ar
Time: 10 March 2010, 9:15:53.371 pm
UUID: 64c70db7-ef7e-204b-83e1-a1ea6fe001d5
Ancestors: Monticello-ar.379

Add preference to make new version check before save optional. Also truncate newer version list to 150 characters to avoid extremely long messages.

=============== Diff against Monticello-ar.379 ===============

Item was changed:
  MCTool subclass: #MCWorkingCopyBrowser
  instanceVariableNames: 'workingCopy workingCopyWrapper repository defaults'
+ classVariableNames: 'CheckForNewerVersionsBeforeSave'
- classVariableNames: ''
  poolDictionaries: ''
  category: 'Monticello-UI'!

Item was added:
+ ----- Method: MCWorkingCopyBrowser class>>checkForNewerVersionsBeforeSave (in category 'preferences') -----
+ checkForNewerVersionsBeforeSave
+ "Preference accessor"
+ <preference: 'Check for new versions before save'
+ category: 'Monticello'
+ description: 'If true, MC will warn before committing to repositories that have possibly newer versions of the package being saved.'
+ type: #Boolean>
+ ^CheckForNewerVersionsBeforeSave ifNil:[true]!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>checkForNewerVersions (in category 'actions') -----
  checkForNewerVersions
  | newer |
  newer := workingCopy possiblyNewerVersionsIn: self repository.
  ^ newer isEmpty or: [
  self confirm: 'CAUTION!! These versions in the repository may be newer:',
+ String cr, (newer asString truncateWithElipsisTo: 150), String cr,
- String cr, newer asString, String cr,
  'Do you really want to save this version?'].!

Item was added:
+ ----- Method: MCWorkingCopyBrowser class>>checkForNewerVersionsBeforeSave: (in category 'preferences') -----
+ checkForNewerVersionsBeforeSave: aBool
+ "Sets the CheckForNewerVersionsBeforeSave preference"
+ CheckForNewerVersionsBeforeSave := aBool!