Anyone knows for what this is used:
TreeListMorph>>
addSubmorphsAfter: parentMorph fromCollection: aCollection allowSorting:
sortBoolean
"Update the font on each morph."
|answer|
answer := super addSubmorphsAfter: parentMorph fromCollection:
aCollection allowSorting: sortBoolean.
"---- THIS TAKES TIME ----"
self scroller submorphsDo: [:i |
i
font: self font;
extent: i minWidth @ i minHeight].
"---- XXXXX ----"
^answer
setting the font and extent on all scroller submorphs is extremly
slow.
Try to merge a package with many changes, it takes up to several minutes
until
the DiffMorph shows up.
Removing the above lines makes the DiffMorph much faster and I can not see
any visual difference.
nicolai
