Squeak-dev November 2021

squeak-dev@lists.squeakfoundation.org

27 participants
277 discussions

The Trunk: Kernel-eem.1420.mcz
by commits＠source.squeak.org 02 Nov '21

02 Nov '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1420.mcz ==================== Summary ==================== Name: Kernel-eem.1420 Author: eem Time: 2 November 2021, 8:11:49.057099 am UUID: 3b580b38-8061-4dd8-9485-3fec3dd2c04a Ancestors: Kernel-eem.1419 Merge Kernel-ct.1407 Fixes #isPrimFailToken: for objects that do not implement #isArray in a conventional way, or that do not implement it all. The following should be debuggable without any problems, but currently is not due to a regression in Kernel-eem.1366. Fur more information, see: http://forum.world.st/The-Trunk-Kernel-eem-1366-mcz-td5126558.html =============== Diff against Kernel-eem.1419 =============== Item was changed: ----- Method: Context>>isPrimFailToken: (in category 'private') ----- isPrimFailToken: contextOrPrimFailToken "Answer if contextOrPrimFailToken, which will either be a Context object or a primitive fail token (a tuple of the PrimitiveFailToken unique object and a primitive failure code), is the latter. This should only be used with the (possibly indirect) results of Context>>doPrimitive:method:receiver:args:" + ^ (self objectClass: contextOrPrimFailToken) == Array - ^contextOrPrimFailToken isArray and: [contextOrPrimFailToken size = 2 and: [(contextOrPrimFailToken at: 1) == PrimitiveFailToken]]!

2 1

The Inbox: ShoutCore-ct.89.mcz
by commits＠source.squeak.org 02 Nov '21

02 Nov '21

A new version of ShoutCore was added to project The Inbox: http://source.squeak.org/inbox/ShoutCore-ct.89.mcz ==================== Summary ==================== Name: ShoutCore-ct.89 Author: ct Time: 2 November 2021, 2:20:22.623566 pm UUID: 9564b1cf-01d0-514a-9f7d-9829b7376c13 Ancestors: ShoutCore-mt.85 Makes sure to unregister the TextStyler correctly when unloading Shout. Opposite of #intialize. =============== Diff against ShoutCore-mt.85 =============== Item was added: + ----- Method: SHTextStylerST80 class>>unload (in category 'class initialization') ----- + unload + + TextStyler unregister: self for: #Smalltalk.!

1 0

The Inbox: ShoutCore-ct.88.mcz
by commits＠source.squeak.org 02 Nov '21

02 Nov '21

A new version of ShoutCore was added to project The Inbox: http://source.squeak.org/inbox/ShoutCore-ct.88.mcz ==================== Summary ==================== Name: ShoutCore-ct.88 Author: ct Time: 2 November 2021, 2:19:23.507566 pm UUID: 0945b74c-2a5d-204a-8da8-84c6af50f872 Ancestors: ShoutCore-mt.85 Forwards orphane preference #syntaxHighlightingAsYouType to 'TextStyler defaultFor: #Smalltalk'. Note that not all places in the system use the TextStyler abstraction until now. I'm preparing a changeset that fixes this. =============== Diff against ShoutCore-mt.85 =============== Item was changed: SHTextStyler subclass: #SHTextStylerST80 instanceVariableNames: 'classOrMetaClass workspace font parser formatAssignments environment sourceMap processedSourceMap pixelHeight attributesByPixelHeight parseAMethod context' + classVariableNames: 'SyntaxHighlightingAsYouTypeAnsiAssignment SyntaxHighlightingAsYouTypeLeftArrowAssignment TextAttributesByPixelHeight' - classVariableNames: 'SyntaxHighlightingAsYouType SyntaxHighlightingAsYouTypeAnsiAssignment SyntaxHighlightingAsYouTypeLeftArrowAssignment TextAttributesByPixelHeight' poolDictionaries: '' category: 'ShoutCore-Styling'! !SHTextStylerST80 commentStamp: 'tween 8/27/2004 10:55' prior: 0! I style Smalltalk methods and expressions. My 'styleTable' class instance var holds an array ofArrays which control how each token is styled/coloured. See my defaultStyleTable class method for its structure. My styleTable can be changed by either modifying the defaultStyleTable class method and then executing SHTextStylerST80 initialize ; or by giving me a new styleTable through my #styleTable: class method. My 'textAttributesByPixelSize' class instance var contains a dictionary of dictionaries. The key is a pixelSize and the value a Dictionary from token type Symbol to TextAttribute array. It is created/maintained automatically. I also install these 3 preferences when my class initialize method is executed.... #syntaxHighlightingAsYouType - controls whether methods are styled in browsers #syntaxHighlightingAsYouTypeAnsiAssignment - controls whether assignments are formatted to be := #syntaxHighlightingAsYouTypeLeftArrowAssignment - controls whether assignments are formatted to be _ I reimplement #unstyledTextFrom: so that TextActions are preserved in the unstyled text ! Item was changed: ----- Method: SHTextStylerST80 class>>syntaxHighlightingAsYouType (in category 'preferences') ----- syntaxHighlightingAsYouType <preference: 'syntaxHighlightingAsYouType' category: 'browsing' description: 'Enable, or disable, Shout - Syntax Highlighting As You Type. When enabled, code in Browsers and Workspaces is styled to reveal its syntactic structure. When the code is changed (by typing some characters, for example), the styling is changed so that it remains in sync with the modified code.' type: #Boolean> + + ^ (TextStyler defaultFor: #Smalltalk) = self! - ^SyntaxHighlightingAsYouType ifNil: [true]! Item was changed: ----- Method: SHTextStylerST80 class>>syntaxHighlightingAsYouType: (in category 'preferences') ----- syntaxHighlightingAsYouType: aBoolean + + self syntaxHighlightingAsYouType = aBoolean ifTrue: [^ self]. + + TextStyler + default: (aBoolean ifTrue: [self] ifFalse: [nil]) + for: #Smalltalk.! - SyntaxHighlightingAsYouType := aBoolean.!

