<!DOCTYPE html>
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
</head>
<body text="#000000" bgcolor="#FFFFFF">
<p>Hi, </p>
<p>I don't know if this can be improved, but I think it is worth
sharing this minor concern.</p>
<p>Observe in the code below, to build a simple view, how I need to
duplicate the balloon text to all the view sub-morphs. The
expected behavior was that balloon text will be needed for the
encompassing morph (top view) if no balloon text was set in the
sub-morphs.</p>
<p>But may, be this should be the normal behavior.</p>
<pre>initialize
| scroll |
super initialize.
self beColumn.
date := LabelMorph contents: (model date printFormat: #(1 2 3 $/ 1 1 1)) fontSize: 12 emphasis: 1.
date <b>setBalloonText</b>: model balloonText.
description := TextParagraphMorph contents: (model description justified italic pointSize: 10)::
color: Color white ;
setHeightOnContent ;
<b>setBalloonText</b>: model balloonText;
borderWidth: 0.
self addMorph: date layoutSpec: LayoutSpec keepMorphExtent ;
addMorphUseAll: (scroll := PluggableScrollPane new
layoutSpec: LayoutSpec useAll;
<b>setBalloonText</b>: model balloonText;
color: Color white;
scroller: description);
morphExtent: TimelineEntryView extent.
scroll adoptWidgetsColor: self defaultColor.
scroll verticalScrollBar morphWidth: 6.
self <b>setBalloonText</b>: model balloonText </pre>
<p><br>
</p>
<pre class="moz-signature" cols="72">--
<a class="moz-txt-link-freetext" href="http://mamot.fr/@drgeo">http://mamot.fr/@drgeo</a></pre>
</body>
</html>