The Trunk: MorphicExtras-dtl.55.mcz

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]!