[Pkg] The Trunk: Multilingual-nice.99.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Mar 6 21:19:28 UTC 2010


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"!



More information about the Packages mailing list