[squeak-dev] The Trunk: Tools-ul.147.mcz

commits at source.squeak.org commits at source.squeak.org
Fri Dec 18 17:02:56 UTC 2009

Levente Uzonyi uploaded a new version of Tools to project The Trunk:

==================== 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.
+ 	(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'
- !

More information about the Squeak-dev mailing list