Squeak-dev February 2022

squeak-dev@lists.squeakfoundation.org

30 participants
331 discussions

The Inbox: Collections-ct.949.mcz
by commits＠source.squeak.org 08 Apr '22

08 Apr '22

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/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]]]]!

3 2

The Inbox: Collections-ct.860.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ct.860.mcz ==================== Summary ==================== Name: Collections-ct.860 Author: ct Time: 15 November 2019, 1:58:56.418005 pm UUID: f6364e7f-08c8-694a-9060-21bc0a0c28d4 Ancestors: Collections-pre.857 Add convenience constructor for Dictionary Dictionary fromKeys: 'wasd' values: '8426' =============== Diff against Collections-pre.857 =============== Item was added: + ----- Method: Dictionary class>>fromKeys:values: (in category 'instance creation') ----- + fromKeys: keys values: values + + | dictionary | + self assert: [keys size = values size]. + dictionary := self new: keys size. + keys with: values do: [:key :value | + dictionary add: key -> value]. + ^ dictionary!

7 7

The Inbox: Collections-ct.920.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ct.920.mcz ==================== Summary ==================== Name: Collections-ct.920 Author: ct Time: 4 November 2020, 8:02:08.093134 pm UUID: f516a6ba-d9ee-0944-be9b-ad4093133c08 Ancestors: Collections-ct.920 Proposal: Honor scaleFactor for default spacings in text constants. With this change, tabs in every text editor are finally displayed hi-dpi-sensitive. Note that I found this method rather by incident than by expertise! I strongly advise against merging this into the Trunk without prior review by someone who has a bit more knowledge of this domain than me. ;-) Is this the right place for such a change, or should we patch the senders of every constant instead? Requires System-ct.1188. =============== Diff against Collections-ct.920 ===============

2 1

The Inbox: Collections-ct.875.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ct.875.mcz ==================== Summary ==================== Name: Collections-ct.875 Author: ct Time: 16 February 2020, 3:32:23.116 pm UUID: 61ea773b-1408-c040-a712-09238ee6fe2f Ancestors: Collections-topa.873 Extends and realigns version of #findFirst: and #findLast:. =============== Diff against Collections-topa.873 =============== Item was changed: ----- Method: SequenceableCollection>>findFirst: (in category 'enumerating') ----- findFirst: aBlock - "Return the index of my first element for which aBlock evaluates as true." + ^ self findFirst: aBlock startingAt: 1! - | index | - index := 0. - [(index := index + 1) <= self size] whileTrue: - [(aBlock value: (self at: index)) ifTrue: [^index]]. - ^ 0! Item was added: + ----- Method: SequenceableCollection>>findFirst:ifNone: (in category 'enumerating') ----- + findFirst: aBlock ifNone: anotherBlock + + ^ self findFirst: aBlock startingAt: 1 ifNone: anotherBlock! Item was added: + ----- Method: SequenceableCollection>>findFirst:startingAt: (in category 'enumerating') ----- + findFirst: aBlock startingAt: minIndex + + ^ self findFirst: aBlock startingAt: minIndex ifNone: [0]! Item was added: + ----- Method: SequenceableCollection>>findFirst:startingAt:ifNone: (in category 'enumerating') ----- + findFirst: aBlock startingAt: minIndex ifNone: anotherBlock + "Return the index of my first element with index >= minIndex for which aBlock evaluates as true. If no element is found, return the value of anotherBlock." + + | index | + index := minIndex - 1. + [(index := index + 1) <= self size] whileTrue: + [(aBlock value: (self at: index)) ifTrue: [^index]]. + ^ anotherBlock value! Item was changed: ----- Method: SequenceableCollection>>findLast: (in category 'enumerating') ----- findLast: aBlock - "Return the index of my last element for which aBlock evaluates as true." + ^ self findLast: aBlock startingAt: 1! - | index | - index := self size + 1. - [(index := index - 1) >= 1] whileTrue: - [(aBlock value: (self at: index)) ifTrue: [^index]]. - ^ 0! Item was added: + ----- Method: SequenceableCollection>>findLast:ifNone: (in category 'enumerating') ----- + findLast: aBlock ifNone: anotherBlock + + ^ self findLast: aBlock startingAt: 1 ifNone: anotherBlock! Item was changed: ----- Method: SequenceableCollection>>findLast:startingAt: (in category 'enumerating') ----- + findLast: aBlock startingAt: minIndex - findLast: aBlock startingAt: i - "Return the index of my last element with index >= i for which aBlock evaluates as true." + ^ self findLast: aBlock startingAt: minIndex ifNone: [0]! - | index | - index := self size + 1. - [(index := index - 1) >= i] whileTrue: - [(aBlock value: (self at: index)) ifTrue: [^index]]. - ^ 0! Item was added: + ----- Method: SequenceableCollection>>findLast:startingAt:ifNone: (in category 'enumerating') ----- + findLast: aBlock startingAt: minIndex ifNone: anotherBlock + "Return the index of my last element with index >= minIndex for which aBlock evaluates as true. If no element is found, return the value of anotherBlock." + + | index | + index := self size + 1. + [(index := index - 1) >= minIndex] whileTrue: + [(aBlock value: (self at: index)) ifTrue: [^index]]. + ^ anotherBlock value!

