Packages August 2023

packages@lists.squeakfoundation.org

1 participants
72 discussions

The Trunk: Morphic-mt.2127.mcz
by commits＠source.squeak.org 29 Aug '23

29 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2127.mcz ==================== Summary ==================== Name: Morphic-mt.2127 Author: mt Time: 29 August 2023, 2:55:13.299076 pm UUID: 5d962eea-6b87-d74a-a7ca-b35dd3c7bbfc Ancestors: Morphic-mt.2126 #fillsOwner: Fixes construction issue in TextContainer where the TextMorph has no owner yet. 'Squeak' asText asMorph fillsOwner: true. =============== Diff against Morphic-mt.2126 =============== Item was changed: ----- Method: TextContainer>>bounds (in category 'private') ----- bounds | bounds theText | self fillsOwner ifFalse: [^ textMorph textBounds]. + textMorph owner ifNil: [^ textMorph textBounds]. theText := textMorph. bounds := theText owner innerBounds. bounds := bounds insetBy: (textMorph valueOfProperty: #margins ifAbsent: [1@1]). theText owner submorphsBehind: theText do: [:m | bounds swallow: m fullBounds]. ^ bounds!

1 0

The Trunk: System-mt.1423.mcz
by commits＠source.squeak.org 29 Aug '23

