[Pkg] The Trunk: MorphicExtras-dtl.56.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Nov 13 20:25:15 UTC 2009
David T. Lewis uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-dtl.56.mcz
==================== Summary ====================
Name: MorphicExtras-dtl.56
Author: dtl
Time: 13 November 2009, 4:22:45 am
UUID: 05f08bbf-8ef2-44fa-925a-5fb9f2350f36
Ancestors: MorphicExtras-dtl.55
Fix underscores and remove duplicate code in PartsBin initialization
=============== Diff against MorphicExtras-dtl.55 ===============
Item was changed:
----- 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.
- 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]!
Item was changed:
----- Method: PartsBin>>listDirection:quadList: (in category 'initialization') -----
listDirection: aListDirection quadList: quadList
"Initialize the receiver to run horizontally or vertically, obtaining its elements from the list of tuples of the form:
(<receiver> <selector> <label> <balloonHelp>)"
+ ^self listDirection: aListDirection quadList: quadList buttonClass: IconicButton!
- | 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 := IconicButton 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]!
More information about the Packages
mailing list