David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-dtl.55.mcz

==================== Summary ====================

Name: MorphicExtras-dtl.55
Author: dtl
Time: 13 November 2009, 12:33:51 pm
UUID: b403fd12-b0e2-4a01-b8bf-2237345e0bf6
Ancestors: MorphicExtras-kb.54

Restore missing method PartsBin>>listDirection:quadList:buttonClass: used by external package Connectors. Add comment to discourage removal.
Reference: http://lists.squeakfoundation.org/pipermail/squeak-dev/2009-November/140870.html

=============== Diff against MorphicExtras-kb.54 ===============

Item was added:
+ ----- Method: PartsBin>>listDirection:quadList:buttonClass: (in category 'initialization') -----
+ listDirection: aListDirection quadList: quadList buttonClass: buttonClass
+ 	"Initialize the receiver to run horizontally or vertically, obtaining its elements from the list of tuples of the form:
+ 		(<receiver> <selector> <label> <balloonHelp>)
+ 	Used by external package Connectors."
+ 
+ 	| aButton aClass |
+ 	self layoutPolicy: TableLayout new.
+ 	self listDirection: aListDirection.
+ 	self wrapCentering: #topLeft.
+ 	self layoutInset: 2.
+ 	self cellPositioning: #bottomCenter.
+ 
+ 	aListDirection == #leftToRight
+ 		ifTrue:
+ 			[self vResizing: #rigid.
+ 			self hResizing: #spaceFill.
+ 			self wrapDirection: #topToBottom]
+ 		ifFalse:
+ 			[self hResizing: #rigid.
+ 			self vResizing: #spaceFill.
+ 			self wrapDirection: #leftToRight].
+ 	quadList do:
+ 		[:tuple |
+ 			aClass _ Smalltalk at: tuple first.
+ 			aButton _ buttonClass new initializeWithThumbnail: (self class thumbnailForQuad: tuple color: self color) withLabel: tuple third andColor: self color andSend: tuple second to: aClass.
+ 			(tuple size > 3 and: [tuple fourth isEmptyOrNil not]) ifTrue:
+ 				[aButton setBalloonText: tuple fourth].
+  			self addMorphBack: aButton]!