[Pkg] The Trunk: System-ul.231.mcz

[commits at source.squeak.org]

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!