[Cuis-dev] Other Balloon text concern

[Hilaire Fernandes]

Hi,

I don't know if this can be improved, but I think it is worth sharing 
this minor concern.

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.

But may, be this should be the normal behavior.

initialize
     | scroll |
     super initialize.
     self beColumn.
     date := LabelMorph contents: (model date printFormat: #(1 2 3 $/ 1 1 1))  fontSize: 12 emphasis: 1.
     date*setBalloonText*: model balloonText.
     description := TextParagraphMorph contents: (model description justified italic pointSize: 10)::
         color: Color white ;
         setHeightOnContent ;
         *setBalloonText*: model balloonText;
         borderWidth: 0.
     self addMorph:  date layoutSpec: LayoutSpec keepMorphExtent ;
         addMorphUseAll: (scroll := PluggableScrollPane new
             layoutSpec: LayoutSpec useAll;
             *setBalloonText*: model balloonText;
             color: Color white;
             scroller: description);
         morphExtent: TimelineEntryView extent.
     scroll adoptWidgetsColor: self defaultColor.
     scroll verticalScrollBar morphWidth: 6.
     self*setBalloonText*: model balloonText


-- 
http://mamot.fr/@drgeo
-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.cuis.st/mailman/archives/cuis-dev/attachments/20260208/5070f8f0/attachment.htm>