Karl Ramberg uploaded a new version of Tools to project Etoys: http://source.squeak.org/etoys/Tools-kfr.10.mcz
==================== Summary ====================
Name: Tools-kfr.10 Author: kfr Time: 11 January 2012, 11:28:47 am UUID: 78f7f7ec-7b36-b940-9d0b-58f69a0e2fe6 Ancestors: Tools-kfr..9
http://tracker.squeakland.org/browse/SQ-984
=============== Diff against Tools-kfr..9 ===============
Item was changed: ----- Method: FileContentsBrowser>>infoViewContents (in category 'infoView') ----- infoViewContents "Answer the string to show in the info view"
| theClass stamp exists | editSelection == #newClass ifTrue: [^ self packageInfo: self selectedPackage]. self selectedClass isNil ifTrue: [^ '']. theClass _ Smalltalk at: self selectedClass name asSymbol ifAbsent: []. editSelection == #editClass ifTrue: [^ theClass notNil ifTrue: ['Class exists already in the system' translated] ifFalse: ['New class' translated]]. editSelection == #editMessage ifFalse: [^ '']. (theClass notNil and: [self metaClassIndicated]) ifTrue: [theClass _ theClass class].
stamp _ self selectedClassOrMetaClass stampAt: self selectedMessageName. exists _ theClass notNil and: [theClass includesSelector: self selectedMessageName]. ^ stamp = 'methodWasRemoved' ifTrue: [exists ifTrue: + ['Existing method removed by this change-set' translated] - ['Existing method removed by this change-set' translated] ifFalse: ['Removal request for a method that is not present in this image' translated]] ifFalse: [stamp, ' · ', (exists ifTrue: ['Method already exists' translated , self extraInfo] ifFalse: ['New method' translated])]!
etoys-dev@lists.squeakfoundation.org