The Trunk: ToolBuilder-MVC-laza.22.mcz

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!