The Trunk: ToolBuilder-Kernel-MAD.33.mcz

Chris Muller uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-MAD.33.mcz

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

Name: ToolBuilder-Kernel-MAD.33
Author: MAD
Time: 15 March 2010, 11:50:52.079 am
UUID: d44bfd93-b4c4-6148-98d4-222ef74b9903
Ancestors: ToolBuilder-Kernel-cmm.32

added support for keystroke preview for lists

=============== Diff against ToolBuilder-Kernel-cmm.32 ===============

Item was changed:
  PluggableWidgetSpec subclass: #PluggableListSpec
+ instanceVariableNames: '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'
  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>>keystrokePreview: (in category 'accessing') -----
+ keystrokePreview: aSymbol
+ "The selector to determine whether to allow the model a preview of keystrokes"
+ keystrokePreview := aSymbol.!

Item was added:
+ ----- Method: PluggableListSpec>>keystrokePreview (in category 'accessing') -----
+ keystrokePreview
+ "Answer the selector to determine whether to allow the model a preview of keystrokes"
+ ^ keystrokePreview!