The Trunk: System-ul.231.mcz

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

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

Name: System-ul.231
Author: ul
Time: 11 January 2010, 8:59:07.738 am
UUID: 15e394ee-24cd-1647-84eb-d549a6e823e2
Ancestors: System-ul.230

- code critics

=============== Diff against System-ul.230 ===============

Item was changed:
  ----- Method: HTTPClient class>>examplePostMultipart (in category 'examples') -----
  examplePostMultipart
  "HTTPClient examplePostMultipart"
 
  | args result |
+ args := Dictionary new
- args := Dictionary new.
- args
  at: 'arg1' put: #('val1');
  at: 'arg2' put: #('val2');
  yourself.
  result := HTTPClient httpPostMultipart: 'http://www.squeaklet.com/cgi-bin/thrd.pl'  args: args.
  Transcript show: result content; cr; cr.
 
  !

Item was changed:
  ----- Method: Locale class>>initializePlatformEncodings (in category 'class initialization') -----
  initializePlatformEncodings
  "Locale initializePlatformEncodings"
 
  | platform |
+ PlatformEncodings ifNil: [ PlatformEncodings := Dictionary new ].
- PlatformEncodings isNil ifTrue: [ PlatformEncodings := Dictionary new ].
 
  platform := PlatformEncodings at: 'default' ifAbsentPut: Dictionary new.
  platform
  at: 'default' put: 'iso8859-1';
+ at: 'Win32 CE' put: 'utf-8'.
- at: 'Win32 CE' put: 'utf-8';
- yourself.
 
  platform := PlatformEncodings at: 'ja' ifAbsentPut: Dictionary new.
  platform
  at: 'default' put: 'shift-jis';
  at: 'unix' put: 'euc-jp';
+ at: 'Win32 CE' put: 'utf-8'.
- at: 'Win32 CE' put: 'utf-8';
- yourself.
 
  platform := PlatformEncodings at: 'ko' ifAbsentPut: Dictionary new.
  platform
  at: 'default' put: 'euc-kr';
+ at: 'Win32 CE' put: 'utf-8'.
- at: 'Win32 CE' put: 'utf-8';
- yourself.
 
  platform := PlatformEncodings at: 'zh' ifAbsentPut: Dictionary new.
  platform
  at: 'default' put: 'gb2312';
  at: 'unix' put: 'euc-cn';
+ at: 'Win32 CE' put: 'utf-8'!
- at: 'Win32 CE' put: 'utf-8';
- yourself.
- !

Item was changed:
  ----- Method: NaturalLanguageTranslator>>loadFromFileNamed: (in category 'private store-retrieve') -----
  loadFromFileNamed: fileNameString
  "Load translations from an external file"
 
+ FileStream readOnlyFileNamed: fileNameString do: [ :file |
+ self loadFromStream: file ].
- | stream |
- [stream := FileStream readOnlyFileNamed: fileNameString.
- self loadFromStream: stream]
- ensure: [stream close].
  self changed: #translations.
  self changed: #untranslated.
  !

Item was changed:
  ----- Method: HTTPClient class>>examplePostArgs (in category 'examples') -----
  examplePostArgs
  "HTTPClient examplePostArgs"
 
  | args result |
+ args := Dictionary new
- args := Dictionary new.
- args
  at: 'arg1' put: #('val1');
  at: 'arg2' put: #('val2');
  yourself.
  result := HTTPClient httpPostDocument: 'http://www.squeaklet.com/cgi-bin/thrd.pl [^]' args: args.
  Transcript show: result content; cr; cr.
 
  !

Item was changed:
  ----- Method: SmartRefStream>>initKnownRenames (in category 'read write') -----
  initKnownRenames
  renamed
+ at: #FlasherMorph put: #Flasher!
- at: #FlasherMorph put: #Flasher;
- yourself!