If I understand this correctly, it'll probably conflict with Maui's
equivalent gesture, and only for the equivalent of dragging a splitter
bar all the way up to the top..?  (really, is it just substituting
that one DnD operation for another?)  Except it opens a new window,
too (which I'll have to later close?).  Maybe I'm missing something,
but it seems heavy and laborious for only what it does.  Hopefully the
hook can be customized..


On Thu, Mar 4, 2021 at 8:47 AM Marcel Taeumel <marcel.taeumel at hpi.de> wrote:
>
> Here is an example:
>
>
> Am 04.03.2021 15:38:47 schrieb commits at source.squeak.org <commits at source.squeak.org>:
>
> Marcel Taeumel uploaded a new version of Tools to project The Trunk:
> http://source.squeak.org/trunk/Tools-mt.1029.mcz
>
> ==================== Summary ====================
>
> Name: Tools-mt.1029
> Author: mt
> Time: 4 March 2021, 3:38:36.350661 pm
> UUID: bef0c471-6ff1-774d-860e-8958e1aa508b
> Ancestors: Tools-mt.1028
>
> Enable source-code dragging through a browser's message list to be dropped into the world to open a compact code editor.
>
> Complements Tools-mt.1028, ToolBuilder-Kernel-mt.139, ToolBuilder-Morphic-mt.274, and Morphic-mt.1733.
>
> =============== Diff against Tools-mt.1028 ===============
>
> Item was changed:
> ----- Method: Browser>>buildMessageListWith: (in category 'toolbuilder') -----
> buildMessageListWith: builder
> | listSpec |
> listSpec := builder pluggableListSpec new.
> listSpec
> model: self;
> list: #messageList;
> getIndex: #messageListIndex;
> setIndex: #messageListIndex:;
> icon: #messageIconAt:;
> helpItem: #messageHelpAt:;
> menu: #messageListMenu:shifted:;
> keyPress: #messageListKey:from:.
> + SystemBrowser browseWithDragNDrop ifTrue: [
> + listSpec
> + dragItem: #dragFromMessageList:;
> + dragType: #dragTypeForMessageListAt:].
> - SystemBrowser browseWithDragNDrop
> - ifTrue:[listSpec dragItem: #dragFromMessageList:].
> ^listSpec
> !
>
> Item was added:
> + ----- Method: Browser>>dragTypeForMessageListAt: (in category 'drag and drop') -----
> + dragTypeForMessageListAt: index
> +
> + ^ #sourceCode!
>
>
>