Packages May 2022

packages@lists.squeakfoundation.org

1 participants
142 discussions

The Trunk: Morphic-EG.1983.mcz
by commits＠source.squeak.org 05 May '22

05 May '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-EG.1983.mcz ==================== Summary ==================== Name: Morphic-EG.1983 Author: EG Time: 5 May 2022, 7:05:04.44181 am UUID: fa611fc3-37ca-4bce-a541-5c5265fc8d3a Ancestors: Morphic-mt.1982 Switching from AnimatedImageMorph pre-composing full Forms from AnimatedImageFrames to doing live composition during animation playback. The composition of frames is based on the disposal information for each frame. This should decrease loading times for displaying animated GIFs in the system. For the moment, we only handle #leaveCurrent and #restoreBackground disposals, though these seem to cover 99% of cases in the wild. =============== Diff against Morphic-mt.1982 =============== Item was changed: ImageMorph subclass: #AnimatedImageMorph + instanceVariableNames: 'images delays stepTime imageIndex disposals' - instanceVariableNames: 'images delays stepTime imageIndex' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Basic'! !AnimatedImageMorph commentStamp: 'EG 12/4/2021 12:33' prior: 0! I am an ImageMorph that can hold more than one image. Each image has its own delay time. I am most commonly created using GIFReaderWriter when it contains multiple images/frames.! Item was removed: - ----- Method: AnimatedImageMorph>>composedFormsFromReader: (in category 'frame composition') ----- - composedFormsFromReader: aGIFReader - "Compose a collection of Forms that are composited - from the incoming collection of Frames. We do this instead of - compositing each Form on the fly for performance reasons. - With this method, we can achieve better framerates for - Animated GIFs." - | nextForm compForm | - nextForm := Form extent: (aGIFReader canvasWidth)@(aGIFReader canvasHeight) depth: 32. - ^ aGIFReader frames collect: [ :frame | - frame form displayOn: nextForm at: 0@0 rule: Form paint. - compForm := nextForm. - frame disposal = #leaveCurrent - ifTrue: [ nextForm := nextForm copy ] - ifFalse: [ frame disposal = #restoreBackground - ifTrue: [ nextForm := Form extent: (aGIFReader canvasWidth)@(aGIFReader canvasHeight) depth: 32 ]]. - compForm ]! Item was added: + ----- Method: AnimatedImageMorph>>fromFrames: (in category 'initialization') ----- + fromFrames: aFrameCollection + "Initialize this morph from a colleciton of + AnimatedImageFrames" + delays := OrderedCollection new. + disposals := OrderedCollection new. + images := OrderedCollection new. + aFrameCollection do: [ :frame | + delays add: frame delay. + disposals add: frame disposal. + images add: frame form ].! Item was changed: ----- Method: AnimatedImageMorph>>fromGIFReader: (in category 'initialization') ----- fromGIFReader: aGIFReader + self + fromFrames: aGIFReader frames; + color: aGIFReader backgroundColor; + width: aGIFReader canvasWidth; + height: aGIFReader canvasHeight. + + "Set the current active image form to + a form that is the same dimensions as this morph" + self image: ((FormCanvas extent: (aGIFReader canvasWidth)@(aGIFReader canvasHeight)) + fillColor: self color; + drawImage: images first + at: images first offset; + form)! - delays := aGIFReader delays. - self - stepTime: aGIFReader delays first; - images: (self composedFormsFromReader: aGIFReader); - yourself! Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step + | disposal canvas current | + "If we are about to go beyond the number of images, + then loop back to the first one" + ((imageIndex) >= images size) - ((imageIndex + 1) >= images size) ifTrue: [ imageIndex := 1 ] ifFalse: [ imageIndex := imageIndex + 1 ]. + + current := images at: imageIndex. + + "If this is the first image in the sequence, we don't + have a previous disposal to look at. So just paint + the image -- equiv to #leaveCurrent" + canvas := image getCanvas. + (imageIndex == 1) + ifTrue: [ + image getCanvas drawImage: current at: current offset ] + ifFalse: [ + "Otherwise, we need to look at the previous image's disposal method + to see if we should restore the background" + disposal := disposals at: imageIndex - 1. + (disposal == #restoreBackground) + ifTrue: [ + "canvas + fillRectangle: self bounds + color: self color" + canvas := (Form extent: canvas extent depth: 32) getCanvas. + canvas fillRectangle: ((current offset) corner: (current offset + current extent)) color: self color. + canvas drawImage: current at: current offset ] + ifFalse: [ canvas paintImage: current at: current offset ] + ]. + self image: canvas form. + self stepTime: (delays at: imageIndex)! - self - stepTime: (delays at: imageIndex); - image: (images at: imageIndex) - !

1 0

The Trunk: Morphic-mt.1984.mcz
by commits＠source.squeak.org 05 May '22

05 May '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1984.mcz ==================== Summary ==================== Name: Morphic-mt.1984 Author: mt Time: 5 May 2022, 2:42:36.087935 pm UUID: c441c304-a406-9740-80df-ec6dfd32a835 Ancestors: Morphic-mt.1983, Morphic-EG.1983 Merges Morphic-EG.1983 Switching from AnimatedImageMorph pre-composing full Forms from AnimatedImageFrames to doing live composition during animation playback. The composition of frames is based on the disposal information for each frame. =============== Diff against Morphic-mt.1983 =============== Item was changed: ImageMorph subclass: #AnimatedImageMorph + instanceVariableNames: 'images delays stepTime imageIndex disposals' - instanceVariableNames: 'images delays stepTime imageIndex' classVariableNames: '' poolDictionaries: '' category: 'Morphic-Basic'! !AnimatedImageMorph commentStamp: 'EG 12/4/2021 12:33' prior: 0! I am an ImageMorph that can hold more than one image. Each image has its own delay time. I am most commonly created using GIFReaderWriter when it contains multiple images/frames.! Item was removed: - ----- Method: AnimatedImageMorph>>composedFormsFromReader: (in category 'frame composition') ----- - composedFormsFromReader: aGIFReader - "Compose a collection of Forms that are composited - from the incoming collection of Frames. We do this instead of - compositing each Form on the fly for performance reasons. - With this method, we can achieve better framerates for - Animated GIFs." - | nextForm compForm | - nextForm := Form extent: (aGIFReader canvasWidth)@(aGIFReader canvasHeight) depth: 32. - ^ aGIFReader frames collect: [ :frame | - frame form displayOn: nextForm at: 0@0 rule: Form paint. - compForm := nextForm. - frame disposal = #leaveCurrent - ifTrue: [ nextForm := nextForm copy ] - ifFalse: [ frame disposal = #restoreBackground - ifTrue: [ nextForm := Form extent: (aGIFReader canvasWidth)@(aGIFReader canvasHeight) depth: 32 ]]. - compForm ]! Item was added: + ----- Method: AnimatedImageMorph>>fromFrames: (in category 'initialization') ----- + fromFrames: aFrameCollection + "Initialize this morph from a colleciton of + AnimatedImageFrames" + delays := OrderedCollection new. + disposals := OrderedCollection new. + images := OrderedCollection new. + aFrameCollection do: [ :frame | + delays add: frame delay. + disposals add: frame disposal. + images add: frame form ].! Item was changed: ----- Method: AnimatedImageMorph>>fromGIFReader: (in category 'initialization') ----- fromGIFReader: aGIFReader + self + fromFrames: aGIFReader frames; + color: aGIFReader backgroundColor; + width: aGIFReader canvasWidth; + height: aGIFReader canvasHeight. + + "Set the current active image form to + a form that is the same dimensions as this morph" + self image: ((FormCanvas extent: (aGIFReader canvasWidth)@(aGIFReader canvasHeight)) + fillColor: self color; + drawImage: images first + at: images first offset; + form)! - delays := aGIFReader delays. - self - stepTime: aGIFReader delays first; - images: (self composedFormsFromReader: aGIFReader); - yourself! Item was changed: ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- step + | disposal canvas current | + "If we are about to go beyond the number of images, + then loop back to the first one" + ((imageIndex) >= images size) - ((imageIndex + 1) >= images size) ifTrue: [ imageIndex := 1 ] ifFalse: [ imageIndex := imageIndex + 1 ]. + + current := images at: imageIndex. + + "If this is the first image in the sequence, we don't + have a previous disposal to look at. So just paint + the image -- equiv to #leaveCurrent" + canvas := image getCanvas. + (imageIndex == 1) + ifTrue: [ + image getCanvas drawImage: current at: current offset ] + ifFalse: [ + "Otherwise, we need to look at the previous image's disposal method + to see if we should restore the background" + disposal := disposals at: imageIndex - 1. + (disposal == #restoreBackground) + ifTrue: [ + "canvas + fillRectangle: self bounds + color: self color" + canvas := (Form extent: canvas extent depth: 32) getCanvas. + canvas fillRectangle: ((current offset) corner: (current offset + current extent)) color: self color. + canvas drawImage: current at: current offset ] + ifFalse: [ canvas paintImage: current at: current offset ] + ]. + self image: canvas form. + self stepTime: (delays at: imageIndex)! - self - stepTime: (delays at: imageIndex); - image: (images at: imageIndex) - !

1 0

The Trunk: Morphic-mt.1983.mcz
by commits＠source.squeak.org 05 May '22

05 May '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1983.mcz ==================== Summary ==================== Name: Morphic-mt.1983 Author: mt Time: 5 May 2022, 12:58:55.042935 pm UUID: b0defe00-8806-1844-9dce-68ea9703b58a Ancestors: Morphic-mt.1982 Fixes scaling for simple frame adornments. =============== Diff against Morphic-mt.1982 =============== Item was changed: ----- Method: PluggableTextMorph>>drawFrameAdornment:on: (in category 'drawing') ----- drawFrameAdornment: aColor on: aCanvas "Indicate edit status for the text editor" self class simpleFrameAdornments ifTrue: + [ | adornmentWidth | + adornmentWidth := ((self valueOfProperty: #frameAdornmentWidth ifAbsent: [1]) + * RealEstateAgent scaleFactor) truncated. + aCanvas - [ aCanvas frameRectangle: self innerBounds + width: adornmentWidth - width: (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1]) color: aColor. aCanvas + frameRectangle: (self innerBounds insetBy: adornmentWidth) + width: adornmentWidth - frameRectangle: (self innerBounds insetBy: 1) - width: (self valueOfProperty: #frameAdornmentWidth ifAbsent: [1]) color: (aColor alpha: aColor alpha / 3.0) ] ifFalse: [ | form | "Class-side adornment cache is currently using pre-multiplied alpha, so we need to use rule 34 which works for < 32bpp, too." form := self class adornmentWithColor: aColor. aCanvas image: form at: self innerBounds topRight - (form width @ 0) sourceRect: form boundingBox rule: 34 ]!

1 0

The Trunk: Installer-Core-cmm.445.mcz
by commits＠source.squeak.org 05 May '22

05 May '22

Chris Muller uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-cmm.445.mcz ==================== Summary ==================== Name: Installer-Core-cmm.445 Author: cmm Time: 4 May 2022, 5:57:54.528844 pm UUID: 966e37e1-9853-4ae9-9bdd-6a342c4ffaf2 Ancestors: Installer-Core-mt.444 When using #merge:, allow the logical #local repository to automatically map to the filesystem-based local if the local http (SqueakSource) server is down. =============== Diff against Installer-Core-mt.444 =============== Item was added: + ----- Method: Installer class>>resetDefaultLocalRepository (in category 'repository-overrides') ----- + resetDefaultLocalRepository + self localRepository: nil! Item was changed: ----- Method: Installer>>merge: (in category 'public interface') ----- merge: structureOrSymbol | toUncache | toUncache := Set new. self packageDependenciesFor: structureOrSymbol do: + [ : eachPackageName : eachRepositorySpec | | repo version tried | + tried := false. + repo := [ (self class repositoryFor: eachRepositorySpec) cacheAllFilenames ] + on: Error + do: + [ : err | tried + ifTrue: [ err pass ] + ifFalse: + [ tried := true. + self class resetDefaultLocalRepository. + err retry ] ]. - [ : eachPackageName : eachRepositorySpec | | repo version | - (repo := self class repositoryFor: eachRepositorySpec) cacheAllFilenames. toUncache add: repo. version := self primMerge: eachPackageName from: repo. "Lazy code, polite MC won't add duplicates if they already exist." version ifNotNil: [ version workingCopy repositoryGroup addRepository: repo ; addRepository: (self class defaultRepositoryFor: eachRepositorySpec) ] ]. + toUncache do: + [ : each | each flushAllFilenames ]! - toUncache do: [ : each | each flushAllFilenames ]!

1 0

The Trunk: CollectionsTests-ct.360.mcz
by commits＠source.squeak.org 04 May '22

04 May '22

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.360.mcz ==================== Summary ==================== Name: CollectionsTests-ct.360 Author: ct Time: 30 June 2021, 12:40:42.641133 am UUID: dddcbdf8-39be-be4a-8769-cccd9db4ab2e Ancestors: CollectionsTests-nice.354 Complements Collections-ct.949. =============== Diff against CollectionsTests-nice.354 =============== Item was added: + ----- Method: HtmlReadWriterTest>>test17ImgTagDataUri (in category 'tests') ----- + test17ImgTagDataUri + + | form | + form := Form dotOfSize: 16 color: Color maroon. + + { + 'data:image/png;base64,{1}' format: { + (ByteArray streamContents: [:stream | + PNGReadWriter putForm: form onStream: stream]) base64Encoded}. + 'data:image/jpeg;base64,{1}' format: { + (ByteArray streamContents: [:stream | + PNGReadWriter putForm: form onStream: stream]) base64Encoded}. + } do: [:uri | | expectedHtml expectedText | + expectedHtml := 'Hello <img src="{1}" alt="Red dot" /> World' format: {uri}. + expectedText := ('Hello {1} World' format: {Character startOfHeader}) asText + addAttribute: form asTextAnchor from: 7 to: 7; + addAttribute: (TextColor color: Color transparent) from: 7 to: 7. + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + expectedText runs with: text runs do: [:expectedAttributes :actualAttributes | + expectedAttributes with: actualAttributes do: [:expectedAttribute :actualAttribute | + self assert: (expectedAttribute = actualAttribute or: [ + ((expectedAttribute respondsTo: #anchoredMorph) + and: [actualAttribute respondsTo: #anchoredMorph]) + and: [(expectedAttribute anchoredMorph "aForm" unhibernate; bits) + = (actualAttribute anchoredMorph "aForm" unhibernate; bits)] ]) ]]].!

1 0

The Trunk: Collections-ct.949.mcz
by commits＠source.squeak.org 04 May '22

04 May '22

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.949.mcz ==================== Summary ==================== Name: Collections-ct.949 Author: ct Time: 30 June 2021, 12:40:15.630133 am UUID: af0bb5dc-fd59-5c46-805b-f923e93cdaf2 Ancestors: Collections-mt.945 Adds basic support for data URIs to HtmlReadWriter. Usage: 'Hello <img src="data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAAAgAAAAIBAMAAAA2IaO4AAAAMFBMVEUAAACAAAAAgACAgAAAAICAAIAAgICAgIC/v7//AAAA/wD//wAAAP//AP8A//////94imqWAAAAEHRSTlP/////////////////////zSGylAAAAChJREFUeF5j+P///3+G/7t3/2f4zb1hP8Pv3bv3Q1kbuPdDJIAq/gMA/8wZcBN9r58AAAAASUVORK5CYII=" />' asTextFromHtml edit =============== Diff against Collections-mt.945 =============== Item was changed: ----- Method: HtmlReadWriter>>httpGetImage: (in category 'private') ----- httpGetImage: url "To not add a direct dependency to WebClient, provide this hook for getting am image from an HTTP url. Maybe we can have this via an AppRegistry at some point. Maybe extend WebBrowser." + - (url beginsWith: 'code://') ifTrue: [ "Same support for Smalltalk expressions as in TextURL >> #actOnClickFor:." ^ ([Compiler evaluate: (url allButFirst: 7)] ifError: [nil]) ifNotNil: [:object | object isForm ifTrue: [object] ifFalse: [nil]]]. + (url beginsWith: 'data:') ifTrue: [ | data mediaType separator | + separator := url indexOf: $, ifAbsent: [^ nil]. + mediaType := url copyFrom: 6 to: separator - 1. + data := url allButFirst: separator. + data := (mediaType endsWith: ';base64') + ifTrue: [ + mediaType := mediaType allButLast: 7. + [Base64MimeConverter mimeDecodeToBytes: data readStream] ifError: [nil]] + ifFalse: [data asByteArray readStream]. + ^ [ImageReadWriter formFromStream: data] ifError: [nil]]. + ^ (Smalltalk classNamed: 'WebClient') ifNotNil: [:client | ([client httpGet: url] ifError: [nil]) ifNotNil: [:response | response code = 200 ifFalse: [nil] ifTrue: [ [Form fromBinaryStream: response content asByteArray readStream] ifError: [nil]]]]!

1 0

The Trunk: CollectionsTests-ct.377.mcz
by commits＠source.squeak.org 04 May '22

04 May '22

Christoph Thiede uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-ct.377.mcz ==================== Summary ==================== Name: CollectionsTests-ct.377 Author: ct Time: 4 May 2022, 9:08:44.68825 pm UUID: 85c06a91-fa23-b047-8dc0-27937cb65cc0 Ancestors: CollectionsTests-mt.376, CollectionsTests-ct.360 Merges CollectionsTests-ct.360 (Complements Collections-ct.949). =============== Diff against CollectionsTests-mt.376 =============== Item was added: + ----- Method: HtmlReadWriterTest>>test17ImgTagDataUri (in category 'tests') ----- + test17ImgTagDataUri + + | form | + form := Form dotOfSize: 16 color: Color maroon. + + { + 'data:image/png;base64,{1}' format: { + (ByteArray streamContents: [:stream | + PNGReadWriter putForm: form onStream: stream]) base64Encoded}. + 'data:image/jpeg;base64,{1}' format: { + (ByteArray streamContents: [:stream | + PNGReadWriter putForm: form onStream: stream]) base64Encoded}. + } do: [:uri | | expectedHtml expectedText | + expectedHtml := 'Hello <img src="{1}" alt="Red dot" /> World' format: {uri}. + expectedText := ('Hello {1} World' format: {Character startOfHeader}) asText + addAttribute: form asTextAnchor from: 7 to: 7; + addAttribute: (TextColor color: Color transparent) from: 7 to: 7. + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + expectedText runs with: text runs do: [:expectedAttributes :actualAttributes | + expectedAttributes with: actualAttributes do: [:expectedAttribute :actualAttribute | + self assert: (expectedAttribute = actualAttribute or: [ + ((expectedAttribute respondsTo: #anchoredMorph) + and: [actualAttribute respondsTo: #anchoredMorph]) + and: [(expectedAttribute anchoredMorph "aForm" unhibernate; bits) + = (actualAttribute anchoredMorph "aForm" unhibernate; bits)] ]) ]]].!

1 0

The Trunk: Collections-ct.1010.mcz
by commits＠source.squeak.org 04 May '22

04 May '22

Christoph Thiede uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ct.1010.mcz ==================== Summary ==================== Name: Collections-ct.1010 Author: ct Time: 4 May 2022, 9:05:51.60725 pm UUID: cdc1e77e-7428-4749-a97f-e1f8aaef3d29 Ancestors: Collections-mt.1009, Collections-ct.949 Merges Collections-ct.949 (support for data URIs to HtmlReadWriter). =============== Diff against Collections-mt.1009 =============== Item was changed: ----- Method: HtmlReadWriter>>httpGetImage: (in category 'private') ----- httpGetImage: url "To not add a direct dependency to WebClient, provide this hook for getting am image from an HTTP url. Maybe we can have this via an AppRegistry at some point. Maybe extend WebBrowser." + - (url beginsWith: 'code://') ifTrue: [ "Same support for Smalltalk expressions as in TextURL >> #actOnClickFor:." ^ ([Compiler evaluate: (url allButFirst: 7)] ifError: [nil]) ifNotNil: [:object | object isForm ifTrue: [object] ifFalse: [nil]]]. + (url beginsWith: 'data:') ifTrue: [ | data mediaType separator | + separator := url indexOf: $, ifAbsent: [^ nil]. + mediaType := url copyFrom: 6 to: separator - 1. + data := url allButFirst: separator. + data := (mediaType endsWith: ';base64') + ifTrue: [ + mediaType := mediaType allButLast: 7. + [Base64MimeConverter mimeDecodeToBytes: data readStream] ifError: [nil]] + ifFalse: [data asByteArray readStream]. + ^ [ImageReadWriter formFromStream: data] ifError: [nil]]. + ^ (Smalltalk classNamed: 'WebClient') ifNotNil: [:client | ([client httpGet: url] ifError: [nil]) ifNotNil: [:response | response code = 200 ifFalse: [nil] ifTrue: [ [Form fromBinaryStream: response content asByteArray readStream] ifError: [nil]]]]!

1 0

The Trunk: Kernel-xw.1463.mcz
by commits＠source.squeak.org 04 May '22

04 May '22

Marcel Taeumel uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-xw.1463.mcz ==================== Summary ==================== Name: Kernel-xw.1463 Author: xw Time: 4 May 2022, 9:00:19.605843 pm UUID: 03cc3269-c236-214d-a9e7-f7ee0c914b3d Ancestors: Kernel-nice.1462 Add Unicode support and simplify implementation of CompiledMethod>>#getPreambleFrom:at: =============== Diff against Kernel-nice.1462 =============== Item was changed: ----- Method: CompiledMethod>>getPreambleFrom:at: (in category 'source code management') ----- getPreambleFrom: aFileStream at: endPosition + | chunk | + aFileStream position: endPosition + 2. + [(chunk := aFileStream backChunk) beginsWith: ']lang['] whileTrue. + ^ chunk! - "This method is an ugly hack. This method assumes that source files have ASCII-compatible encoding and that preambles contain no non-ASCII characters." - - | chunkSize chunk | - chunkSize := 160 min: endPosition. - [ - | index | - chunk := aFileStream - position: (endPosition - chunkSize + 1 max: 0); - basicNext: chunkSize. - (index := chunk lastIndexOf: $!! startingAt: chunk size) ~= 0 ifTrue: [ - ^chunk copyFrom: index + 1 to: chunk size ]. - chunkSize := chunkSize * 2. - chunkSize <= endPosition ] whileTrue. - ^chunk!

1 0

The Trunk: Morphic-EG.1829.mcz
by commits＠source.squeak.org 04 May '22

04 May '22

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-EG.1829.mcz ==================== Summary ==================== Name: Morphic-EG.1829 Author: EG Time: 21 December 2021, 7:07:54.755803 pm UUID: 92405049-2c0c-4391-a502-53897db173c3 Ancestors: Morphic-mt.1827 This commit represents an overhaul of AnimatedImageMorph, which is now designed to work with the new GIFReadWriter implementaiton. Image forms are composited ahead of time to improve performance and achieve better real world framerates. =============== Diff against Morphic-mt.1827 =============== Item was changed: + (PackageInfo named: 'Morphic') preamble: '"Turn off Morphic drawing because we are refactoring ActiveWorld, ActiveHand, and ActiveEvent." - (PackageInfo named: 'Morphic') preamble: '"Turn off Morphic drawing because we are refactoring ActiveWorld, ActiveHand, and ActiveEvent." Project current world setProperty: #shouldDisplayWorld toValue: false.'! Item was added: + ImageMorph subclass: #AnimatedImageMorph + instanceVariableNames: 'images delays stepTime imageIndex' + classVariableNames: '' + poolDictionaries: '' + category: 'Morphic-Basic'! + + !AnimatedImageMorph commentStamp: 'EG 12/4/2021 12:33' prior: 0! + I am an ImageMorph that can hold more than one image. Each image has its own delay time. I am most commonly created using GIFReaderWriter when it contains multiple images/frames.! Item was added: + ----- Method: AnimatedImageMorph class>>fileReaderServicesForFile:suffix: (in category 'fileIn/Out') ----- + fileReaderServicesForFile: fullName suffix: suffix + + ^((GIFReadWriter typicalFileExtensions asSet + add: '*'; add: 'form'; yourself) + includes: suffix) + ifTrue: [ self services ] + ifFalse: [#()] + ! Item was added: + ----- Method: AnimatedImageMorph class>>fromGIFFileNamed: (in category 'instance creation') ----- + fromGIFFileNamed: fileName + | reader | + reader := GIFReadWriter formsFromFileNamed: fileName. + ^reader forms size = 1 + ifTrue: [ ImageMorph new image: reader forms first ] + ifFalse: [ self new fromGIFReader: reader ]! Item was added: + ----- Method: AnimatedImageMorph class>>fromStream: (in category 'instance creation') ----- + fromStream: aStream + | reader | + reader := GIFReadWriter formsFromStream: aStream. + ^reader forms size = 1 + ifTrue: [ ImageMorph new image: reader forms first ] + ifFalse: [ self new fromGIFReader: reader ]! Item was added: + ----- Method: AnimatedImageMorph class>>initialize (in category 'class initialization') ----- + initialize + "register the receiver in the global registries" + self environment + at: #FileServices + ifPresent: [:cl | cl registerFileReader: self]! Item was added: + ----- Method: AnimatedImageMorph class>>openGIFInWindow: (in category 'instance creation') ----- + openGIFInWindow: aStream + ^(self fromStream: aStream binary) openInWorld! Item was added: + ----- Method: AnimatedImageMorph class>>serviceOpenGIFInWindow (in category 'fileIn/Out') ----- + serviceOpenGIFInWindow + "Answer a service for opening a gif graphic in a window" + ^ (SimpleServiceEntry + provider: self + label: 'open the graphic as a morph' + selector: #openGIFInWindow: + description: 'open a GIF graphic file as a morph' + buttonLabel: 'open') + argumentGetter: [:fileList | fileList readOnlyStream]! Item was added: + ----- Method: AnimatedImageMorph class>>services (in category 'fileIn/Out') ----- + services + ^ Array + with: self serviceOpenGIFInWindow + "with: Form serviceImageImports" + with: Form serviceImageAsBackground! Item was added: + ----- Method: AnimatedImageMorph class>>unload (in category 'class initialization') ----- + unload + "Unload the receiver from global registries" + self environment + at: #FileServices + ifPresent: [:cl | cl unregisterFileReader: self]! Item was added: + ----- Method: AnimatedImageMorph>>addCustomMenuItems:hand: (in category 'stepping and presenter') ----- + addCustomMenuItems: aMenu hand: aHand + super addCustomMenuItems: aMenu hand: aHand. + aMenu addUpdating: #steppingString action: #toggleStepping! Item was added: + ----- Method: AnimatedImageMorph>>composedFormsFromReader: (in category 'frame composition') ----- + composedFormsFromReader: aGIFReader + "Compose a collection of Forms that are composited + from the incoming collection of Frames. We do this instead of + compositing each Form on the fly for performance reasons. + With this method, we can achieve better framerates for + Animated GIFs." + | nextForm compForm | + nextForm := Form extent: (aGIFReader canvasWidth)@(aGIFReader canvasHeight) depth: 32. + ^ aGIFReader frames collect: [ :frame | + frame form displayOn: nextForm at: 0@0 rule: Form paint. + compForm := nextForm copy. + (frame disposal = #leaveCurrent) + ifTrue: [ + nextForm := nextForm copy ]. + (frame disposal = #restoreBackground) + ifTrue: [ + nextForm := Form extent: (aGIFReader canvasWidth)@(aGIFReader canvasHeight) depth: 32 ]. + compForm ] + ! Item was added: + ----- Method: AnimatedImageMorph>>delays (in category 'accessing') ----- + delays + + ^ delays! Item was added: + ----- Method: AnimatedImageMorph>>fromGIFFileNamed: (in category 'private') ----- + fromGIFFileNamed: fileName + self fromReader: (GIFReadWriter formsFromFileNamed: fileName)! Item was added: + ----- Method: AnimatedImageMorph>>fromGIFReader: (in category 'initialization') ----- + fromGIFReader: aGIFReader + delays := aGIFReader delays. + self + stepTime: aGIFReader delays first; + images: (self composedFormsFromReader: aGIFReader); + yourself! Item was added: + ----- Method: AnimatedImageMorph>>fromImages: (in category 'private') ----- + fromImages: anArray + images := anArray. + self setUniformDelay: 10. + imageIndex := 0 + ! Item was added: + ----- Method: AnimatedImageMorph>>fromImages:delay: (in category 'private') ----- + fromImages: anArray delay: anInteger + images := anArray. + self setUniformDelay: anInteger.! Item was added: + ----- Method: AnimatedImageMorph>>fromStream: (in category 'private') ----- + fromStream: aStream + self fromGIFReader: (GIFReadWriter formsFromStream: aStream)! Item was added: + ----- Method: AnimatedImageMorph>>fromUrl: (in category 'initialization') ----- + fromUrl: aUrl + | request | + request := WebClient httpDo: [ :client | client httpGet: aUrl ]. + (request code = 200) not ifTrue: [ Error signal: 'Bad URL or Request' ]. + ((request headerAt: 'Content-Type') = 'image/gif') not + ifTrue: [ Error signal: 'Url does not respond with a gif, but a ', (request headerAt: 'Content-Type')]. + ^ self fromStream: request content asByteArray readStream.! Item was added: + ----- Method: AnimatedImageMorph>>images (in category 'private') ----- + images + ^images! Item was added: + ----- Method: AnimatedImageMorph>>images: (in category 'accessing') ----- + images: aCollectionOfForms + images := aCollectionOfForms! Item was added: + ----- Method: AnimatedImageMorph>>initialize (in category 'private') ----- + initialize + imageIndex := 1. + stepTime := 10. + super initialize! Item was added: + ----- Method: AnimatedImageMorph>>reset (in category 'private') ----- + reset + imageIndex := 1. + self image: (Form extent: self maxImagesExtent depth: 32).! Item was added: + ----- Method: AnimatedImageMorph>>setStepping: (in category 'stepping and presenter') ----- + setStepping: aBoolean + self wantsSteps ifFalse:[^false]. + aBoolean ifTrue:[self startStepping] + ifFalse:[self stopStepping].! Item was added: + ----- Method: AnimatedImageMorph>>setUniformDelay: (in category 'private') ----- + setUniformDelay: anInteger + "set delay to a uniform value for all images" + delays := Array new: images size withAll: anInteger.! Item was added: + ----- Method: AnimatedImageMorph>>step (in category 'stepping and presenter') ----- + step + ((imageIndex + 1) >= images size) + ifTrue: [ imageIndex := 1 ] + ifFalse: [ imageIndex := imageIndex + 1 ]. + self + stepTime: (delays at: imageIndex); + image: (images at: imageIndex) + ! Item was added: + ----- Method: AnimatedImageMorph>>stepTime (in category 'stepping and presenter') ----- + stepTime + ^stepTime ifNil: [super stepTime]! Item was added: + ----- Method: AnimatedImageMorph>>stepTime: (in category 'stepping and presenter') ----- + stepTime: anInteger + stepTime := anInteger! Item was added: + ----- Method: AnimatedImageMorph>>steppingString (in category 'stepping and presenter') ----- + steppingString + ^ (self isStepping + ifTrue: ['<on>'] + ifFalse: ['<off>']), 'stepping' translated! Item was added: + ----- Method: AnimatedImageMorph>>toggleStepping (in category 'stepping and presenter') ----- + toggleStepping + self wantsSteps + ifTrue: [ + self isStepping + ifFalse: [self startStepping] + ifTrue: [self stopStepping]]! Item was added: + ----- Method: AnimatedImageMorph>>wantsSteps (in category 'stepping and presenter') ----- + wantsSteps + ^(images size > 1) + !

1 0

← Newer
1
...
9
10
11
12
13
14
15
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages May 2022