'From Squeak3.7-m17n of 21 July 2004 [latest update: #19] on 25 July 2004 at 3:48:07 pm'! "Change Set: e11TilePadFix-sw Date: 7 July 2004 Author: Scott Wallace Adopted from Squeakland update 0220tilePadFix. Fixes a long-standing bug in setting the TilePadMorph's borderwidth. This bug given got unmasked recently by the borderFixes-nk update."! !CategoryViewer methodsFor: 'categories' stamp: 'sw 7/7/2004 21:59'! adjustColorsAndBordersWithin "Adjust the colors and borders of submorphs to suit current fashion" self allMorphsDo: [:aMorph | (aMorph isKindOf: ViewerLine) ifTrue: [aMorph layoutInset: 1]. (aMorph isKindOf: TilePadMorph) ifTrue: [aMorph beTransparent]. (aMorph isKindOf: PhraseTileMorph) ifTrue: [aMorph beTransparent. aMorph borderWidth: 0]. (aMorph isKindOf: TileMorph) ifTrue: [aMorph borderWidth: 1]]. self borderWidth: 1! !