The Trunk: ToolBuilder-MVC-mt.45.mcz

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.!