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!


-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210304/3f499dfd/attachment-0001.html>
-------------- next part --------------
A non-text attachment was scrubbed...
Name: image.png
Type: image/png
Size: 412422 bytes
Desc: not available
URL: <http://lists.squeakfoundation.org/pipermail/squeak-dev/attachments/20210304/3f499dfd/attachment-0001.png>