The Trunk: Multilingual-nice.99.mcz

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-nice.99.mcz

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

Name: Multilingual-nice.99
Author: nice
Time: 6 March 2010, 10:19:06.446 pm
UUID: 02c7d00b-c1f6-704f-9769-ebe89fedc0a2
Ancestors: Multilingual-nice.98

Avoid using getSystemAttribute: directly (much too cryptic)

=============== Diff against Multilingual-nice.98 ===============

Item was changed:
  ----- Method: LanguageEnvironment class>>win32VMUsesUnicode (in category 'private') -----
  win32VMUsesUnicode
+ | buildDate ind date vmHead |
+ vmHead := Smalltalk vmVersion.
- | buildDate ind date obj vmHead |
- obj :=  Smalltalk at: #SmalltalkImage ifAbsent: [Smalltalk].
- obj == Smalltalk ifFalse: [obj := obj current].
- vmHead := obj vmVersion.
  vmHead ifNil: [^ false].
+ buildDate := Smalltalk buildDate.
- buildDate := obj getSystemAttribute: 1006.
  buildDate ifNil: [^ false].
  ind := buildDate indexOfSubCollection: 'on'.
  date := Date readFromString: (buildDate copyFrom: ind+3 to: buildDate size).
  (vmHead beginsWith: 'Croquet') ifTrue: [
  ^ date >= (Date readFromString: '1 Feb 2007')
  ].
  (vmHead beginsWith: 'Squeak') ifTrue: [
  ^ date >= (Date readFromString: '5 June 2007')
  ].
  ^ false.
 
  "LanguageEnvironment win32VMUsesUnicode"!