6 12

The Inbox: Collections-ct.871.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

A new version of Collections was added to project The Inbox: http://source.squeak.org/inbox/Collections-ct.871.mcz ==================== Summary ==================== Name: Collections-ct.871 Author: ct Time: 30 December 2019, 3:06:02.364602 pm UUID: 235b9546-6ad3-b547-8661-38c5f2a98374 Ancestors: Collections-nice.868 Refactor CharacterClass >> #constantNames: Use reflection instead of hardcoding all names. With this change, further characters such as Character arrowLeft are printed legibly. =============== Diff against Collections-nice.868 =============== Item was changed: ----- Method: Character class>>constantNames (in category 'private') ----- constantNames + ^ self class methodsInCategory: #'accessing untypeable characters'! - ^ #( backspace cr delete escape lf null newPage space tab ).!

2 1

The Trunk: Tools-mt.1102.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.1102.mcz ==================== Summary ==================== Name: Tools-mt.1102 Author: mt Time: 11 January 2022, 10:58:04.097851 am UUID: 1b324423-7076-45b9-898d-9c282b430fc6 Ancestors: Tools-mt.1101 Fixes regression in ChangeSorter, which got visible MVC but not Morphic. Somebody added #buildWith: to Morph ... not sure why. =============== Diff against Tools-mt.1101 =============== Item was changed: ----- Method: ChangeSorter>>buildWith: (in category 'toolbuilder') ----- buildWith: builder + ^ self + buildWith: builder + in: (self buildWindowWith: builder) + rect: (0@0 extent: 1@1)! - ^ builder build: - (self - buildWith: builder - in: (self buildWindowWith: builder) - rect: (0@0 extent: 1@1))!

3 2

The Trunk: Tools-ct.1091.mcz
by commits＠source.squeak.org 07 Apr '22

07 Apr '22

Christoph Thiede uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.1091.mcz ==================== Summary ==================== Name: Tools-ct.1091 Author: ct Time: 15 December 2021, 8:01:22.087022 pm UUID: 5b6f6413-b247-5642-8890-68b2ccfacbdc Ancestors: Tools-ct.1089 Fixes a slip introduced with BlockClosureInspector. Make sure to reset the styler's workspace variable after switching to a different kind of inspector (i.e., in the context of a debugger). Otherwise, you might see error messages such as "MessageNotUnderstood: Inspector>>hasBindingOf:". :-) =============== Diff against Tools-ct.1089 =============== Item was changed: ----- Method: Inspector>>updateStyler:requestor: (in category 'user interface - styling') ----- updateStyler: aStyler requestor: anObject "Use this method to update our fieldListStyler and all view stylers." aStyler environment: self environment; classOrMetaClass: (self doItReceiver perform: #class "do not inline send of #class, receiver could be a proxy"); context: self doItContext; + parseAMethod: false; + workspace: nil "Normally we don't need this, but probably a workspace has been specified when the receiver was belonging to another class. See #inspect: and BlockClosureInspector >> #updateStyler:requestor:.".! - parseAMethod: false.!

3 3

The Trunk: System-mt.1305.mcz
by commits＠source.squeak.org 05 Apr '22

05 Apr '22

Marcel Taeumel uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-mt.1305.mcz ==================== Summary ==================== Name: System-mt.1305 Author: mt Time: 9 February 2022, 5:31:22.718056 pm UUID: f02afc35-14e5-274f-b5c2-7ca510faef0d Ancestors: System-mt.1304 Increase standard window extent by about 8% so that the system browsers 'implementors' button's label is not clipped when opening a fresh browser. Works on all scale factors. =============== Diff against System-mt.1304 =============== Item was changed: ----- Method: RealEstateAgent class>>initialize (in category 'class initialization') ----- initialize "Initialize the class variables in the receiver. 5/22/96 sw" "RealEstateAgent initialize" StaggerOffset := 6 @ 20. ReverseStaggerOffset := -6 @ 20. StaggerOrigin := 200 @ 30. + StandardSize := 650 @ 425.! - StandardSize := 600@400.!

5 6

The Trunk: Compression-dtl.61.mcz
by commits＠source.squeak.org 28 Mar '22

28 Mar '22

