The Trunk: ToolBuilder-Kernel-mt.94.mcz

Marcel Taeumel uploaded a new version of ToolBuilder-Kernel to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Kernel-mt.94.mcz

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

Name: ToolBuilder-Kernel-mt.94
Author: mt
Time: 4 November 2015, 6:50:15.546 pm
UUID: 58fe2a54-1973-41df-84a2-12393598991a
Ancestors: ToolBuilder-Kernel-mt.93

Refactors and cleans-up drag-and-drop mechanism used by pluggable lists and trees.

=============== Diff against ToolBuilder-Kernel-mt.93 ===============

Item was changed:
  PluggableWidgetSpec subclass: #PluggableListSpec
+ instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy dragStarted'
- instanceVariableNames: 'list getIndex setIndex getSelected setSelected menu keyPress autoDeselect dragItem dropItem dropAccept doubleClick listSize listItem keystrokePreview icon vScrollBarPolicy hScrollBarPolicy'
  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>>dragStarted (in category 'accessing - drag and drop') -----
+ dragStarted
+ ^ dragStarted!

Item was added:
+ ----- Method: PluggableListSpec>>dragStarted: (in category 'accessing - drag and drop') -----
+ dragStarted: symbol
+ dragStarted := symbol.!

Item was changed:
  PluggableWidgetSpec subclass: #PluggableTreeSpec
+ instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress dropItem dropAccept autoDeselect dragItem nodeClass columns vScrollBarPolicy hScrollBarPolicy dragStarted'
- instanceVariableNames: 'roots getSelectedPath setSelected getSelected setSelectedParent getChildren hasChildren label icon unusedVar menu keyPress dropItem dropAccept autoDeselect dragItem nodeClass columns vScrollBarPolicy hScrollBarPolicy'
  classVariableNames: ''
  poolDictionaries: ''
  category: 'ToolBuilder-Kernel'!
 
  !PluggableTreeSpec commentStamp: 'mvdg 3/21/2008 20:59' prior: 0!
  A pluggable tree widget. PluggableTrees are slightly different from lists in such that they ALWAYS store the actual objects and use the label selector to query for the label of the item. PluggableTrees also behave somewhat differently in such that they do not have a "getSelected" message but only a getSelectedPath message. The difference is that getSelectedPath is used to indicate by the model that the tree should select the appropriate path. This allows disambiguation of items. Because of this, implementations of PluggableTrees must always set their internal selection directly, e.g., rather than sending the model a setSelected message and wait for an update of the #getSelected the implementation must set the selection before sending the #setSelected message. If a client doesn't want this, it can always just signal a change of getSelectedPath to revert to whatever is needed.
 
  Instance variables:
  roots <Symbol> The message to retrieve the roots of the tree.
  getSelectedPath <Symbol> The message to retrieve the selected path in the tree.
  setSelected <Symbol> The message to set the selected item in the tree.
  getChildren <Symbol> The message to retrieve the children of an item
  hasChildren <Symbol> The message to query for children of an item
  label <Symbol> The message to query for the label of an item.
  icon <Symbol> The message to query for the icon of an item.
  help <Symbol> The message to query for the help of an item.
  menu <Symbol> The message to query for the tree's menu
  keyPress <Symbol> The message to process a keystroke.
  wantsDrop <Symbol> The message to query whether a drop might be accepted.
  dropItem <Symbol> The message to drop an item.
  enableDrag <Boolean> Enable dragging from this tree.
  autoDeselect <Boolean> Whether the tree should allow automatic deselection or not.
  unusedVar (unused) This variable is a placeholder to fix problems with loading packages in 3.10.!

Item was added:
+ ----- Method: PluggableTreeSpec>>dragStarted (in category 'accessing - drag and drop') -----
+ dragStarted
+ ^ dragStarted!

Item was added:
+ ----- Method: PluggableTreeSpec>>dragStarted: (in category 'accessing - drag and drop') -----
+ dragStarted: symbol
+ dragStarted := symbol.!