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@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. ]. + ((RealEstateAgent savedExtentFor: aSpec model) + ifNil: [aSpec extent]) ifNotNil: [:initialExtent | + topSize := 0@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@0 extent: aSpec extent]. widget window: topSize. panes := OrderedCollection new. self buildAll: children in: widget. widget setUpdatablePanesFrom: panes. ^widget!
packages@lists.squeakfoundation.org