The Trunk: Tools-ul.662.mcz

Levente Uzonyi uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-ul.662.mcz

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

Name: Tools-ul.662
Author: ul
Time: 9 January 2016, 5:14:35.787432 pm
UUID: 3972f226-5c3e-4479-bbac-cea2f7e30e3b
Ancestors: Tools-ul.661

Improved method to method category drops in Browser: moving methods from classes related by inheritance or by being meta-non-meta pairs won't have to be confirmed any more.

=============== Diff against Tools-ul.661 ===============

Item was changed:
  ----- Method: Browser>>dropOnMessageCategories:at: (in category 'drag and drop') -----
  dropOnMessageCategories: method at: index
 
+ | sourceClass destinationClass category copy |
- | dstClass category copy |
  copy := Sensor shiftPressed.
  (method isKindOf: CompiledMethod)
  ifFalse:[^self inform: 'Can only drop methods'].
+ sourceClass := method methodClass.
+ destinationClass := self selectedClassOrMetaClass.
+ sourceClass == destinationClass ifTrue:[
- dstClass := self selectedClassOrMetaClass.
- (dstClass == method methodClass) ifTrue:[
  category := self messageCategoryList at: index.
  category = ClassOrganizer allCategory ifTrue: [^false].
+ destinationClass organization classify: method selector  under: category suppressIfDefault: false logged: true.
+ ^true ].
+ (copy not and: [
+ (destinationClass inheritsFrom: sourceClass)
+ or: [ (sourceClass inheritsFrom: destinationClass)
+ or: [ sourceClass theNonMetaClass == destinationClass theNonMetaClass ] ] ])
+ ifFalse: [
+ (self confirm: (
+ 'Classes "{1}" and "{2}" are unrelated.{3}Are you sure you want to move this method?'
+ format: { sourceClass. destinationClass. Character cr }))
+ ifFalse: [ ^false ] ].
+ destinationClass
- dstClass organization classify: method selector  under: category suppressIfDefault: false logged: true.
- ^true].
- copy ifFalse: [
- (self confirm: (
- 'Classes {1} and {2} are unrelated.{3}Are you sure you want to move this method?'
- format: { method methodClass. dstClass. Character cr }))
- ifFalse: [ ^false ] ].
- dstClass
  compile: method getSource
  classified: (self messageCategoryList at: index)
  withStamp: method timeStamp
  notifying: nil.
  copy ifFalse: [
+ sourceClass removeSelector: method selector ].
- method methodClass removeSelector: method selector ].
  ^true!