The Inbox: ToolBuilder-Kernel-rww.37.mcz

A new version of ToolBuilder-Kernel was added to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-Kernel-rww.37.mcz

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

Name: ToolBuilder-Kernel-rww.37
Author: rww
Time: 11 September 2010, 4:11:56.085 pm
UUID: 2c0d2bd0-65f5-254d-bd59-bdbd9ffb407e
Ancestors: ToolBuilder-Kernel-eem.36

I added PluggableDropDownListSpec and the infrastructure to build one.

=============== Diff against ToolBuilder-Kernel-eem.36 ===============

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!