A new version of ToolBuilder-Kernel was added to project The Inbox:
http://source.squeak.org/inbox/ToolBuilder-Kernel-fbs.34.mcz==================== Summary ====================
Name: ToolBuilder-Kernel-fbs.34
Author: fbs
Time: 2 May 2010, 8:53:53.49 pm
UUID: 9528ee05-1809-424c-b546-9b5b3346a5a8
Ancestors: ToolBuilder-Kernel-MAD.33
Add #color to the PluggableListSpec.
PluggableButtonSpec and PluggableTextSpec already have #color, so #color and #color: and the instvar should be pulled up into PluggableWidgetSpec.
=============== Diff against ToolBuilder-Kernel-MAD.33 ===============
Item was changed:
PluggableWidgetSpec subclass: #PluggableListSpec
+ instanceVariableNames: 'color list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview'
- instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview'
classVariableNames: ''
poolDictionaries: ''
category: 'ToolBuilder-Kernel'!
!PluggableListSpec commentStamp: 'ar 7/15/2005 11:54' prior: 0!
A single selection list element.
Instance variables:
list <Symbol> The selector to retrieve the list elements.
getIndex <Symbol> The selector to retrieve the list selection index.
setIndex <Symbol> The selector to set the list selection index.
getSelected <Symbol> The selector to retrieve the list selection.
setSelected <Symbol> The selector to set the list selection.
menu <Symbol> The selector to offer (to retrieve?) the context menu.
keyPress <Symbol> The selector to invoke for handling keyboard shortcuts.
autoDeselect <Boolean> Whether the list should allow automatic deselection or not.
dragItem <Symbol> Selector to initiate a drag action on an item
dropItem <Symbol> Selector to initiate a drop action of an item
dropAccept <Symbol> Selector to determine whether a drop would be accepted!
Item was added:
+ ----- Method: PluggableListSpec>>color (in category 'accessing') -----
+ color
+ "Answer the selector for retrieving the background color"
+ ^color!
Item was added:
+ ----- Method: PluggableListSpec>>color: (in category 'accessing') -----
+ color: aSymbol
+ "Indicate the selector for retrieving the background color"
+ color := aSymbol.!