David T. Lewis uploaded a new version of Compression to project The Trunk: http://source.squeak.org/trunk/Compression-dtl.61.mcz ==================== Summary ==================== Name: Compression-dtl.61 Author: dtl Time: 15 February 2022, 10:38:51.880942 pm UUID: 64e55d6a-3ee9-46c3-b62c-91815ba8ad34 Ancestors: Compression-cmm.60 Allow a compressed copy of the sources file to be held in object memory without file system dependency. Adds class CompressedSources, extending CompressedSourceStream to hold its segmentFile (normally an .stc file on disk) in a ReadWriteStream rather than on the file system. Use the 'Cache sources file' preference in category 'Files' to enable use of the internal sources file. When the preference is later disabled, a new sources file will be written to the default directory if no existing sources file can otherwise be located. =============== Diff against Compression-cmm.60 =============== Item was added: + CompressedSourceStream subclass: #CompressedSources + instanceVariableNames: '' + classVariableNames: 'CachedSources' + poolDictionaries: '' + category: 'Compression-Streams'! + + !CompressedSources commentStamp: 'dtl 1/16/2022 17:39' prior: 0! + A CompressedSources is a CompressedSourceStream that holds its sources in the image rather than in an external file. + ! Item was added: + ----- Method: CompressedSources class>>cachedSources (in category 'accessing') ----- + cachedSources + ^CachedSources! Item was added: + ----- Method: CompressedSources class>>fromSourceFileArray (in category 'instance creation') ----- + fromSourceFileArray + "Answer a new instance created from the existing SourceFiles" + + "CompressedSources fromSourceFileArray" + + | f sourcesName | + f := SourceFiles first readOnlyCopy. + sourcesName := f localName. + (sourcesName endsWith: 'sources') + ifTrue: [^self fromSourcesFile: f]. + ^f asCompressedSources. + ! Item was added: + ----- Method: CompressedSources class>>fromSourcesFile: (in category 'private') ----- + fromSourcesFile: f + + | cf | + f binary. "binary to preserve utf8 encoding" + cf := (CompressedSources on: (ReadWriteStream with: ByteArray new)) + segmentSize: 65536 maxSize: f size. + + "Copy the sources" + 'Compressing Sources File...' + displayProgressAt: Sensor cursorPoint + from: 0 to: f size + during: + [:bar | f position: 0. + [f atEnd] whileFalse: + [cf nextPutAll: (f next: 65536). + bar value: f position]]. + ^cf. + ! Item was added: + ----- Method: CompressedSources class>>internalizeSources (in category 'accessing') ----- + internalizeSources + + <preference: 'Cache sources file' + category: 'Files' + description: 'If true, a compressed sources file will be kept in the image to avoid file system access' + type: #Boolean> + ^CachedSources notNil + ! Item was added: + ----- Method: CompressedSources class>>internalizeSources: (in category 'accessing') ----- + internalizeSources: internalize + internalize + ifNotNil: [| msg | + msg := 'No external ' translated , Smalltalk sourceFileVersionString , ' sources file found' translated. + internalize + ifTrue: [CachedSources := self fromSourceFileArray position: 0] + ifFalse: [Smalltalk locateSourcesEntry + ifNil: [((self confirm: msg , ', save a local copy?' translated) + and: [self saveSourcesToLocalFile]) + ifFalse: [^ msg , ' (preference not changed)' translated]]. + CachedSources := nil]. + Smalltalk closeSourceFiles; openSourceFiles]! Item was added: + ----- Method: CompressedSources class>>saveSourcesToLocalFile (in category 'accessing') ----- + saveSourcesToLocalFile + "Save the compressed sources to a .sources file in the default directory. Answer true for success" + + | sourcesName fs | + sourcesName := Smalltalk sourceFileVersionString , '.sources'. + (FileDirectory default fileExists: sourcesName) + ifTrue: [self error: sourcesName , ' already exists in the default directory'. + ^ false]. + [[| sourceData | + fs := FileStream newFileNamed: sourcesName. + fs binary. + sourceData := ProgressInitiationException + display: 'converting compressed sources' + during: [:bar | CachedSources uncompressedBytes: bar]. + fs nextPutAll: sourceData] + ensure: [fs close]] + on: Error + do: [:e | + self notify: 'failed writing ' , sourcesName. + ^ false]. + ^ true! Item was added: + ----- Method: CompressedSources>>asCompressedSources (in category 'converting') ----- + asCompressedSources + ^self! Item was added: + ----- Method: CompressedSources>>readOnlyCopy (in category 'file open/close') ----- + readOnlyCopy + "Not required for source file management, just answer a copy" + ^self copy! Item was added: + ----- Method: CompressedSources>>reopen (in category 'file open/close') ----- + reopen + self position: 0. + !

3 2

use "FileDirectory slash" when reading SampledInstrument
by David O'Toole 27 Mar '22

27 Mar '22

For some reason this method uses a colon as a path separator. I updated it to use "FileDirectory slash". I may need to update the other SampledInstrument class side methods as well, they do the same thing. I think I have found an issue with the AIFF reader's reading of loop points, I'm debugging now and will send a separate message.

3 5

← Newer
1
...
4
5
6
7
8
9
10
...
34
Older →

Jump to page: