<body><div id="__MailbirdStyleContent" style="font-size: 10pt;font-family: Arial;color: #000000">
So, let's fix it in SystemWindow instead, not here. :-)<div><br></div><div>Best,</div><div>Marcel</div><div class="mb_sig"></div><blockquote class='history_container' type='cite' style='border-left-style:solid;border-width:1px; margin-top:20px; margin-left:0px;padding-left:10px;'>
<p style='color: #AAAAAA; margin-top: 10px;'>Am 17.09.2020 14:17:33 schrieb commits@source.squeak.org <commits@source.squeak.org>:</p><div style='font-family:Arial,Helvetica,sans-serif'>A new version of ToolBuilder-Morphic was added to project The Inbox:<br>http://source.squeak.org/inbox/ToolBuilder-Morphic-ct.264.mcz<br><br>==================== Summary ====================<br><br>Name: ToolBuilder-Morphic-ct.264<br>Author: ct<br>Time: 17 September 2020, 2:17:24.709813 pm<br>UUID: f0cb613b-9652-a146-9d77-016577d87700<br>Ancestors: ToolBuilder-Morphic-mt.263<br><br>Initially refresh window color when building a window.<br><br>While this also happens later #openInWorld, the call is missing is something else is done with the window instead, e.g. #openInWindow or #imageForm.<br><br>=============== Diff against ToolBuilder-Morphic-mt.263 ===============<br><br>Item was changed:<br> ----- Method: MorphicToolBuilder>>buildPluggableWindow: (in category 'widgets required') -----<br> buildPluggableWindow: aSpec<br> | widget |<br> <br> aSpec layout == #proportional ifFalse:[<br> "This needs to be implemented - probably by adding a single pane and then the rest"<br> ^self error: 'Not implemented'.<br> ].<br> <br> widget := (self windowClassFor: aSpec) new.<br> self register: widget id: aSpec name.<br> <br> widget model: aSpec model.<br> <br> "Set child dependent layout properties."<br> widget wantsPaneSplitters: (aSpec wantsResizeHandles ifNil: [true]).<br> self setLayoutHintsFor: widget spec: aSpec.<br> widget layoutInset: (aSpec padding ifNil: [ProportionalSplitterMorph gripThickness]).<br> widget cellGap: (aSpec spacing ifNil: [ProportionalSplitterMorph gripThickness]).<br> <br> "Now create the children."<br> panes := OrderedCollection new.<br> aSpec children isSymbol<br> ifTrue: [<br> widget getChildrenSelector: aSpec children.<br> widget update: aSpec children]<br> ifFalse: [<br> self buildAll: aSpec children in: widget].<br> widget setUpdatablePanesFrom: panes.<br> <br> aSpec label ifNotNil: [:label|<br> label isSymbol <br> ifTrue:[widget getLabelSelector: label]<br> ifFalse:[widget setLabel: label]].<br> <br> aSpec multiWindowStyle notNil ifTrue:<br> [widget savedMultiWindowState: (SavedMultiWindowState on: aSpec model)].<br> <br> widget closeWindowSelector: aSpec closeAction.<br> self buildHelpFor: widget spec: aSpec. <br> <br> widget bounds: (RealEstateAgent <br> initialFrameFor: widget <br> initialExtent: (aSpec extent ifNil:[widget initialExtent])<br> world: self currentWorld).<br> <br>+ widget refreshWindowColor.<br>+ <br> ^ widget!<br><br><br></div></blockquote>
</div></body>