[Pkg] The Trunk: Tools-cmm.503.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Nov 8 16:49:23 UTC 2013

Chris Muller uploaded a new version of Tools to project The Trunk:

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

Name: Tools-cmm.503
Author: cmm
Time: 8 November 2013, 10:47:48.775 am
UUID: d63e2ab3-ee48-405c-8147-f6bd0e1b72da
Ancestors: Tools-nice.502

Allow browsing further back into the change log.

=============== Diff against Tools-nice.502 ===============

Item was changed:
  ----- Method: ChangeList class>>browseRecentLogOn:startingFrom: (in category 'public access') -----
  browseRecentLogOn: origChangesFile startingFrom: initialPos 
  	"Prompt with a menu of how far back to go when browsing a changes file."
  	| end banners positions pos chunk i changesFile |
  	changesFile := origChangesFile readOnlyCopy.
  	banners := OrderedCollection new.
  	positions := OrderedCollection new.
  	end := changesFile size.
  	changesFile setConverterForCode.
  	pos := initialPos.
  	[pos = 0
+ 		or: [banners size > 500]]
- 		or: [banners size > 20]]
  		whileFalse: [changesFile position: pos.
  			chunk := changesFile nextChunk.
  			i := chunk indexOfSubCollection: 'priorSource: ' startingAt: 1.
  			i > 0
  				ifTrue: [positions addLast: pos.
  						addLast: (chunk copyFrom: 5 to: i - 2).
  					pos := Number
  								readFrom: (chunk copyFrom: i + 13 to: chunk size)]
  				ifFalse: [pos := 0]].
  	changesFile close.
  	banners size = 0 ifTrue: [^ self inform: 
  'this image has never been saved
  since changes were compressed' translated].
  	pos := UIManager default chooseFrom:  banners values: positions title: 'Browse as far back as...' translated.
  	pos ifNil: [^ self].
  	self browseRecent: end - pos on: origChangesFile!

More information about the Packages mailing list