Alexander Lazarević uploaded a new version of ToolBuilder-MVC to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-MVC-laza.22.mcz==================== Summary ====================
Name: ToolBuilder-MVC-laza.22
Author: laza
Time: 9 February 2011, 10:13:46.311 am
UUID: d97f7d62-8bc6-1449-a480-7ae69427f028
Ancestors: ToolBuilder-MVC-dtl.21
If provided, use the label from the spec for MVC window building
=============== Diff against ToolBuilder-MVC-dtl.21 ===============
Item was changed:
----- Method: MVCToolBuilder>>buildPluggableWindow: (in category 'pluggable widgets') -----
buildPluggableWindow: aSpec
+ | widget children label |
- | widget children |
topSize := 0@0 corner: 640@480.
aSpec layout == #proportional ifFalse:[
"This needs to be implemented - probably by adding a single pane and then the rest"
^self error: 'Not implemented'.
].
widget := StandardSystemView new.
self register: widget id: aSpec name.
widget model: aSpec model.
+ label := aSpec label.
+ label isSymbol ifTrue: [label := aSpec model perform: label].
+ label isNil ifFalse: [widget setLabel: label].
children := aSpec children.
children isSymbol ifTrue:[
"This isn't implemented by StandardSystemView, so we fake it"
children := widget model perform: children.
].
aSpec extent ifNotNil:[topSize := 0@0 extent: aSpec extent].
widget window: topSize.
panes := OrderedCollection new.
self buildAll: children in: widget.
widget setUpdatablePanesFrom: panes.
^widget!