Etoys: Tools-kfr.10.mcz

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 mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev