The Trunk: Tools-mt.674.mcz

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

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

Name: Tools-mt.674
Author: mt
Time: 17 February 2016, 8:28:01.820602 pm
UUID: 850d9c15-4a2c-4b60-b930-1e2dbe9613e1
Ancestors: Tools-mt.673

Let inspectors only accept drops from other inspectors.

=============== Diff against Tools-mt.673 ===============

Item was changed:
  ----- Method: Inspector>>buildFieldListWith: (in category 'toolbuilder') -----
  buildFieldListWith: builder
 
  | listSpec |
  listSpec := builder pluggableListSpec new.
  listSpec
  model: self;
  list: #fieldList;
  getIndex: #selectionIndex;
  setIndex: #toggleIndex:;
  menu: #fieldListMenu:;
  dragItem: #dragFromFieldList:;
  dropItem: #dropOnFieldList:at:;
+ dropAccept: #wantsDropOnFieldList:type:source:;
  keyPress: #inspectorKey:from:.
  ^listSpec!

Item was added:
+ ----- Method: Inspector>>wantsDropOnFieldList:type:source: (in category 'drag-drop') -----
+ wantsDropOnFieldList: anObject type: type source: source
+
+ ^ (source respondsTo: #model) and: [source model isKindOf: Inspector]!