Andreas Raab uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-ar.38.mcz

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

Name: ToolBuilder-Kernel-ar.38
Author: ar
Time: 23 September 2010, 9:12:49.045 pm
UUID: 8926588c-0e9a-9a4b-9fff-f6f8629ad0f4
Ancestors: ToolBuilder-Kernel-dtl.37, ToolBuilder-Kernel-rww.37

Merging ToolBuilder-Morphic-rww.68:

I added PluggableDropDownListMorph and the infrastructure to build one.  PluggableDropDownListMorph>>#installDropDownList is the method that builds the Morphs.   I am currently building a label with a button.  There is no drop down list.  I was thinking a Menu would work, but a list would be better.

=============== Diff against ToolBuilder-Kernel-dtl.37 ===============

Item was added:
+ PluggableWidgetSpec subclass: #PluggableDropDownListSpec
+ 	instanceVariableNames: 'listSelector selectionSelector selectionSetter'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'ToolBuilder-Kernel'!

Item was added:
+ ----- Method: PluggableDropDownListSpec>>buildWith: (in category 'building') -----
+ buildWith: builder
+ 	^builder buildPluggableDropDownList: self!

Item was added:
+ ----- Method: PluggableDropDownListSpec>>listSelector (in category 'accessing') -----
+ listSelector
+ 	"Answer the value of listSelector"
+ 
+ 	^ listSelector!

Item was added:
+ ----- Method: PluggableDropDownListSpec>>listSelector: (in category 'accessing') -----
+ listSelector: anObject
+ 	"Set the value of listSelector"
+ 
+ 	listSelector := anObject!

Item was added:
+ ----- Method: PluggableDropDownListSpec>>selectionSelector (in category 'accessing') -----
+ selectionSelector
+ 	"Answer the value of selectionSelector"
+ 
+ 	^ selectionSelector!

Item was added:
+ ----- Method: PluggableDropDownListSpec>>selectionSelector: (in category 'accessing') -----
+ selectionSelector: anObject
+ 	"Set the value of selectionSelector"
+ 
+ 	selectionSelector := anObject!

Item was added:
+ ----- Method: PluggableDropDownListSpec>>selectionSetter (in category 'accessing') -----
+ selectionSetter
+ 	"Answer the value of selectionSetter"
+ 
+ 	^ selectionSetter!

Item was added:
+ ----- Method: PluggableDropDownListSpec>>selectionSetter: (in category 'accessing') -----
+ selectionSetter: anObject
+ 	"Set the value of selectionSetter"
+ 
+ 	selectionSetter := anObject!

Item was added:
+ ----- Method: ToolBuilder>>buildPluggableDropDownList: (in category 'widgets optional') -----
+ buildPluggableDropDownList: spec
+ 	^self buildPluggableList: spec!

Item was added:
+ ----- Method: ToolBuilder>>pluggableDropDownListSpec (in category 'defaults') -----
+ pluggableDropDownListSpec
+ 	^PluggableDropDownListSpec!