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.!
squeak-dev@lists.squeakfoundation.org