[Pkg] The Trunk: Tools-mt.849.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jun 24 06:50:48 UTC 2019
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)!
More information about the Packages
mailing list