The Trunk: Tools-ul.275.mcz

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

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

Name: Tools-ul.275
Author: ul
Time: 2 November 2010, 1:22:22.534 am
UUID: d003e353-6573-484e-b6f6-8e337da6d123
Ancestors: Tools-ul.274

- fix: copy class instance variables and class comments when creating a copy of a class

=============== Diff against Tools-ul.274 ===============

Item was changed:
  ----- Method: Browser>>copyClass (in category 'class functions') -----
  copyClass
+ | originalClass originalName copysName |
- | originalName copysName oldDefinition newDefinition |
  classListIndex = 0 ifTrue: [^ self].
  self okToChange ifFalse: [^ self].
+ originalClass := self selectedClass.
+ originalName := originalClass name.
- originalName := self selectedClass name.
  copysName := self request: 'Please type new class name' initialAnswer: originalName.
  copysName = '' ifTrue: [^ self].  " Cancel returns '' "
  copysName := copysName asSymbol.
  copysName = originalName ifTrue: [^ self].
  (Smalltalk hasClassNamed: copysName)
  ifTrue: [^ self error: copysName , ' already exists'].
+ Cursor wait showWhile: [
+ | newDefinition newMetaDefinition newClass |
+ newDefinition := originalClass definition
+ copyReplaceAll: originalName printString
+ with: copysName printString.
+ newClass := Compiler evaluate: newDefinition logged: true.
+ newMetaDefinition := originalClass class definition
+ copyReplaceAll: originalClass class name
+ with: newClass class name.
+ Compiler evaluate: newMetaDefinition logged: true.
+ newClass copyAllCategoriesFrom: originalClass.
+ newClass class copyAllCategoriesFrom: originalClass class.
+ originalClass hasComment ifTrue: [
+ newClass comment: originalClass comment ] ].
- oldDefinition := self selectedClass definition.
- newDefinition := oldDefinition copyReplaceAll: '#' , originalName asString with: '#' , copysName asString.
- Cursor wait
- showWhile: [| class |
- class := Compiler evaluate: newDefinition logged: true.
- class copyAllCategoriesFrom: (Smalltalk at: originalName).
- class class copyAllCategoriesFrom: (Smalltalk at: originalName) class].
  self classListIndex: 0.
  self changed: #classList!