'From etoys2.2 of 1 October 2007 [latest update: #1713] on 17 October 2007 at 8:34:25 am'!
"Change Set:		UnicodeInput2-yo
Date:			17 October 2007
Author:			Yoshiki Ohshima

Fix the way it checks the VM version."!


!LanguageEnvironment class methodsFor: 'private' stamp: 'yo 10/17/2007 08:33'!
win32VMUsesUnicode
	| buildDate ind date obj vmHead |
	obj :=  Smalltalk at: #SmalltalkImage ifAbsent: [Smalltalk].
	obj == Smalltalk ifFalse: [obj := obj current].
	vmHead := obj getSystemAttribute: 1004.
	vmHead ifNil: [^ false].
	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"! !