[squeak-dev] The Trunk: Tools-bf.376.mcz
karl ramberg
karlramberg at gmail.com
Tue Sep 6 12:40:02 UTC 2011
Cool.
Karl
On Tue, Sep 6, 2011 at 1:46 PM, <commits at source.squeak.org> wrote:
> 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!
>
>
>
-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20110906/0c0b1a61/attachment.htm
More information about the Squeak-dev
mailing list
|