1 0

The Inbox: Morphic-ct.1793.mcz
by commits＠source.squeak.org 02 Nov '21

02 Nov '21

A new version of Morphic was added to project The Inbox: http://source.squeak.org/inbox/Morphic-ct.1793.mcz ==================== Summary ==================== Name: Morphic-ct.1793 Author: ct Time: 2 November 2021, 2:13:50.787566 pm UUID: 7a1dd790-4559-fd46-808a-307e588d6f71 Ancestors: Morphic-mt.1785 Resolves two sends to deprecated messages. =============== Diff against Morphic-mt.1785 =============== Item was changed: ----- Method: MenuMorph>>balloonTextForLastItem: (in category 'construction') ----- balloonTextForLastItem: balloonText + submorphs last balloonText: balloonText! - submorphs last setBalloonText: balloonText! Item was changed: ----- Method: SystemWindow>>closeBoxHit (in category 'open/close') ----- closeBoxHit "The user clicked on the close-box control in the window title. For Mac users only, the Mac convention of option-click-on-close-box is obeyed if the mac option key is down." Preferences dismissAllOnOptionClose ifTrue: + [self currentEvent optionKeyPressed ifTrue: - [Sensor rawMacOptionKeyPressed ifTrue: [^ self world closeUnchangedWindows]]. self delete !

1 0

The Inbox: System-ct.1248.mcz
by commits＠source.squeak.org 02 Nov '21

02 Nov '21

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1248.mcz ==================== Summary ==================== Name: System-ct.1248 Author: ct Time: 2 November 2021, 2:08:54.644566 pm UUID: dd319d9f-bf79-3348-a4fa-ab08d6074eb1 Ancestors: System-eem.1244 Honor the preference #checkForUnsavedProjects when closing a project. =============== Diff against System-eem.1244 =============== Item was changed: ----- Method: Project>>okToChange (in category 'release') ----- okToChange "Answer whether the window in which the project is housed can be dismissed -- which is destructive. We never clobber a project without confirmation" | answer | (self isCurrentProject and: [self isTopProject]) ifTrue: [ self inform: 'You cannot close the top project.'. ^ false]. + ((Preferences valueOfFlag: #checkForUnsavedProjects) = false ==> + [self confirm: ('Do you really want to delete the project\{1}\and all its content?' withCRs translated format:{self name})]) - (self confirm: ('Do you really want to delete the project\{1}\and all its content?' withCRs translated format:{self name})) ifFalse: [^ false]. self subProjects ifNotEmpty: [:sp | answer := Project uiManager chooseFrom: #( "1" 'Lift all sub-projects' "2" 'Discard all sub-projects (NO UNDO!!)' "3 or 0" 'Cancel') lines: #(2) title: ('The project {1}\contains {2} sub-project(s).' withCRs translated format:{self name. sp size}). (answer = 0 or: [answer = 3]) ifTrue: [^ false]. answer = 1 ifTrue: [self liftSubProjects. ^ true]. answer = 2 ifTrue: [^ sp allSatisfy: [:ea | [ea okToChange] valueSuppressingMessages: {'*delete the project*and all its content*'}]]]. ^ true!

