Christoph Thiede uploaded a new version of Tools to project The Inbox:
http://source.squeak.org/inbox/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!