The Trunk: Tools-pre.848.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: Tools-pre.848.mcz

commits-2
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) !