The Trunk: Tools-mt.942.mcz

Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.942.mcz

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

Name: Tools-mt.942
Author: mt
Time: 28 February 2020, 2:25:27.228195 pm
UUID: 60de91cf-f275-744b-91f0-58f80225d512
Ancestors: Tools-mt.941

Prepare 5.3rc3 --- All those "----" entries (SNAPSHOT, QUIT, etc.) in the changes file should not be of type #doIt, because that can cause Compiler/Parser errors. Change it to #misc instead. We might want to remove any other " if begins with ----" checks later, too.

=============== Diff against Tools-mt.941 ===============

Item was changed:
  ----- Method: ChangeList>>scanFile:from:to: (in category 'scanning') -----
  scanFile: aFile from: startPosition to: stopPosition
 
  file := aFile.
  changeList := OrderedCollection new.
  list := OrderedCollection new.
  listIndex := 0.
  file position: startPosition.
  'Scanning ', aFile localName, '...'
  displayProgressFrom: startPosition to: stopPosition
  during: [:bar | | prevChar itemPosition item |
  [file position < stopPosition]
  whileTrue:
  [bar value: file position.
  [file atEnd not and: [file peek isSeparator]]
  whileTrue: [prevChar := file next].
  (file peekFor: $!!)
  ifTrue:
  [(prevChar = Character cr or: [prevChar = Character lf])
  ifTrue: [self scanCategory]]
  ifFalse:
  [itemPosition := file position.
  item := file nextChunk.
  file skipStyleChunk.
  item size > 0 ifTrue:
+ [(item beginsWith: '----')
+ ifTrue:
+ [self addItem: (ChangeRecord new
+ file: file position: itemPosition type: #misc)
+ text: 'misc: ' , (item contractTo: 50)]
+ ifFalse:
+ [self addItem: (ChangeRecord new
+ file: file position: itemPosition type: #doIt)
+ text: 'do it: ' , (item contractTo: 50)]]]]].
- [self addItem: (ChangeRecord new file: file position: itemPosition type: #doIt)
- text: 'do it: ' , (item contractTo: 50)]]]].
  listSelections := Array new: list size withAll: false!