[ENH]Re: 3.0 final image available for test

Karl Ramberg karl.ramberg at chello.se
Sun Feb 18 14:03:22 UTC 2001



Dan Ingalls wrote:

> Mac users can execute...
>         FileDirectory default
>                 setMacFileNamed: 'Squeak3.0.image'
>                 type: 'STIM'
>                 creator: 'FAST'.
> ...after unpacking, so as to be able to run the image.

I think the type is 'STim'

I added this to the FileList, if the filename ends with .image
it sets the type and creator appropriate. 

Karl
-------------- next part --------------
'From Squeak3.1alpha of 5 February 2001 [latest update: #3636] on 18 February 2001 at 2:59:36 pm'!

!FileList methodsFor: 'file list menu' stamp: 'kfr 2/18/2001 14:57'!
saveGZipContents
	"Save the contents of a gzipped file"
	| zipped buffer unzipped newName |
	newName _ fileName copyUpToLast: FileDirectory extensionDelimiter.
	unzipped _ directory newFileNamed: newName.
	zipped _ GZipReadStream on: (directory readOnlyFileNamed: self fullName).
	buffer _ String new: 50000.
	'Extracting ' , self fullName
		displayProgressAt: Sensor cursorPoint
		from: 0
		to: zipped sourceStream size
		during: 
			[:bar | 
			[zipped atEnd]
				whileFalse: 
					[bar value: zipped sourceStream position.
					unzipped nextPutAll: (zipped nextInto: buffer)].
			zipped close.
			unzipped close].
	(newName endsWith:'.image') ifTrue:[
	 FileDirectory default
                setMacFileNamed: unzipped name
                type: 'STim'
                creator: 'FAST'].
	self updateFileList. 
	^ newName! !



More information about the Squeak-dev mailing list