'From etoys3.0 of 24 February 2008 [latest update: #2136] on 6 September 2008 at 10:02:09 pm'! "Change Set: vd2-yo Date: 6 September 2008 Author: Yoshiki Ohshima Allow slight lax of screen size difference."! !Project methodsFor: 'initialization' stamp: 'yo 9/6/2008 22:02'! installVirtualDisplayIfNeededFor: ext | actual allowance | allowance := 50. HTTPClient isRunningInBrowser ifFalse: [^ self]. actual := Display class actualScreenSize. ((ext x > (actual x + allowance)) or: [ext y > (actual y + allowance)]) ifTrue: [ OLPCVirtualScreen virtualScreenExtent: ext. OLPCVirtualScreen install. ^ self ]. ((ext x <= (actual x - allowance)) and: [ext y <= (actual y - allowance)]) ifTrue: [ OLPCVirtualScreen virtualScreenExtent: ext. OLPCVirtualScreen install. Display zoomOut: true. ^ self. ]. OLPCVirtualScreen virtualScreenExtent: nil. OLPCVirtualScreen unInstall. ! !