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