The Trunk: Tools-ct.1020.mcz

Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ct.1020.mcz

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

Name: Tools-ct.1020
Author: ct
Time: 12 December 2020, 11:33:05.41462 pm
UUID: 0413bef6-8f81-9241-8f8b-47274aa31cd1
Ancestors: Tools-mt.1019

Fixes code styling in change sorters.

Funnily, #aboutToStyle: was already implemented on ChangeSorter, only the toolbuilder method needed a small update ... :-)

=============== Diff against Tools-mt.1019 ===============

Item was changed:
  ----- Method: ChangeSorter>>buildWith:in:rect: (in category 'toolbuilder') -----
  buildWith: builder in: window rect: rect
  | csListHeight msgListHeight csMsgListHeight listSpec textSpec |
  contents := ''.
  csListHeight := 0.25.
  msgListHeight := 0.25.
  csMsgListHeight := csListHeight + msgListHeight.
 
  listSpec := builder pluggableListSpec new.
  listSpec
  model: self;
  list: #changeSetList;
  getSelected: #currentCngSet;
  setSelected: #showChangeSetNamed:;
  menu: #changeSetMenu:shifted:;
  keyPress: #changeSetListKey:from:;
  dragItem: #dragChangeSet:;
  autoDeselect: false;
  frame: (((0@0 extent: 0.5@csListHeight)
  scaleBy: rect extent) translateBy: rect origin).
  window children add: listSpec.
 
  listSpec := builder pluggableListSpec new.
  listSpec
  model: self;
  list: #classList;
  getSelected: #currentClassName;
  setSelected: #currentClassName:;
  menu: #classListMenu:shifted:;
  keyPress: #classListKey:from:;
  dragItem: #dragClass:;
  frame: (((0.5@0 extent: 0.5@csListHeight)
  scaleBy: rect extent) translateBy: rect origin).
  window children add: listSpec.
 
  listSpec := builder pluggableListSpec new.
  listSpec
  model: self;
  list: #messageList;
  getSelected: #currentSelector;
  setSelected: #currentSelector:;
  menu: #messageMenu:shifted:;
  keyPress: #messageListKey:from:;
  dragItem: #dragMessage:;
  frame: (((0@csListHeight extent: 1@msgListHeight)
  scaleBy: rect extent) translateBy: rect origin).
  window children add: listSpec.
 
+ textSpec := builder pluggableCodePaneSpec new.
- textSpec := builder pluggableTextSpec new.
  textSpec
  model: self;
  getText: #contents;
  setText: #contents:notifying:;
  selection: #contentsSelection;
  menu: #codePaneMenu:shifted:;
  frame: (((0@csMsgListHeight corner: 1@1) scaleBy: rect extent) translateBy: rect origin).
  window children add: textSpec.
  ^window!