[Pkg] The Trunk: Tools-bf.376.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Sep 6 11:46:41 UTC 2011
Bert Freudenberg uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-bf.376.mcz
==================== Summary ====================
Name: Tools-bf.376
Author: bf
Time: 6 September 2011, 1:45:41.088 pm
UUID: 77c9546c-de50-4c08-b937-e24fefd0cb6f
Ancestors: Tools-cmm.375
Enable drag/drop between inspectors: drag a field onto another field to replace the object in it.
=============== Diff against Tools-cmm.375 ===============
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:;
keyPress: #inspectorKey:from:.
^listSpec!
Item was added:
+ ----- Method: Inspector>>dragFromFieldList: (in category 'drag-drop') -----
+ dragFromFieldList: index
+ selectionIndex = index ifFalse: [self toggleIndex: index].
+ ^self selection!
Item was added:
+ ----- Method: Inspector>>dropOnFieldList:at: (in category 'drag-drop') -----
+ dropOnFieldList: anObject at: index
+ selectionIndex = index ifFalse: [self toggleIndex: index].
+ self replaceSelectionValue: anObject.
+ self changed: #contents.
+ ^ true!
More information about the Packages
mailing list