'From etoys2.1 of 26 July 2007 [latest update: #1584] on 3 September 2007 at 4:42:42 am'! "Change Set: littleOops-sw Date: 3 September 2007 Author: Scott Wallace Removes a snippet of debugging code inadvertently lingering in update 1580sugarSupplies.."! !NoHaloMorph class methodsFor: 'instance creation' stamp: 'sw 9/3/2007 04:42'! inARow: aCollectionOfMorphs "Answer an instance of the receiver, a row morph, with the given collection as its submorphs, and transparent in color. Interpret the symbol #spacer in the incoming list as a request for a variable transparent spacer." | row | row _ self new. row layoutPolicy: TableLayout new. row listDirection: #leftToRight; vResizing: #shrinkWrap; hResizing: #spaceFill; layoutInset: 0; cellPositioning: #center; borderWidth: 0; color: Color transparent. aCollectionOfMorphs do: [ :each | | toAdd | toAdd := each == #spacer ifTrue: [AlignmentMorph newVariableTransparentSpacer] ifFalse: [each]. row addMorphBack: toAdd]. ^ row ! !