ObjectExplorer broken (was: Re: [squeak-dev] The Trunk: Tools-cmm.570.mcz)

Levente Uzonyi leves at elte.hu
Wed Apr 1 16:26:23 UTC 2015


ObjectExplorer>>buildWith: sends #filteredItems, but there are no 
implementors in my Trunk image. It breaks ObjectExplorer. To reproduce 
it evaluate [1 explore].

Levente

On Wed, 1 Apr 2015, commits at source.squeak.org wrote:

> 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 at 0 corner: 1 at 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 at 0.85 corner: 1 at 1).
>  	windowSpec children add: textSpec.
>
>  	^ builder build: windowSpec!
>
>
>


More information about the Squeak-dev mailing list