[Pkg] Monticello Public: Monticello.impl-mtf.581.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-mtf.581.mcz

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

Name: Monticello.impl-mtf.581
Author: mtf
Time: 7 October 2008, 5:58:45 pm
UUID: 41c04d67-fdf2-4bba-8ff4-d629f7b45873
Ancestors: Monticello.impl-mtf.580, Monticello-AlexandreBergel.323

Merge Pharo changes up to Monticello-AlexandreBergel.323. The previous merge was done in Monticello.impl-mtf.558, and brought MC1.5 up to Monticello-AlexandreBergel.320: Here are the changes:

>From Monticello-AlexandreBergel.321
'add required all dirty packages' menu item when selecting a package

>From  Monticello-AlexandreBergel.322
Added comments when saving

>From Monticello-AlexandreBergel.323
Minor bug fixed when fetching the comment. It was trimmed to 20 characters.

=============== Diff against Monticello.impl-mtf.580 ===============

Item was added:
+ ----- Method: MCSaveVersionDialog>>comment (in category 'as yet unclassified') -----
+ comment
+ 	| list index |
+ 	list := self lastComments collect: [:s | s copyFrom: 1 to: (s size min: 20)].
+ 	list ifEmpty: [UIManager default inform: 'No previous comments was entered'. ^ self].
+ 	index := UIManager default chooseFrom: list.
+ 	
+ 	"no comment was selected"
+ 	index isZero ifTrue: [ ^ self ].
+ 	
+ 	self logMessage: (self lastComments at: index)!

Item was added:
+ ----- Method: MCSaveVersionDialog>>addAsLastComment: (in category 'as yet unclassified') -----
+ addAsLastComment: aString
+ 	((self lastComments size > 0) and: [self lastComments first = aString])
+ 		ifTrue: [ ^ self ].
+ 		
+ 	self lastComments addFirst: aString.
+ 	(self lastComments size > self maxCommentHistory)
+ 		ifTrue: [LastComments := LastComments copyFrom: 1 to: self maxCommentHistory]!

Item was added:
+ ----- Method: MCSaveVersionDialog>>lastComments (in category 'as yet unclassified') -----
+ lastComments
+ 	LastComments ifNil: [ LastComments := OrderedCollection new].
+ 	^ LastComments!

Item was added:
+ ----- Method: MCWorkingCopyBrowser>>addRequiredDirtyPackage (in category 'actions') -----
+ addRequiredDirtyPackage
+ 	| dirtyPackages |
+ 	dirtyPackages := self workingCopies select: [:copy | copy needsSaving].
+ 
+ 	workingCopy ifNotNilDo:
+ 		[:wc |
+ 		dirtyPackages do:
+ 			[:required |
+ 			wc requirePackage: required package]].
+ 	
+ 	self workingCopyListChanged!

Item was changed:
  ----- Method: MCWorkingCopyBrowser>>workingCopyListMenu: (in category 'morphic ui') -----
  workingCopyListMenu: aMenu
  	workingCopy ifNil: [^ aMenu].
  	self fillMenu: aMenu fromSpecs:
  		#(('add required package' #addRequiredPackage)
+ 			('add required all dirty packages' #addRequiredDirtyPackage)
  			('clear required packages' #clearRequiredPackages)
  			('browse package' #browseWorkingCopy)
  			('view changes' #viewChanges)
  			('view history' #viewHistory)
  			('recompile package' #recompilePackage)
  			('recompile all packages' #recompileAllPackages)		
  			('memory use for all packages' #viewMemoryUseAll)		
  			('memory use' #viewMemoryUse)	
  			('revert package...' #revertPackage)
  			('unload package' #unloadPackage)
  			('delete working copy' #deleteWorkingCopy)).
  	(Smalltalk includesKey: #SARMCPackageDumper) ifTrue: [
  		aMenu add: 'make SAR' target: self selector: #fileOutAsSAR
  	].
  	^aMenu!

Item was added:
+ ----- Method: MCSaveVersionDialog>>maxCommentHistory (in category 'as yet unclassified') -----
+ maxCommentHistory
+ 	^ 15!

Item was changed:
  ----- Method: MCSaveVersionDialog>>accept (in category 'as yet unclassified') -----
  accept
+ 	self addAsLastComment: (self findTextMorph: #logMessage) text asString.
  	self answer:
  		(Array
  			with: (self findTextMorph: #versionName) text asString
  			with: (self findTextMorph: #logMessage) text asString)
  	!

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

Item was changed:
  MCTool subclass: #MCSaveVersionDialog
  	instanceVariableNames: 'name message'
+ 	classVariableNames: 'LastComments'
- 	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Monticello-UI'!