The Trunk: Tools-cmm.503.mcz

Chris Muller uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-cmm.503.mcz

==================== 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.
  banners
  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!