[squeak-dev] The Trunk: ToolBuilder-MVC-laza.22.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 9 09:13:51 UTC 2011


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 at 0 corner: 640 at 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 at 0 extent: aSpec extent].
  	widget window: topSize.
  	panes := OrderedCollection new.
  	self buildAll: children in: widget.
  	widget setUpdatablePanesFrom: panes.
  	^widget!




More information about the Squeak-dev mailing list