'From Squeakland-OLPC of 15 December 2008 [latest update: #2177] on 7 April 2009 at 7:14:27 pm'!
"Change Set:		fixImmWin32-ka
Date:			7 April 2009
Author:			Kazuhiro Abe

setting correct CompositionWindowManager for HandMorph at startUp.
correcting prefereredKeyboardPosition by scale and offset of virtual screen.
"!


!ImmWin32 methodsFor: 'all' stamp: 'ka 4/7/2009 19:12'!
keyboardFocusForAMorph: aMorph 
	| left top pos |
	aMorph
		ifNil: [^ self].
	[pos := aMorph prefereredKeyboardPosition.
	Display isVirtualScreen
		ifTrue: [pos := (pos / Display displayScale + Display displayOffset) truncated].
	left := (pos x min: Display width max: 0) asInteger.
	top := (pos y min: Display height max: 0) asInteger.
	self setCompositionWindowPositionX: left y: top]
		on: Error
		do: [:ex | ex]! !


!LanguageEnvironment class methodsFor: 'class initialization' stamp: 'ka 4/7/2009 18:38'!
startUp
	self clearDefault.
	Clipboard startUp.
	self setUsePangoFlag.
	HandMorph startUp.! !