<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"><<a href="mailto:commits@source.squeak.org" target="_blank">commits@source.squeak.org</a>></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>>buildPluggablePanel: (in category 'widgets required') -----<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>