[Pkg] The Trunk: Monticello-ar.381.mcz

commits at source.squeak.org commits at source.squeak.org
Thu Mar 11 05:16:19 UTC 2010

Andreas Raab uploaded a new version of Monticello to project The Trunk:

==================== 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') -----
  	| 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!

More information about the Packages mailing list