[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