A new version of ToolBuilder-Morphic was added to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-Morphic-cwp.87.mcz==================== Summary ====================
Name: ToolBuilder-Morphic-cwp.87
Author: cwp
Time: 24 October 2012, 4:04:09.791 pm
UUID: 41d57ed4-1d8c-40df-8b66-13218e0b3c3c
Ancestors: ToolBuilder-Morphic-bf.86
Fixed a cosmetic issue: PluggableListMorphs created by ToolBuilder should have unobtrusive borders even if they aren't embedded directly in a system window.
=============== Diff against ToolBuilder-Morphic-bf.86 ===============
Item was changed:
----- Method: MorphicToolBuilder>>buildPluggableList: (in category 'pluggable widgets') -----
buildPluggableList: aSpec
| widget listClass getIndex setIndex |
aSpec getSelected ifNil:[
listClass := self listClass.
getIndex := aSpec getIndex.
setIndex := aSpec setIndex.
] ifNotNil:[
listClass := self listByItemClass.
getIndex := aSpec getSelected.
setIndex := aSpec setSelected.
].
widget := listClass on: aSpec model
list: aSpec list
selected: getIndex
changeSelected: setIndex
menu: aSpec menu
keystroke: aSpec keyPress.
self register: widget id: aSpec name.
widget getListElementSelector: aSpec listItem.
widget getListSizeSelector: aSpec listSize.
widget getIconSelector: aSpec icon.
widget doubleClickSelector: aSpec doubleClick.
widget dragItemSelector: aSpec dragItem.
widget dropItemSelector: aSpec dropItem.
widget wantsDropSelector: aSpec dropAccept.
widget autoDeselect: aSpec autoDeselect.
widget keystrokePreviewSelector: aSpec keystrokePreview.
+ aSpec color isNil
+ ifTrue: [widget
+ borderWidth: 1;
+ borderColor: Color lightGray;
+ color: Color white]
+ ifFalse: [widget color: aSpec color].
- aSpec color isNil ifFalse: [widget color: aSpec color].
self buildHelpFor: widget spec: aSpec.
self setFrame: aSpec frame in: widget.
parent ifNotNil:[self add: widget to: parent].
panes ifNotNil:[
aSpec list ifNotNil:[panes add: aSpec list].
].
^widget!