AbstractDistributionMap &gt;&gt; defaultTitleFormattingBlock<br>    ^ [ :each | <br>    | t |<br>    t := each.<br>    (t beginsWith: &#39;Citezen-&#39;)<br>        ifTrue: [ t := t copyReplaceAll: &#39;Citezen-&#39; with: &#39;C&#39; ].<br>
    (t beginsWith: &#39;Seaside-&#39;)<br>        ifTrue: [ t := t copyReplaceAll: &#39;Seaside-&#39; with: &#39;S&#39; ].<br>    t := t copyReplaceAll: &#39;Tests-&#39; with: &#39;T-&#39;.<br>    &quot;t := (Kontract reduce: t upTo: 10).&quot;<br>
    t ]<br><br><br>On the one hand, it hardcodes stuff like Citizen or Seaside. But what is worse is that that Kontract does not exist... <br clear="all"><br>Cheers,<br><br>-- <br>Mariano<br><a href="http://marianopeck.wordpress.com" target="_blank">http://marianopeck.wordpress.com</a><br>
<br>