The Trunk: ST80-bf.175.mcz

Bert Freudenberg uploaded a new version of ST80 to project The Trunk:
http://source.squeak.org/trunk/ST80-bf.175.mcz

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

Name: ST80-bf.175
Author: bf
Time: 8 December 2014, 2:02:23.412 am
UUID: b4102f05-6b6c-4c17-8344-b300953f369f
Ancestors: ST80-nice.174

Restore timestamps lost in assignment conversion.

=============== Diff against ST80-nice.174 ===============

Item was changed:
  ----- Method: Paragraph>>composeAll (in category 'composition') -----
  composeAll
  "Compose a collection of characters into a collection of lines."
 
  | startIndex stopIndex lineIndex maximumRightX compositionScanner |
  lines := Array new: 32.
  lastLine := 0.
  maximumRightX := 0.
  text size = 0
  ifTrue:
  [compositionRectangle := compositionRectangle withHeight: 0.
  ^maximumRightX].
  startIndex := lineIndex := 1.
  stopIndex := text size.
  compositionScanner := CompositionScanner new forParagraph: self.
  [startIndex > stopIndex] whileFalse:
  [self lineAt: lineIndex
  put: (compositionScanner composeLine: lineIndex
  fromCharacterIndex: startIndex
  inParagraph: self).
  maximumRightX := compositionScanner rightX max: maximumRightX.
  startIndex := (lines at: lineIndex) last + 1.
  lineIndex := lineIndex + 1].
  self updateCompositionHeight.
  self trimLinesTo: lineIndex - 1.
  ^ maximumRightX!

Item was changed:
  ----- Method: SyntaxError class>>buildMVCViewOn: (in category '*ST80-Support') -----
  buildMVCViewOn: aSyntaxError
  "Answer an MVC view on the given SyntaxError."
 
  | topView aListView aCodeView |
  topView := StandardSystemView new
  model: aSyntaxError;
  label: 'Syntax Error';
  minimumSize: 380@220.
 
  aListView := PluggableListView on: aSyntaxError
  list: #list
  selected: #listIndex
  changeSelected: nil
  menu: #listMenu:.
  aListView window: (0@0 extent: 380@20).
  topView addSubView: aListView.
 
  aCodeView := PluggableTextView on: aSyntaxError
  text: #contents
  accept: #contents:notifying:
  readSelection: #contentsSelection
  menu: #codePaneMenu:shifted:.
  aCodeView window: (0@0 extent: 380@200).
  topView addSubView: aCodeView below: aListView.
 
  ^ topView
  !