Patrick Rein uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-pre.848.mcz
==================== Summary ====================
Name: Tools-pre.848 Author: pre Time: 11 June 2019, 4:52:22.536016 pm UUID: 75c0a180-4085-1d40-818c-efa53514ce40 Ancestors: Tools-nice.847
Adds drag support to change sorters
=============== Diff against Tools-nice.847 ===============
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: #drag:; autoDeselect: false; frame: (((0@0 extent: 0.5@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:; frame: (((0.5@0 extent: 0.5@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:; frame: (((0@csListHeight extent: 1@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@csMsgListHeight corner: 1@1) scaleBy: rect extent) translateBy: rect origin). window children add: textSpec. ^window!
Item was added: + ----- Method: ChangeSorter>>drag: (in category 'dropping/grabbing') ----- + drag: anIndex + + anIndex = 0 ifTrue: [^ nil]. + ^ ChangesOrganizer changeSetNamed: (self changeSetList at: anIndex) !
packages@lists.squeakfoundation.org