implementors in my Trunk image. It breaks ObjectExplorer. To reproduce
> Chris Muller uploaded a new version of Tools to project The Trunk:
>
http://source.squeak.org/trunk/Tools-cmm.570.mcz>
> ==================== Summary ====================
>
> Name: Tools-cmm.570
> Author: cmm
> Time: 1 April 2015, 11:09:22.929 am
> UUID: 7827a351-1a4d-4e83-bbef-7e900993ee62
> Ancestors: Tools-mt.569
>
> - SimpleHierarchicalListMorph's now honor preferences:
> mouseOverForKeyboardFocus
> Vertical Smart Splitters
> Filterable Lists Clear Automatically
> - After filtering Tree, refit the column-widths to the filtered results.
>
> =============== Diff against Tools-mt.569 ===============
>
> Item was changed:
> ----- Method: ObjectExplorer>>buildWith: (in category 'toolbuilder') -----
> buildWith: builder
>
> | windowSpec treeSpec textSpec |
> windowSpec := builder pluggableWindowSpec new.
> windowSpec
> model: self;
> children: OrderedCollection new;
> label: #label.
>
> treeSpec := builder pluggableTreeSpec new.
> treeSpec
> model: self;
> nodeClass: self class nodeClass;
> roots: #getList;
> keyPress: #explorerKey:from:event:;
> getSelected: #currentSelection;
> setSelected: #currentSelection:;
> setSelectedParent: #currentParent:;
> menu: #genericMenu:;
> autoDeselect: false;
> columns: (ObjectExplorerWrapper showContentsInColumns
> ifTrue: [{
> + [:listMorph | (listMorph filteredItems collect: [:item |
> - [:listMorph | (listMorph scroller submorphs collect: [:item |
> item preferredWidthOfColumn: 1]) max].
> + nil "take all the space"}]);
> - nil "take all the space"}]
> - ifFalse: []);
> frame: (0@0 corner: 1@0.85).
> windowSpec children add: treeSpec.
>
> textSpec := builder pluggableTextSpec new.
> textSpec
> model: self;
> menu: #codePaneMenu:shifted:;
> help: 'Evaluate expressions for the current tree selection...' translated;
> frame: (0@0.85 corner: 1@1).
> windowSpec children add: textSpec.
>
> ^ builder build: windowSpec!
>
>
>
Locked
