Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-MVC-mt.45.mcz

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

Name: ToolBuilder-MVC-mt.45
Author: mt
Time: 4 May 2016, 1:38:11.47599 pm
UUID: 38fdc832-d60a-c449-bb47-47197faa4cd1
Ancestors: ToolBuilder-MVC-mt.44

Implement hook to retrieve window bounds.

Add list-fallback for tree specs. Do not raise an error anymore. Makes ObjectExplorer basically work in MVC.

=============== Diff against ToolBuilder-MVC-mt.44 ===============

Item was added:
+ ----- Method: MVCToolBuilder class>>getBoundsForWindow: (in category 'services') -----
+ getBoundsForWindow: view
+ 
+ 	^ view displayBox!

Item was added:
+ ----- Method: MVCToolBuilder class>>setBoundsForWindow:to: (in category 'services') -----
+ setBoundsForWindow: standardSystemView to: rectangle
+ 
+ 	^ standardSystemView resizeTo: rectangle!

Item was changed:
  ----- Method: MVCToolBuilder>>buildPluggableTree: (in category 'widgets required') -----
  buildPluggableTree: aSpec
+ 	"Fall-back to list view. Just show the roots."
+ 	
+ 	| widget listClass getIndex setIndex |
+ 	listClass := PluggableListViewByItem.
+ 	getIndex := aSpec getSelected.
+ 	setIndex := aSpec setSelected.
  
+ 	widget := PluggableListViewByItem on: aSpec model
+ 				list: aSpec roots
+ 				selected: aSpec getSelected
+ 				changeSelected: aSpec setSelected
+ 				menu: aSpec menu
+ 				keystroke: aSpec keyPress.
+ 	self register: widget id: aSpec name.
+ 	self setFrame: aSpec frame in: widget.
+ 	parent ifNotNil:[parent addSubView: widget].
+ 	panes ifNotNil:[
+ 		aSpec roots ifNotNil:[panes add: aSpec roots].
+ 	].
+ 	^widget!
- 	self shouldBeImplemented.!