Marcel Taeumel uploaded a new version of ToolBuilder-MVC to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-MVC-mt.71.mcz

==================== Summary ====================

Name: ToolBuilder-MVC-mt.71
Author: mt
Time: 20 January 2023, 6:49:34.480382 pm
UUID: b0ca3358-ad8a-b54a-a6d2-cf0439a5563f
Ancestors: ToolBuilder-MVC-mt.70

Complements System-mt.1385

=============== Diff against ToolBuilder-MVC-mt.70 ===============

Item was changed:
  ----- Method: MVCToolBuilder>>buildPluggableWindow: (in category 'widgets required') -----
  buildPluggableWindow: aSpec
  	| widget children label |
  	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.
  	].
+ 	((RealEstateAgent savedExtentFor: aSpec model)
+ 		ifNil: [aSpec extent]) ifNotNil: [:initialExtent |
+ 			topSize :=  0 at 0 extent: initialExtent].
+ 	self flag: #fixme. "ct: Explicit spec extent is ignored in StandardSystemView >> #resizeInitially, called by StandardSystemController >> #open[NoTerminate]. See MorphicToolBuilder implementation and RealEstateAgent class >> #initialFrameFor:initialExtent:world:."
- 	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!