<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<p>Unless someone corrects me, I believe you need to code that
yourself.</p>
<p>Cheers,</p>
<div class="moz-cite-prefix">On 06/10/2025 7:12 PM, H. Hirzel via
Cuis-dev wrote:<br>
</div>
<blockquote type="cite"
cite="mid:CAGQxfVikAb+N6J6rRsD+Has8SP8oBF=OQX1B9tTTdG+XpKFGvg@mail.gmail.com">
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<div dir="ltr">P.S. What I mean is, how do I constrain the size of
the SystemWindow object without hard coding the extent as in the
answer to Hilaire's mail.</div>
<br>
<div class="gmail_quote gmail_quote_container">
<div dir="ltr" class="gmail_attr">On Tue, Oct 7, 2025 at
12:09 AM H. Hirzel <<a
href="mailto:hannes.hirzel@gmail.com" moz-do-not-send="true"
class="moz-txt-link-freetext">hannes.hirzel@gmail.com</a>>
wrote:<br>
</div>
<blockquote class="gmail_quote"
style="margin:0px 0px 0px 0.8ex;border-left:1px solid rgb(204,204,204);padding-left:1ex">
<div dir="ltr">
<div>Hi</div>
<div><br>
</div>
<div>In the LayoutMorph example7 the size of the
SystemWindow object is too large.</div>
<div><br>
</div>
<div>How do I constrain the size of it so that it has the
size as required by the morphs it contains?</div>
<div><br>
</div>
<div>This is in recent Cuis 7.5-7635</div>
<div><br>
</div>
<div>Kind regards</div>
<div>Hannes</div>
<div><br>
</div>
<div>-----------------------------------------------------------------------</div>
<div>The updated example: It now shows the color given by
the hex code but the window size is too large</div>
<div><br>
</div>
<div> | c colorHexValue colorName r w colorHexValueLabel |<br>
w := SystemWindow new setLabel: 'Color'.<br>
r := LinearLayoutMorph newRow separation: 30 @ 10.<br>
c := LinearLayoutMorph newColumn separation: 20 @ 10.<br>
colorHexValue := '#FF00FF'.<br>
colorHexValueLabel := LabelMorph contents: colorHexValue .<br>
colorName := LabelMorph contents: 'magenta'.<br>
<br>
r addMorph: colorHexValueLabel.<br>
r addMorph: colorName.<br>
c addMorph: (ColoredBoxMorph new color: (Color
fromHexString: colorHexValue)).<br>
c addMorph: r.<br>
w addMorph: c .<br>
w openInWorld.<br>
</div>
<div> <br>
</div>
<div><br>
</div>
</div>
</blockquote>
</div>
<br>
<fieldset class="moz-mime-attachment-header"></fieldset>
</blockquote>
<pre class="moz-signature" cols="72">--
Juan Vuletich
<a class="moz-txt-link-abbreviated" href="http://www.cuis.st">www.cuis.st</a>
github.com/jvuletich
researchgate.net/profile/Juan-Vuletich
independent.academia.edu/JuanVuletich
patents.justia.com/inventor/juan-manuel-vuletich</pre>
</body>
</html>