The Trunk: Compiler-ar.133.mcz

Andreas Raab uploaded a new version of Compiler to project The Trunk:
http://source.squeak.org/trunk/Compiler-ar.133.mcz

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

Name: Compiler-ar.133
Author: ar
Time: 5 March 2010, 8:50:43.246 pm
UUID: 58d808cd-29dd-0e42-959e-751b789cc767
Ancestors: Compiler-ar.132

Avoid dictionary protocol in Smalltalk.

=============== Diff against Compiler-ar.132 ===============

Item was changed:
  ----- Method: Parser>>defineClass: (in category 'error correction') -----
  defineClass: className
  "prompts the user to define a new class,  
  asks for it's category, and lets the users edit further  
  the definition"
  | sym cat def d2 |
  sym := className asSymbol.
  cat := UIManager default request: 'Enter class category : ' initialAnswer: self encoder classEncoding category.
  cat
  ifEmpty: [cat := 'Unknown'].
  def := 'Object subclass: #' , sym , '
  instanceVariableNames: ''''
  classVariableNames: ''''
  poolDictionaries: ''''
  category: ''' , cat , ''''.
  d2 := UIManager default request: 'Edit class definition : ' initialAnswer: def.
  d2
  ifEmpty: [d2 := def].
  Compiler evaluate: d2.
  ^ encoder
+ global: (Smalltalk globals associationAt: sym)
- global: (Smalltalk associationAt: sym)
  name: sym!