<div dir="ltr"><br><div class="gmail_extra"><br><div class="gmail_quote">On Wed, Apr 15, 2015 at 5:03 PM,  <span dir="ltr">&lt;<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>&gt;</span> wrote:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:<br>
<a href="http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.131.mcz" target="_blank">http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.131.mcz</a><br>
<br>
==================== Summary ====================<br>
<br>
Name: ToolBuilder-Morphic-mt.131<br>
Author: mt<br>
Time: 15 April 2015, 5:03:08.876 pm<br>
UUID: 9edadf2c-970c-f343-ab24-cf92eb411835<br>
Ancestors: ToolBuilder-Morphic-mt.130<br>
<br>
Avoid clipping submorphs in panels. Should not be required in general.<br>
<br>
Why? Retractable scrollbars will else not be possible.<br></blockquote><div> </div><div>Hi,</div><div>I think the issue is that if you scale down a browser window the buttons will now stick out on right side of the browser. </div><div><br></div><div>Karl</div><div><br></div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
<br>
=============== Diff against ToolBuilder-Morphic-mt.130 ===============<br>
<br>
Item was changed:<br>
  ----- Method: MorphicToolBuilder&gt;&gt;buildPluggablePanel: (in category &#39;widgets required&#39;) -----<br>
  buildPluggablePanel: aSpec<br>
        | widget children frame |<br>
        widget := self panelClass new.<br>
        self register: widget id: aSpec name.<br>
        widget model: aSpec model.<br>
        widget color: Color transparent.<br>
-       widget clipSubmorphs: true.<br>
        children := aSpec children.<br>
        children isSymbol ifTrue:[<br>
                widget getChildrenSelector: children.<br>
                widget update: children.<br>
                children := #().<br>
        ].<br>
        self buildAll: children in: widget.<br>
        self buildHelpFor: widget spec: aSpec.<br>
        self setFrame: aSpec frame in: widget.<br>
        parent ifNotNil:[self add: widget to: parent].<br>
        self setLayout: aSpec layout in: widget.<br>
        widget layoutInset: 0.<br>
        widget borderWidth: 0.<br>
        widget submorphsDo:[:sm|<br>
                (frame := sm layoutFrame) ifNotNil:[<br>
                        (frame rightFraction = 0 or:[frame rightFraction = 1])<br>
                                ifFalse:[frame rightOffset:1].<br>
                        (frame bottomFraction = 0 or:[frame bottomFraction = 1])<br>
                                ifFalse:[frame bottomOffset: 1]]].<br>
        widget color: Color transparent.<br>
        ^widget!<br>
<br>
<br>
</blockquote></div><br></div></div>