1 0

The Inbox: Monticello-ct.756.mcz
by commits＠source.squeak.org 02 Nov '21

02 Nov '21

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-ct.756.mcz ==================== Summary ==================== Name: Monticello-ct.756 Author: ct Time: 2 November 2021, 2:05:38.669566 pm UUID: 9d6301ac-f912-a742-8779-225931a59ba5 Ancestors: Monticello-ul.753 Honor the preference #checkForNewerVersionsBeforeSave again, which was previously unused. =============== Diff against Monticello-ul.753 =============== Item was changed: ----- Method: MCWorkingCopyBrowser>>saveVersion (in category 'actions') ----- saveVersion | repo | self canSave ifFalse: [^self]. + self class checkForNewerVersionsBeforeSave ==> [self checkForNewerVersions] ifFalse: [^self]. - self checkForNewerVersions ifFalse: [^self]. repo := self repository. (repo == MCRepository trunk and: [SystemVersion current isFeatureFreeze]) ifTrue: [self inform: 'FEATURE FREEZE. A new release is being prepared.\Please do only do bugfixes, but no new features.' translated withCRs]. (repo == MCRepository trunk and: [SystemVersion current isCodeFreeze]) ifTrue: [self inform: 'CODE FREEZE. The new release is almost ready.\Please do only do URGENT fixes, if any.' translated withCRs]. (self withRepository: repo do: [workingCopy newVersion]) ifNotNil: [:v | (MCVersionInspector new version: v) show. Cursor wait showWhile: [repo storeVersion: v]. MCCacheRepository default cacheAllFileNamesDuring: [repo cacheAllFileNamesDuring: [v allAvailableDependenciesDo: [:dep | (repo includesVersionNamed: dep info name) ifFalse: [repo storeVersion: dep]]]]]!

1 0

The Trunk: Kernel-eem.1366.mcz
by commits＠source.squeak.org 02 Nov '21

02 Nov '21

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1366.mcz ==================== Summary ==================== Name: Kernel-eem.1366 Author: eem Time: 26 January 2021, 4:27:57.204259 pm UUID: 3a706d32-c2d6-416f-82c1-bbf735650385 Ancestors: Kernel-eem.1365 Slightly faster implementation of Context>>#isPrimFailToken:. Improve the comments in Context>>#isHandlerContext/#isUnwindContext. Nuke an obsolete method. =============== Diff against Kernel-eem.1365 =============== Item was changed: ----- Method: Context>>isHandlerContext (in category 'private-exceptions') ----- isHandlerContext + "Answer if the receiver is for a method that is marked as an exception handler. + BlockClosure>>#on:do: uses this primitive to identify itself to the VM + as an exception handler method, which the VM uses in primitive 197 + Context>>#findNextHandlerContextStarting, primitiveFindHandlerContext, + to accelerate the search for exception handlers." - "is this context for method that is marked?" ^method primitive = 199! Item was changed: ----- Method: Context>>isPrimFailToken: (in category 'private') ----- isPrimFailToken: anObject + ^(self objectClass: anObject) isArray - ^(self objectClass: anObject) == Array and: [anObject size = 2 + and: [(anObject at: 1) == PrimitiveFailToken]]! - and: [anObject first == PrimitiveFailToken]]! Item was changed: ----- Method: Context>>isUnwindContext (in category 'private-exceptions') ----- isUnwindContext + "Answer if the receiver is for a method that is marked as a non-local return/exception unwind protect. + BlockClosure>>#ensure: and BlockClosure>>#ifCurtailed: use this primitive to identify + themseves to the VM as unwind protect methods. The VM uses this in primitive 195 + Context>>#findNextUnwindContextUpTo:, primitiveFindNextUnwindContext, to + accelerate the search for unwind protects." - "is this context for method that is marked?" ^method primitive = 198! Item was removed: - ----- Method: Context>>tryPrimitiveFor:receiver:args: (in category 'private') ----- - tryPrimitiveFor: method receiver: receiver args: arguments - "If this method has a primitive index, then run the primitive and return its result. - Otherwise (and also if the primitive fails) return PrimitiveFailToken, - as an indication that the method should be activated and run as bytecodes." - | primIndex | - (primIndex := method primitive) = 0 ifTrue: [^{PrimitiveFailToken. nil}]. - ^ self doPrimitive: primIndex method: method receiver: receiver args: arguments!

