[etoys-dev] Etoys: Tools-kfr.10.mcz

[commits at source.squeak.org]

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])]!