[squeak-dev] The Trunk: Tools-eem.458.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Mar 20 19:37:46 UTC 2013
Eliot Miranda uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-eem.458.mcz
==================== Summary ====================
Name: Tools-eem.458
Author: eem
Time: 20 March 2013, 12:36:28.93 pm
UUID: 92bec064-c457-41af-b8c3-86f7daafbbb9
Ancestors: Tools-eem.457
In CHangeSorter, after forgetting a class, select at the
same point in the class list, which helps if e.g. doing
something repetitive such as moving a number of classes
to another change set.
=============== Diff against Tools-eem.457 ===============
Item was changed:
----- Method: ChangeSorter>>forgetClass (in category 'class list') -----
forgetClass
+ "Remove all mention of this class from the changeSet.
+ After forgetting, select at the same point in the class
+ list, which helps if e.g. doing something repetitive such
+ as moving a number of classes to the other side."
+ | index classList |
- "Remove all mention of this class from the changeSet"
-
self okToChange ifFalse: [^ self].
+ currentClassName ifNil: [^self].
+ index := self classList indexOf: currentClassName.
+ myChangeSet removeClassChanges: (self withoutItemAnnotation: currentClassName).
+ currentSelector := nil.
+ classList := self classList.
+ currentClassName := classList isEmpty ifFalse:
+ [classList at: (index min: classList size)].
+ self showChangeSet: myChangeSet!
- currentClassName ifNotNil: [
- myChangeSet removeClassChanges: (self withoutItemAnnotation: currentClassName).
- currentClassName := nil.
- currentSelector := nil.
- self showChangeSet: myChangeSet].
- !
More information about the Squeak-dev
mailing list
|