'From Squeak3.5 of ''11 April 2003'' [latest update: #5180] on 10 August 2003 at 3:06:08 pm'! !SelectionMorph methodsFor: 'halo commands' stamp: 'tb 8/10/2003 14:47'! organizeIntoColumn "Place my objects in a column-enforcing container" ((AlignmentMorph inAColumn: (selectedItems asSortedCollection: [:x :y | x top < y top])) setNameTo: 'Column'; color: Color orange muchLighter; enableDragNDrop: true; yourself) openInHand ! ! !SelectionMorph methodsFor: 'halo commands' stamp: 'tb 8/10/2003 14:48'! organizeIntoRow "Place my objects in a row-enforcing container" ((AlignmentMorph inARow: (selectedItems asSortedCollection: [:x :y | x left < y left])) setNameTo: 'Row'; color: Color orange muchLighter; enableDragNDrop: true; yourself) openInHand ! !