The Trunk: 61Deprecated-ct.29.mcz

Christoph Thiede uploaded a new version of 61Deprecated to project The Trunk:
http://source.squeak.org/trunk/61Deprecated-ct.29.mcz

==================== Summary ====================

Name: 61Deprecated-ct.29
Author: ct
Time: 21 June 2026, 11:34:23.074964 pm
UUID: 2a613ee0-f8e1-4689-ac68-c9cff3da2764
Ancestors: 61Deprecated-ct.28

Complements Graphics-ct.562 (deprecates AnimatedGIFReaderWriter in favor of GIFReadWriter).

=============== Diff against 61Deprecated-ct.28 ===============

Item was changed:
  SystemOrganization addCategory: #'61Deprecated-ST80-Support'!
  SystemOrganization addCategory: #'61Deprecated-Morphic-Support'!
  SystemOrganization addCategory: #'61Deprecated-Etoys-Squeakland-Tools-Process Browser'!
  SystemOrganization addCategory: #'61Deprecated-Kernel-Exceptions'!
+ SystemOrganization addCategory: #'61Deprecated-Graphics-Files'!

Item was added:
+ GIFReadWriter subclass: #AnimatedGIFReadWriter
+ 	instanceVariableNames: 'forms delays comments'
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: '61Deprecated-Graphics-Files'!

Item was added:
+ ----- Method: AnimatedGIFReadWriter class>>basicNew (in category 'instance creation') -----
+ basicNew
+ 	"Notify that the class is being deprecated."
+ 	self deprecated: 'This class is deprecated. Its functionality can be found in the regular GIFReadWriter class instead.'.
+ 	^ super basicNew
+ 	!

Item was added:
+ ----- Method: AnimatedGIFReadWriter class>>formsFromFileNamed: (in category 'image reading/writing') -----
+ formsFromFileNamed: fileName 
+ 	| stream |
+ 	stream := FileStream readOnlyFileNamed: fileName.
+ 	^ self formsFromStream: stream!

Item was added:
+ ----- Method: AnimatedGIFReadWriter class>>formsFromStream: (in category 'image reading/writing') -----
+ formsFromStream: stream 
+ 	| reader |
+ 	reader := self new on: stream reset.
+ 	Cursor read
+ 		showWhile: [reader allImages.
+ 			reader close].
+ 	^reader!

Item was added:
+ ----- Method: AnimatedGIFReadWriter class>>typicalFileExtensions (in category 'image reading/writing') -----
+ typicalFileExtensions
+ 	"Answer a collection of file extensions (lowercase) which files that I can read might commonly have"
+ 	^#()!

Item was added:
+ ----- Method: AnimatedGIFReadWriter class>>understandsImageFormat: (in category 'image reading/writing') -----
+ understandsImageFormat: aStream
+ 	^ false!

Item was added:
+ ----- Method: AnimatedGIFReadWriter class>>wantsToHandleGIFs (in category 'image reading/writing') -----
+ wantsToHandleGIFs
+ 	^ false!

Item was added:
+ ----- Method: AnimatedGIFReadWriter>>allImages (in category 'accessing') -----
+ allImages
+ 	| body colorTable |
+ 	localColorTable := nil.
+ 	forms := OrderedCollection new.
+ 	delays := OrderedCollection new.
+ 	comments := OrderedCollection new.
+ 	self readHeader.
+ 	[(body := self readBody) == nil]
+ 		whileFalse: [colorTable := localColorTable
+ 						ifNil: [colorPalette].
+ 			transparentIndex
+ 				ifNotNil: [transparentIndex + 1 > colorTable size
+ 						ifTrue: [colorTable := colorTable forceTo: transparentIndex + 1 paddingWith: Color white].
+ 					colorTable at: transparentIndex + 1 put: Color transparent].
+ 			body colors: colorTable.
+ 			forms add: body].
+ 	^ forms!

Item was added:
+ ----- Method: AnimatedGIFReadWriter>>comment: (in category 'private') -----
+ comment: aString
+ 	comments add: aString!

Item was added:
+ ----- Method: AnimatedGIFReadWriter>>delays (in category 'accessing') -----
+ delays
+ 	^ delays!

Item was added:
+ ----- Method: AnimatedGIFReadWriter>>forms (in category 'accessing') -----
+ forms
+ 	^ forms!

Item was added:
+ ----- Method: AnimatedGIFReadWriter>>readBitData (in category 'private-decoding') -----
+ readBitData
+ 	| form |
+ 	form := super readBitData.
+ 	form offset: offset.
+ 	^form!

Squeak-dev mailing list -- [email protected]
To unsubscribe send an email to [email protected]