29 Aug '23

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1423.mcz ==================== Summary ==================== Name: System-mt.1423 Author: mt Time: 29 August 2023, 2:48:29.917076 pm UUID: 0b53dd21-5ac2-6c4c-9c1e-100e56354b7d Ancestors: System-eem.1422 Complement EToys-mt.502 =============== Diff against System-eem.1422 =============== Item was added: + ----- Method: Project>>name: (in category 'accessing') ----- + name: aString + changeSet ifNil: [ + self flag: #ct. "Can we redirect to #explicitName: here instead of creating change set, or does anyone rely on this side effect?" + changeSet := ChangeSet new]. + (aString isEmpty or: [aString = changeSet name]) + ifFalse: [changeSet name: (ChangeSet uniqueNameLike: aString)]!

1 0

The Trunk: EToys-mt.502.mcz
by commits＠source.squeak.org 29 Aug '23

29 Aug '23

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.502.mcz ==================== Summary ==================== Name: EToys-mt.502 Author: mt Time: 29 August 2023, 2:47:40.055076 pm UUID: 76cf1a5f-7b4e-7f48-bbf2-45d619da70e9 Ancestors: EToys-mt.501 For generic project naming, move #name: setter from EToys to System. #name getter is already in System. =============== Diff against EToys-mt.501 =============== Item was removed: - ----- Method: Project>>name: (in category '*Etoys-Squeakland-accessing') ----- - name: aString - changeSet ifNil: [ - self flag: #ct. "Can we redirect to #explicitName: here instead of creating change set, or does anyone rely on this side effect?" - changeSet := ChangeSet new]. - (aString isEmpty or: [aString = changeSet name]) - ifFalse: [changeSet name: (ChangeSet uniqueNameLike: aString)]!

1 0

The Trunk: EToys-mt.501.mcz
by commits＠source.squeak.org 29 Aug '23

29 Aug '23

Marcel Taeumel uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-mt.501.mcz ==================== Summary ==================== Name: EToys-mt.501 Author: mt Time: 29 August 2023, 1:28:57.118076 pm UUID: 75bd2e26-c361-3141-8045-3099f0680337 Ancestors: EToys-mt.500 Removes etoys-specific font from useful sound tool. =============== Diff against EToys-mt.500 =============== Item was changed: ----- Method: SoundLibraryTool>>addSoundList (in category 'initialization') ----- addSoundList "Add the sounds list to the tool." listBox := PluggableMultiColumnListMorph on: self list: #listing selected: #soundIndex changeSelected: #soundIndex:. listBox hResizing: #spaceFill. listBox hideMenuButton. listBox height: 240. + listBox font: Preferences standardDefaultTextFont. - listBox font: Preferences standardEToysFont. self addMorphBack: listBox! Item was changed: ----- Method: SpectrumAnalyzerMorph>>addLevelSliderIn: (in category 'private') ----- addLevelSliderIn: aPoint | levelSlider r | (levelSlider := SimpleSliderMorph new) color: color; sliderColor: Color gray; extent: (aPoint x * 0.75) asInteger @ (aPoint y * 0.6) asInteger; minimumExtent: levelSlider extent; target: soundInput; actionSelector: #recordLevel:; orientation: #horizontal; adjustToValue: soundInput recordLevel. r := AlignmentMorph newRow color: color; layoutInset: 0; wrapCentering: #center; cellPositioning: #leftCenter; hResizing: #shrinkWrap; vResizing: #rigid; height: aPoint y + 2 px. + r addMorphBack: (StringMorph contents: '0 ' font: Preferences standardButtonFont). - r addMorphBack: (StringMorph contents: '0 ' font: Preferences standardEToysButtonFont). r addMorphBack: levelSlider. + r addMorphBack: (StringMorph contents: ' 10' font: Preferences standardButtonFont). - r addMorphBack: (StringMorph contents: ' 10' font: Preferences standardEToysButtonFont). self addMorphBack: r.! Item was changed: ----- Method: SpectrumAnalyzerMorph>>buttonName:action: (in category 'private') ----- buttonName: aString action: aSymbol ^ SimpleButtonMorph new target: self; + label: aString font: Preferences standardButtonFont; - label: aString font: Preferences standardEToysButtonFont; actionSelector: aSymbol !

1 0

The Trunk: MorphicTests-mt.92.mcz
by commits＠source.squeak.org 29 Aug '23

29 Aug '23

Marcel Taeumel uploaded a new version of MorphicTests to project The Trunk: http://source.squeak.org/trunk/MorphicTests-mt.92.mcz ==================== Summary ==================== Name: MorphicTests-mt.92 Author: mt Time: 29 August 2023, 1:19:07.851076 pm UUID: 68c5b955-3fae-8e4f-9c4c-a206e5bb0f7f Ancestors: MorphicTests-tpr.91 Complement Morphic-mt.2120 =============== Diff against MorphicTests-tpr.91 =============== Item was changed: ----- Method: BorderedMorphTests>>test01OldInstVarRefs (in category 'tests') ----- test01OldInstVarRefs "Only BorderedMorph should reference the (deprecated) borderWidth and borderColor isntance variables." self + assert: 3 - assert: 2 equals: (SystemNavigation default allAccessesTo: #borderWidth from: BorderedMorph) size. self + assert: 3 - assert: 2 equals: (SystemNavigation default allAccessesTo: #borderColor from: BorderedMorph) size.!

1 0

The Trunk: ToolBuilder-Morphic-mt.346.mcz
by commits＠source.squeak.org 28 Aug '23

28 Aug '23

Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.346.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-mt.346 Author: mt Time: 28 August 2023, 5:10:53.631367 pm UUID: 134b8d09-ca92-de4d-9a31-4f929e8a3986 Ancestors: ToolBuilder-Morphic-mt.345 Complements Morphic-mt.2126 =============== Diff against ToolBuilder-Morphic-mt.345 =============== Item was changed: ----- Method: PluggableTreeMorph>>specialKeyPressed: (in category 'event handling') ----- specialKeyPressed: asciiValue + self model okToChange + ifFalse: [^ false]. + (super specialKeyPressed: asciiValue) ifTrue: [^ true]. asciiValue = Character tab asciiValue ifTrue: [ self highlightNextColumn. ^ true]. (#(8 13) includes: asciiValue) ifTrue: [ "backspace key or return key" self highlightNoColumn. "i.e., remove filter" priorSelection ifNotNil: [:prior | priorSelection := self selectedPath. asciiValue = 8 ifTrue: [ "backspace key -> revert selection" self selectedPath: prior. self setSelectedMorph: self selectedMorph]]. ^ true]. ^ false!

1 0

The Trunk: Morphic-mt.2126.mcz
by commits＠source.squeak.org 28 Aug '23

28 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2126.mcz ==================== Summary ==================== Name: Morphic-mt.2126 Author: mt Time: 28 August 2023, 5:10:28.265367 pm UUID: 87bda34a-4034-4841-bfbf-59b15ff1d1d3 Ancestors: Morphic-mt.2125 For tree widgets, adds missing #okToChange check. Now it behaves more like list widgets do. =============== Diff against Morphic-mt.2125 =============== Item was changed: ----- Method: SimpleHierarchicalListMorph>>specialKeyPressed: (in category 'event handling') ----- specialKeyPressed: asciiValue + self model okToChange + ifFalse: [^ false]. + (self arrowKey: asciiValue) ifTrue: [^ true]. asciiValue = 27 "escape" ifTrue: [ self currentEvent shiftPressed ifTrue: [self currentWorld putUpWorldMenuFromEscapeKey] ifFalse: [self yellowButtonActivity: false]. ^ true]. ^ false!

1 0

The Trunk: Files-mt.204.mcz
by commits＠source.squeak.org 28 Aug '23

28 Aug '23

Marcel Taeumel uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-mt.204.mcz ==================== Summary ==================== Name: Files-mt.204 Author: mt Time: 28 August 2023, 2:11:28.055114 pm UUID: 5276d13f-8567-6f45-8701-596ccf95d8ca Ancestors: Files-eem.203 Fix typo. =============== Diff against Files-eem.203 =============== Item was changed: ----- Method: FileDirectory class>>getenv: (in category 'platform specific') ----- getenv: aByteString <primitive: 'primitiveGetenv' module: '' error: ec> ec == #'bad argument' ifTrue: [aByteString isString ifFalse: [^self getenv: aByteString asString]]. + self primitiveFailed! - self primitiveFail!

1 0

The Trunk: Graphics-mt.543.mcz
by commits＠source.squeak.org 28 Aug '23

28 Aug '23

Marcel Taeumel uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-mt.543.mcz ==================== Summary ==================== Name: Graphics-mt.543 Author: mt Time: 28 August 2023, 2:10:50.349114 pm UUID: e5d8ceff-fb09-0b41-b8de-2a1dd54d1275 Ancestors: Graphics-mt.542 Fix typo. =============== Diff against Graphics-mt.542 =============== Item was changed: ----- Method: Bitmap>>decompress:fromByteArray:at: (in category 'filing') ----- decompress: bm fromByteArray: ba at: index "Decompress the body of a byteArray encoded by compressToByteArray (qv)... The format is simply a sequence of run-coded pairs, {N D}*. N is a run-length * 4 + data code. D, the data, depends on the data code... 0 skip N words, D is absent (could be used to skip from one raster line to the next) 1 N words with all 4 bytes = D (1 byte) 2 N words all = D (4 bytes) 3 N words follow in D (4N bytes) S and N are encoded as follows (see decodeIntFrom:)... 0-223 0-223 224-254 (0-30)*256 + next byte (0-7935) 255 next 4 bytes" "NOTE: If fed with garbage, this routine could read past the end of ba, but it should fail before writing past the ned of bm." | i code n anInt data end k pastEnd | <primitive: 'primitiveDecompressFromByteArray' module: 'MiscPrimitivePlugin'> <var: #bm type: 'int *'> <var: #ba type: 'unsigned char *'> <var: #anInt type: 'unsigned int'> "Force the type, otherwise it is inferred as unsigned char because assigned from ba" <var: #data type: 'unsigned int'> i := index. "byteArray read index" end := ba size. k := 1. "bitmap write index" pastEnd := bm size + 1. [i <= end] whileTrue: ["Decode next run start N" anInt := ba at: i. i := i+1. anInt <= 223 ifFalse: [anInt <= 254 ifTrue: [anInt := (anInt-224)*256 + (ba at: i). i := i+1] ifFalse: [anInt := 0. 1 to: 4 do: [:j | anInt := (anInt bitShift: 8) + (ba at: i). i := i+1]]]. n := anInt >> 2. + (k + n) > pastEnd ifTrue: [^ self primitiveFailed]. - (k + n) > pastEnd ifTrue: [^ self primitiveFail]. code := anInt bitAnd: 3. code = 0 ifTrue: ["skip"]. code = 1 ifTrue: ["n consecutive words of 4 bytes = the following byte" data := ba at: i. i := i+1. data := data bitOr: (data bitShift: 8). data := data bitOr: (data bitShift: 16). 1 to: n do: [:j | bm at: k put: data. k := k+1]]. code = 2 ifTrue: ["n consecutive words = 4 following bytes" data := 0. 1 to: 4 do: [:j | data := (data bitShift: 8) bitOr: (ba at: i). i := i+1]. 1 to: n do: [:j | bm at: k put: data. k := k+1]]. code = 3 ifTrue: ["n consecutive words from the data..." 1 to: n do: [:m | data := 0. 1 to: 4 do: [:j | data := (data bitShift: 8) bitOr: (ba at: i). i := i+1]. bm at: k put: data. k := k+1]]]!

1 0

The Trunk: Morphic-mt.2125.mcz
by commits＠source.squeak.org 23 Aug '23

23 Aug '23

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.2125.mcz ==================== Summary ==================== Name: Morphic-mt.2125 Author: mt Time: 23 August 2023, 1:23:18.620295 pm UUID: f4c0a436-75ae-3f41-b731-df0c4aa3cf8a Ancestors: Morphic-mt.2124 From the recently refurbished AnimatedImageMorph, remove some dead code. #maxImagesExtent got never implemented. Note that there is still that class-side #fromGIFFileNamed: interface. =============== Diff against Morphic-mt.2124 =============== Item was removed: - ----- Method: AnimatedImageMorph>>fromGIFFileNamed: (in category 'private') ----- - fromGIFFileNamed: fileName - self fromReader: (GIFReadWriter formsFromFileNamed: fileName)! Item was removed: - ----- Method: AnimatedImageMorph>>fromReader: (in category 'private') ----- - fromReader: reader - images := reader forms. - delays := reader delays. - (images anySatisfy:[:each|(each colors includes: Color transparent)]) ifTrue:[self isOpaque: true]. - self reset.! Item was removed: - ----- Method: AnimatedImageMorph>>reset (in category 'private') ----- - reset - imageIndex := 1. - self image: (Form extent: self maxImagesExtent depth: 32).!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages August 2023