'From etoys2.1 of 30 August 2007 [latest update: #1652] on 17 September 2007 at 6:14:20 pm'! "Change Set: thumbAlpha-bf Date: 17 September 2007 Author: Bert Freudenberg #3332: Fix alpha in preview"! !SugarLauncher methodsFor: 'datastore' stamp: 'bf 9/17/2007 18:12'! 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' -> (parameters at: 'BUNDLE_ID'). 'activity_id' -> (autoSave ifTrue: [parameters at: 'ACTIVITY_ID'] ifFalse: ['']). "temp hack for trial-3" 'title:text' -> ((aProject name beginsWith: 'Unnamed' translated) ifTrue: ['Etoys Project' translated] ifFalse: [aProject name]) 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. ! !