[Pkg] The Trunk: Tools-ul.277.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Nov 8 02:42:07 UTC 2010


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

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

Name: Tools-ul.277
Author: ul
Time: 8 November 2010, 3:41:44.565 am
UUID: 21959a81-fb7f-7942-af9d-26b4f38b869d
Ancestors: Tools-ul.276

- copy methods instead of moving when they're dragged to another Browser's method categories and shift is pressed. Don't ask questions in this case.

=============== Diff against Tools-ul.276 ===============

Item was changed:
  ----- Method: Browser>>dropOnMessageCategories:at: (in category 'drag and drop') -----
  dropOnMessageCategories: method at: index
+ 
+ 	| dstClass category copy |
+ 	copy := Sensor shiftPressed.
- 	| 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].
+ 	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 ] ].
- 	(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: [
+ 		method methodClass removeSelector: method selector ].
- 	method methodClass removeSelector: method selector.
  	^true!



More information about the Packages mailing list