<!DOCTYPE html>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
</head>
<body>
<p>Hi Hilaire,</p>
<p>I need a more complete example. In a base updated Cuis I did
this:</p>
<p>1) Create class:</p>
<p>LinearLayoutMorph subclass: #Totola<br>
instanceVariableNames: 'date model description'<br>
classVariableNames: ''<br>
poolDictionaries: ''<br>
category: 'Morphic-Composite Widgets'<br>
<br>
</p>
<p>2) Add a class method:</p>
<p>extent<br>
^400@200</p>
<p>3) Add an instance method:</p>
<p>initialize<br>
super initialize.<br>
self beColumn.<br>
date := LabelMorph contents: (Date today printFormat: #(1 2 3
$/ 1 1 1)) fontSize: 12 emphasis: 1.<br>
description := TextParagraphMorph contents: 'model
description'.<br>
self addMorph: date;<br>
addMorph: description;<br>
morphExtent: self class extent</p>
<p>4) Evaluate:</p>
<p> Totola new openInWorld</p>
<p>Seems to work OK. Please see how important it is to give enough
detail so the problem can be reproduced and understood.</p>
<p>Thanks,</p>
<div class="moz-cite-prefix">On 01/10/2025 11:53 AM, Hilaire
Fernandes via Cuis-dev wrote:<br>
</div>
<blockquote type="cite"
cite="mid:78181767-1e23-4eee-93ed-149cb5035cfb@free.fr">initialize<br>
super initialize.<br>
self beColumn.<br>
date := LabelMorph contents: (model date printFormat: #(1 2 3
$/ 1 1 1)) fontSize: 12 emphasis: 1.<br>
description := TextParagraphMorph contents: model description.<br>
self addMorph: date;<br>
addMorph: description;<br>
<b> morphExtent: self class extent</b></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>