Marcel Taeumel uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-mt.849.mcz

==================== Summary ====================

Name: Tools-mt.849
Author: mt
Time: 24 June 2019, 8:50:48.683225 am
UUID: 7766cf03-4d55-2c4d-9184-cdafee38af7a
Ancestors: Tools-pre.848

Expand object dragging in ChangeSorter to make also classes and messages draggable. Does not preserve #drag: because it was added only recently. Please re-open your ChangeSorter windows.

Works also in DualChangeSorter.

=============== Diff against Tools-pre.848 ===============

Item was changed:
  ----- Method: ChangeSorter>>buildWith:in:rect: (in category 'toolbuilder') -----
  buildWith: builder in: window rect: rect
  	| csListHeight msgListHeight csMsgListHeight listSpec textSpec |
  	contents := ''.
  	csListHeight := 0.25.
  	msgListHeight := 0.25.
  	csMsgListHeight := csListHeight + msgListHeight.
  
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
  		list: #changeSetList; 
  		getSelected: #currentCngSet; 
  		setSelected: #showChangeSetNamed:; 
  		menu: #changeSetMenu:shifted:; 
  		keyPress: #changeSetListKey:from:;
+ 		dragItem: #dragChangeSet:;
- 		dragItem: #drag:;
  		autoDeselect: false;
  		frame: (((0 at 0 extent: 0.5 at csListHeight)
  			scaleBy: rect extent) translateBy: rect origin).
  	window children add: listSpec.
  
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
  		list: #classList; 
  		getSelected: #currentClassName; 
  		setSelected: #currentClassName:; 
  		menu: #classListMenu:shifted:; 
  		keyPress: #classListKey:from:;
+ 		dragItem: #dragClass:;
  		frame: (((0.5 at 0 extent: 0.5 at csListHeight)
  			scaleBy: rect extent) translateBy: rect origin).
  	window children add: listSpec.
  
  	listSpec := builder pluggableListSpec new.
  	listSpec 
  		model: self;
  		list: #messageList; 
  		getSelected: #currentSelector;
  		setSelected: #currentSelector:; 
  		menu: #messageMenu:shifted:; 
  		keyPress: #messageListKey:from:;
+ 		dragItem: #dragMessage:;
  		frame: (((0 at csListHeight extent: 1 at msgListHeight)
  			scaleBy: rect extent) translateBy: rect origin).
  	window children add: listSpec.
  
  	textSpec := builder pluggableTextSpec new.
  	textSpec 
  		model: self;
  		getText: #contents; 
  		setText: #contents:notifying:; 
  		selection: #contentsSelection; 
  		menu: #codePaneMenu:shifted:;
  		frame: (((0 at csMsgListHeight corner: 1 at 1) scaleBy: rect extent) translateBy: rect origin).
  	window children add: textSpec.
  	^window!

Item was removed:
- ----- Method: ChangeSorter>>drag: (in category 'dropping/grabbing') -----
- drag: anIndex
- 
- 	anIndex = 0 ifTrue: [^ nil].
- 	^ ChangesOrganizer changeSetNamed: (self changeSetList at: anIndex) !

Item was added:
+ ----- Method: ChangeSorter>>dragChangeSet: (in category 'dragging') -----
+ dragChangeSet: anIndex
+ 
+ 	anIndex = 0 ifTrue: [^ nil].
+ 	^ ChangesOrganizer changeSetNamed: (self changeSetList at: anIndex) !

Item was added:
+ ----- Method: ChangeSorter>>dragClass: (in category 'dragging') -----
+ dragClass: anIndex
+ 
+ 	anIndex = 0 ifTrue: [^ nil].
+ 	^ (Smalltalk classNamed: (self basicClassList at: anIndex)) classReference!

Item was added:
+ ----- Method: ChangeSorter>>dragMessage: (in category 'dragging') -----
+ dragMessage: anIndex
+ 
+ 	anIndex = 0 ifTrue: [^ nil].
+ 	^ MethodReference
+ 		class: self selectedClassOrMetaClass
+ 		selector: (self basicMessageList at: anIndex)!