'From etoys2.3 of 3 December 2007 [latest update: #1889] on 1 February 2008 at 3:27:51 pm'! "Change Set: scaleSugar-bf Date: 1 February 2008 Author: Bert Freudenberg If running in emulated Sugar (not 1200x900), enable screen scaling on startup (Trac #5507)."! !OLPCVirtualScreen class methodsFor: 'installing' stamp: 'bf 2/1/2008 15:13'! installIfNeeded "Install me only if actual screen size differs from virtual extent" self actualScreenSize = self virtualScreenExtent ifFalse: [self install]! ! !SugarLauncher methodsFor: 'running' stamp: 'bf 2/1/2008 15:13'! startUp self class allInstances do: [:ea | ea shutDown]. Current := self. parameters at: 'ACTIVITY_ID' ifPresent: [ :activityId | OLPCVirtualScreen installIfNeeded. World windowEventHandler: self. process := [self runDBusService: 'org.laptop.Activity', activityId] forkAt: Processor userInterruptPriority named: 'Sugar DBus service'. Utilities authorName: self ownerBuddy nick. ServerDirectory addServer: (SugarDatastoreDirectory mimetype: 'application/x-squeak-project' extension: '.pr') named: SugarLauncher defaultDatastoreDirName. sharedActivity := self getSharedActivityById: activityId. sharedActivity ifNotNil: [self join]. self isShared ifFalse: [ parameters at: 'OBJECT_ID' ifPresent: [:id | ^self resumeJournalEntry: id]]. Project current projectParameterAt: #sugarAutoSave put: true. self createJournalEntryFor: Project current filename: '' mimetype: ''. self isShared ifTrue: [^self]. ^self welcome: (parameters at: 'URI' ifAbsent: [''])]. self welcome: '' ! !