'From etoys4.0 of 9 October 2008 [latest update: #2203] on 12 January 2009 at 9:39:30 pm'! "Change Set: virtDisplayJan12-yo Date: 12 January 2009 Author: Yoshiki Ohshima Enable it a bit more eagerly."! !Project methodsFor: 'initialization' stamp: 'yo 1/12/2009 21:38'! installVirtualDisplayIfNeededFor: ext | actual allowance | allowance := 50. actual := Display class actualScreenSize. actual = OLPCVirtualScreen defaultVirtualScreenExtent ifTrue: [^ self]. ((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. ! !