'From etoys3.0 of 19 February 2008 [latest update: #1902] on 21 February 2008 at 1:09:56 pm'! "Change Set: idParams-bf Date: 21 February 2008 Author: Bert Freudenberg Refactor activity id and bundle id parameters"! !SugarLauncher methodsFor: 'commands' stamp: 'bf 2/20/2008 16:51'! share sharedActivity ifNotNil: [^self]. sharedActivity := self shareActivityId: self activityId bundleId: self bundleId name: (self titleFromProject: Project current) squeakToUtf8 properties: Dictionary new. "due to bug 4660 we can't pass properties directly" self enableSharedActivitySignals. self setSharedActivityProperties: ({'private' -> false} as: Dictionary).! ! !SugarLauncher methodsFor: 'accessing' stamp: 'bf 2/20/2008 16:50'! activityId ^parameters at: 'ACTIVITY_ID'! ! !SugarLauncher methodsFor: 'accessing' stamp: 'bf 2/20/2008 16:47'! bundleId ^parameters at: 'BUNDLE_ID' ifAbsent: ['org.squeak']! ! !SugarLauncher methodsFor: 'dbus' stamp: 'bf 2/20/2008 16:48'! runDBusService: aString | msg error serviceName | serviceName := aString. dbus := DBusConnection connectToSessionBus. dbus registerName: serviceName. dbus registerSemaphore: Semaphore new. [[ [dbus dataRemains] whileTrue: [ (msg := dbus popMessage) ifNotNil: [ ((self dispatchDBusMessage: msg) not and: [msg isMethodCall]) ifTrue: [ error := DBusMessageError newFor: msg name: (DBusMessageError dbusErrorUnknownMethod) withMessage: self bundleId, ' does not understand ', msg selector, '()'. error ifNotNil: [dbus sendMessage: error]]. ]]. dbus readSemaphore wait. ] repeat] ensure: [[dbus releaseName: serviceName] ifError: []] ! ! !SugarLauncher methodsFor: 'datastore' stamp: 'bf 2/20/2008 16:50'! propertiesFrom: aProject | preview autoSave | preview := [(Base64MimeConverter mimeEncode: ( ByteArray streamContents: [:s | PNGReadWriter putForm: (aProject thumbnail asFormOfDepth: 16) onStream: s]) readStream) contents] ifError: ['']. autoSave := aProject projectParameterAt: #sugarAutoSave ifAbsent: [true]. ^ { 'activity' -> self bundleId. 'activity_id' -> (autoSave ifTrue: [self activityId] ifFalse: ['']). "temp hack for trial-3" 'title:text' -> (self titleFromProject: aProject) squeakToUtf8. 'title_set_by_user' -> (aProject currentVersionNumber>0 ifTrue: ['1'] ifFalse: ['0']). 'keep' -> (autoSave ifTrue: ['0'] ifFalse: ['1']). 'mtime' -> (DateAndTime now asString first: 19). 'preview' -> preview. 'icon-color' -> self ownerBuddy colors. } as: Dictionary. ! !