The Trunk: Tools-ul.147.mcz

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

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

Name: Tools-ul.147
Author: ul
Time: 18 December 2009, 5:51:27 am
UUID: b3fe43dd-6bc8-a946-bab7-7c83bbb0bdd5
Ancestors: Tools-ul.146

- allow moving methods between different classes by drag and drop

=============== Diff against Tools-ul.146 ===============

Item was changed:
  ----- Method: Browser>>dropOnMessageCategories:at: (in category 'drag and drop') -----
  dropOnMessageCategories: method at: index
  | dstClass category |
  (method isKindOf: CompiledMethod)
  ifFalse:[^self inform: 'Can only drop methods'].
  dstClass := self selectedClassOrMetaClass.
  (dstClass == method methodClass) ifTrue:[
  category := self messageCategoryList at: index.
  dstClass organization classify: method selector  under: category.
  ^true].
+ (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.
+ method methodClass removeSelector: method selector.
+ ^true!
- ^self inform: 'Cannot move methods between unrelated classes'
- !