7 21

Many questions about sounds :-)
by Thiede, Christoph 01 Nov '21

01 Nov '21

Hi all! As I'm currently developing a small project that uses sounds in Squeak, I have collected a number of questions about the Sound package and am hoping to find some answers here. Even if you are able to answer one or two questions only, I will appreciate your help! :-) 1. What is the difference between QueueSound and SequentialSound? Roughly speaking, they both appear to do the same. AbstractSound >> #, uses SequentialSound whereas QueueSound might be thread-safe. Is there any reason why the two are not unioned into a single class? 2. Why could my coffeeCupClink be broken? It's already the second image in which I, after playing around a bit with sounds, managed to break that sound by accident. In both affected images, Beeper beep just does not beep any more. However, all other SampledSounds still sound fine. SampledSound initialize and VM restart didn't help. I even tried to find out what's going wrong with the help of comparative debugging of #play, but I did not discover any meaningful difference ... 3. SoundService/SoundPlayer/SoundSystem are not thread-safe, are they? 4. Why does it take so much time to start the SoundPlayer? I could reproduce this in two images using: [[PluckedSound default play] timeProfile] fork. In both cases, the image was busy for ~150ms. If another sound is already playing, #play is fast. According to the TimeProfileBrowser, #newProcess eats up all the time (see attachment), but can this really be true? Can you reproduce this on your machines or could this be a Windows-specific thing? 5. Is there any built-in way for loudness normalization (as opposed to "normal" volume)? 6. Can you recommend any further resources in Squeak for other sound concepts such as ring modulation, sawtooth/triangle/square waves, or also other musical instruments? For example, there are flutes and oboes, but I did not find a piano sound. Would it be possible to build one as a combination of FMSounds or are these instruments more sophisticated to program? Thanks in advance and have a happy weekend! Best, Christoph

5 12

The Inbox: Compiler-ct.461.mcz
by commits＠source.squeak.org 01 Nov '21

01 Nov '21

A new version of Compiler was added to project The Inbox: http://source.squeak.org/inbox/Compiler-ct.461.mcz ==================== Summary ==================== Name: Compiler-ct.461 Author: ct Time: 1 November 2021, 10:25:20.583439 pm UUID: 54d8cf25-d890-4249-a344-ad0bac974d38 Ancestors: Compiler-eem.460 Revise description of #prefAllowUnicharSymbol. '#,' is indeed allowed always (#(1) perform: #, with: #(2)) but '#' (pure hash) is not. =============== Diff against Compiler-eem.460 =============== Item was changed: ----- Method: Scanner class>>prefAllowUnicharSymbol (in category 'preferences') ----- prefAllowUnicharSymbol "Accessor for the system-wide preference" + <preference: 'Allow symbols with unique character like #.' - <preference: 'Allow symbols with unique character like #,' category: 'Compiler' + description: 'When true, the historical syntax #., #,, or # is allowed.' - description: 'When true, the historical syntax #, #; or #. is allowed.' type: #Boolean> ^AllowUnicharSymbol ifNil: [false]!

1 0

The Inbox: System-ct.1247.mcz
by commits＠source.squeak.org 01 Nov '21

01 Nov '21

A new version of System was added to project The Inbox: http://source.squeak.org/inbox/System-ct.1247.mcz ==================== Summary ==================== Name: System-ct.1247 Author: ct Time: 1 November 2021, 10:04:00.342754 pm UUID: 6e390f87-148f-d346-a397-a0b1b38a3d88 Ancestors: System-eem.1244 Enables shout and improves multilingual support when editing a changeset postscript. =============== Diff against System-eem.1244 =============== Item was changed: ----- Method: ChangeSet>>editPostscript (in category 'accessing') ----- editPostscript "edit the receiver's postscript, in a separate window. " self assurePostscriptExists. UIManager default edit: self postscript + label: ('Postscript for change set named {1}' translated format: {name}) + shouldStyle: true + accept: [:string | self postscript: string].! - label: 'Postscript for ChangeSet named ', name - accept:[:aString| self postscript: aString].!

1 0

Jump to page: