'From etoys4.0 of 9 October 2008 [latest update: #2336] on 23 November 2009 at 2:54:32 pm'! "Change Set: smarterSetupVirtDisp-yo Date: 20 November 2009 Author: Yoshiki Ohshima Disable virtual display when running in Sugar at 1200x900 pixels. Postscript checks this immediately."! !OLPCVirtualScreen class methodsFor: 'installing' stamp: 'yo 11/20/2009 11:11'! setupIfNeeded self actualScreenSize = self virtualScreenExtent ifFalse: [ (Display class ~= self or: [Display extent ~= self virtualScreenExtent]) ifTrue: [ self install]] ifTrue: [Display class = self ifTrue: [self unInstall]]! ! !SugarLauncher methodsFor: 'running' stamp: 'yo 11/20/2009 11:15'! startUp self class allInstances do: [:ea | ea shutDown]. Current := self. parameters at: 'ACTIVITY_ID' ifPresent: [ :activityId | OLPCVirtualScreen setupIfNeeded. World windowEventHandler: self. DBus sessionBus export: SugarEtoysActivity new on: 'org.laptop.Activity', activityId at: '/org/laptop/Activity/', activityId. Utilities authorName: self presence getOwner nick. ServerDirectory addServer: (SugarDatastoreDirectory mimetype: 'application/x-squeak-project' extension: '.pr') named: SugarLauncher defaultDatastoreDirName. self joinSharedActivity. self isShared ifFalse: [ parameters at: 'OBJECT_ID' ifPresent: [:id | ^self resumeJournalEntry: id]]. self isShared ifTrue: [^self]. ^self welcome: (parameters at: 'URI' ifAbsent: [''])]. self welcome: '' ! ! OLPCVirtualScreen class removeSelector: #installIfNeeded! "Postscript:" SugarLauncher isRunningInSugar ifTrue: [OLPCVirtualScreen setupIfNeeded].!