Packages September 2020

packages@lists.squeakfoundation.org

1 participants
56 discussions

The Trunk: Chronology-Core-dtl.57.mcz
by commits＠source.squeak.org 05 Sep '20

05 Sep '20

David T. Lewis uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-dtl.57.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.57 Author: dtl Time: 5 September 2020, 11:37:48.320554 am UUID: a2e27812-3d4b-4db0-b3ce-e1371c1c895b Ancestors: Chronology-Core-ul.55 Clean up a leftover FIXME in DateAndTime>>asTimeStamp =============== Diff against Chronology-Core-ul.55 =============== Item was changed: ----- Method: DateAndTime>>asTimeStamp (in category 'squeak protocol') ----- asTimeStamp + ^ self as: TimeStamp! - ^ self - asDateAndTime "FIXME LX hack for test support" - as: TimeStamp!

1 0

The Trunk: Morphic-mt.1679.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1679.mcz ==================== Summary ==================== Name: Morphic-mt.1679 Author: mt Time: 3 September 2020, 1:31:22.442904 pm UUID: 88c94469-c1c1-4781-8e75-6a59d3bd76ee Ancestors: Morphic-LM.1678, Morphic-mt.1675 Merge commits. =============== Diff against Morphic-LM.1678 =============== Item was changed: ----- Method: DialogWindow>>createMessage: (in category 'initialization') ----- createMessage: aString messageMorph := aString asText asMorph. messageMorph name: 'Message'; readOnly: true; setProperty: #indicateKeyboardFocus toValue: #never; + handlesKeyboardOnlyOnFocus: true. "If user presses enter while only hovering the text, we want to process the stroke to close the dialog." - setProperty: #needsClickToFocus toValue: true. self setMessageParameters. ^ messageMorph! Item was changed: ----- Method: Morph>>handleKeyDown: (in category 'events-processing') ----- handleKeyDown: anEvent "System level event handling." + anEvent wasHandled ifTrue: [^ self]. + (self handlesKeyboard: anEvent) ifFalse: [^ self]. + (anEvent hand keyboardFocus ~~ self + and: [self handlesKeyboardOnlyOnFocus]) + ifTrue: [^ self]. + - anEvent wasHandled ifTrue:[^self]. - (self handlesKeyboard: anEvent) ifFalse:[^self]. anEvent wasHandled: true. + ^ self keyDown: anEvent! - ^self keyDown: anEvent! Item was changed: ----- Method: Morph>>handleKeyUp: (in category 'events-processing') ----- handleKeyUp: anEvent "System level event handling." + anEvent wasHandled ifTrue: [^ self]. + (self handlesKeyboard: anEvent) ifFalse: [^ self]. + (anEvent hand keyboardFocus ~~ self + and: [self handlesKeyboardOnlyOnFocus]) + ifTrue: [^ self]. + - anEvent wasHandled ifTrue:[^self]. - (self handlesKeyboard: anEvent) ifFalse:[^self]. anEvent wasHandled: true. + ^ self keyUp: anEvent! - ^self keyUp: anEvent! Item was changed: ----- Method: Morph>>handleKeystroke: (in category 'events-processing') ----- handleKeystroke: anEvent "System level event handling. Has support for automatically grabbing the keyboard focus considering the keyboard focus delegate. See #newKeyboardFocus:" | handler | anEvent wasHandled ifTrue: [^ self]. (self handlesKeyboard: anEvent) ifFalse: [^ self]. + (anEvent hand keyboardFocus ~~ self + and: [self handlesKeyboardOnlyOnFocus]) + ifTrue: [^ self]. handler := self wantsKeyboardFocus ifFalse: [self] ifTrue: [(anEvent hand newKeyboardFocus: self) ifNil: [self]]. anEvent handler: handler. anEvent wasHandled: true. ^ handler keyStroke: anEvent! Item was added: + ----- Method: Morph>>handlesKeyboardOnlyOnFocus (in category 'event handling') ----- + handlesKeyboardOnlyOnFocus + "If set, reject every keyboard event until the receiver has received the keyboard focus in another way, i.e. a mouse click (see #mouseDown:) or programmatic focusing (see HandMorph >> #newKeyboardFocus:). This allows sending keyboard events to any owner of the receiver while the receiver is hovered by the hand. See senders. + A particular user is DialogWindow which looks for Enter and Escape presses and should not loose these events to the content morph unless it is explicitly focused. For the full discussion, see http://forum.world.st/The-Inbox-Morphic-cbc-1665-mcz-td5117905.html." + + ^ self valueOfProperty: #handlesKeyboardOnlyOnFocus ifAbsent: [false]! Item was added: + ----- Method: Morph>>handlesKeyboardOnlyOnFocus: (in category 'event handling') ----- + handlesKeyboardOnlyOnFocus: aBoolean + + ^ self setProperty: #handlesKeyboardOnlyOnFocus toValue: aBoolean! Item was changed: ----- Method: PluggableTextMorph>>mouseEnter: (in category 'event handling') ----- mouseEnter: event "Restore the selection in the text morph if there was a selection." super mouseEnter: event. selectionInterval ifNotNil: [:interval | textMorph editor selectInterval: selectionInterval; setEmphasisHere]. Preferences mouseOverForKeyboardFocus + ifTrue: [event hand newKeyboardFocus: self].! - ifTrue:[event hand newKeyboardFocus: self]! Item was changed: ----- Method: TextMorph>>handleKeystroke: (in category 'events-processing') ----- handleKeystroke: anEvent "Overwritten to support tab-among-fields preference." | pasteUp | anEvent wasHandled ifTrue:[^self]. (self handlesKeyboard: anEvent) ifFalse: [^ self]. + (anEvent hand keyboardFocus ~~ self + and: [self handlesKeyboardOnlyOnFocus]) + ifTrue: [^ self]. anEvent keyCharacter = Character tab ifTrue: [ "Allow passing through text morph inside pasteups" (self wouldAcceptKeyboardFocusUponTab and: [(pasteUp := self pasteUpMorphHandlingTabAmongFields) notNil]) ifTrue: [ anEvent wasHandled: true. ^ pasteUp tabHitWithEvent: anEvent]]. ^ super handleKeystroke: anEvent! Item was changed: ----- Method: TextMorph>>handlesKeyboard: (in category 'event handling') ----- + handlesKeyboard: evt + ^true! - handlesKeyboard: anEvent - - ^ ((self valueOfProperty: #needsClickToFocus ifAbsent: [false]) ==> [ - anEvent hand keyboardFocus = self])!

1 0

The Trunk: Morphic-ct.1677.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

Fabio Niephaus uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ct.1677.mcz ==================== Summary ==================== Name: Morphic-ct.1677 Author: ct Time: 22 August 2020, 7:34:52.856555 pm UUID: 094ccc97-c3f6-364c-a10d-7418b3482703 Ancestors: Morphic-mt.1674 Nuke backward compatibility for Squeak 2.x menus. This should really not be relevant any longer I think. ;-) Also minor refactoring to MenuItemMorph >> #invokeWithEvent:. =============== Diff against Morphic-mt.1674 =============== Item was changed: ----- Method: MenuItemMorph>>invokeWithEvent: (in category 'events') ----- invokeWithEvent: evt "Perform the action associated with the given menu item." - | w | self isEnabled ifFalse: [^ self]. + + (owner notNil and: [self isStayUpItem not]) ifTrue: [ - target class == HandMorph ifTrue: [(self notObsolete) ifFalse: [^ self]]. - owner ifNotNil:[self isStayUpItem ifFalse:[ self flag: #workAround. "The tile system invokes menus straightforwardly so the menu might not be in the world." + self world ifNotNil: [:world | - (w := self world) ifNotNil:[ owner deleteIfPopUp: evt. "Repair damage before invoking the action for better feedback" + world displayWorldSafely]]. + + selector ifNil: [^ self]. + + Cursor normal showWhile: [ + "show cursor in case item opens a new MVC window" + selector numArgs isZero + ifTrue: [target perform: selector] + ifFalse: [target perform: selector withArguments: ( + selector numArgs = arguments size + ifTrue: [arguments] + ifFalse: [arguments copyWith: evt] )] ].! - w displayWorldSafely]]]. - selector ifNil:[^self]. - Cursor normal showWhile: [ | selArgCount | "show cursor in case item opens a new MVC window" - (selArgCount := selector numArgs) = 0 - ifTrue: - [target perform: selector] - ifFalse: - [selArgCount = arguments size - ifTrue: [target perform: selector withArguments: arguments] - ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]].! Item was removed: - ----- Method: MenuItemMorph>>notObsolete (in category 'private') ----- - notObsolete - "Provide backward compatibility with messages being sent to the Hand. Remove this when no projects made prior to 2.9 are likely to be used. If this method is removed early, the worst that can happen is a notifier when invoking an item in an obsolete menu." - - (HandMorph canUnderstand: (selector)) ifTrue: [^ true]. "a modern one" - - self inform: 'This world menu is obsolete. - Please dismiss the menu and open a new one.'. - ^ false - !

1 0

The Trunk: Morphic-LM.1678.mcz
by commits＠source.squeak.org 03 Sep '20

03 Sep '20

Fabio Niephaus uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-LM.1678.mcz ==================== Summary ==================== Name: Morphic-LM.1678 Author: LM Time: 3 September 2020, 12:58:35.620287 pm UUID: d1262531-fd1c-43a1-ba41-9ff8b3728a3a Ancestors: Morphic-ct.1677 Prevent users from creating multiple SystemProgressMorphs by abusing uniqueInstance. Currently the UniqueInstance class variable is not set properly when it is nil, which allows the user to call it multiple times to generate many SystemProgressMorphs, defeating the purpose of having a *unique* instance. =============== Diff against Morphic-mt.1674 =============== Item was changed: ----- Method: MenuItemMorph>>invokeWithEvent: (in category 'events') ----- invokeWithEvent: evt "Perform the action associated with the given menu item." - | w | self isEnabled ifFalse: [^ self]. + + (owner notNil and: [self isStayUpItem not]) ifTrue: [ - target class == HandMorph ifTrue: [(self notObsolete) ifFalse: [^ self]]. - owner ifNotNil:[self isStayUpItem ifFalse:[ self flag: #workAround. "The tile system invokes menus straightforwardly so the menu might not be in the world." + self world ifNotNil: [:world | - (w := self world) ifNotNil:[ owner deleteIfPopUp: evt. "Repair damage before invoking the action for better feedback" + world displayWorldSafely]]. + + selector ifNil: [^ self]. + + Cursor normal showWhile: [ + "show cursor in case item opens a new MVC window" + selector numArgs isZero + ifTrue: [target perform: selector] + ifFalse: [target perform: selector withArguments: ( + selector numArgs = arguments size + ifTrue: [arguments] + ifFalse: [arguments copyWith: evt] )] ].! - w displayWorldSafely]]]. - selector ifNil:[^self]. - Cursor normal showWhile: [ | selArgCount | "show cursor in case item opens a new MVC window" - (selArgCount := selector numArgs) = 0 - ifTrue: - [target perform: selector] - ifFalse: - [selArgCount = arguments size - ifTrue: [target perform: selector withArguments: arguments] - ifFalse: [target perform: selector withArguments: (arguments copyWith: evt)]]].! Item was removed: - ----- Method: MenuItemMorph>>notObsolete (in category 'private') ----- - notObsolete - "Provide backward compatibility with messages being sent to the Hand. Remove this when no projects made prior to 2.9 are likely to be used. If this method is removed early, the worst that can happen is a notifier when invoking an item in an obsolete menu." - - (HandMorph canUnderstand: (selector)) ifTrue: [^ true]. "a modern one" - - self inform: 'This world menu is obsolete. - Please dismiss the menu and open a new one.'. - ^ false - ! Item was changed: ----- Method: SystemProgressMorph class>>uniqueInstance (in category 'instance creation') ----- uniqueInstance + + ^ UniqueInstance ifNil: [UniqueInstance := super new]! - ^UniqueInstance ifNil:[super new]!

1 0

The Trunk: Sound-ct.71.mcz
by commits＠source.squeak.org 01 Sep '20

01 Sep '20

David T. Lewis uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-ct.71.mcz ==================== Summary ==================== Name: Sound-ct.71 Author: ct Time: 1 September 2020, 2:07:15.07999 am UUID: 0d91a1bf-41cb-834c-ab0c-fa2ad832e408 Ancestors: Sound-nice.69 Fixes wave sound streaming on non-filestream objects. The endianness was inverted because #int16: already uses Big Endian. This did not sound well - listen yourself in an unpatched image: :-) array := ByteArray streamContents: [:stream | PluckedSound bachFugue storeWAVSamplesOn: stream]. (FileStream fileNamed: 'bachFugue.wav') binary in: [:stream | [array do: [:ea | stream nextPut: ea]] ensure: [stream close]]. (SampledSound fromWaveFileNamed: 'bachFugue.wav') play. Please review in detail as this is one of my first contacts to the Sound system! =============== Diff against Sound-nice.69 =============== Item was changed: ----- Method: AbstractSound>>storeSampleCount:bigEndian:on: (in category 'file i/o') ----- storeSampleCount: samplesToStore bigEndian: bigEndianFlag on: aBinaryStream "Store my samples on the given stream at the current SoundPlayer sampling rate. If bigFlag is true, then each 16-bit sample is stored most-significant byte first (AIFF files), otherwise it is stored least-significant byte first (WAV files). If self isStereo is true, both channels are stored, creating a stereo file. Otherwise, only the left channel is stored, creating a mono file." + | bufSize stereoBuffer reverseBytes streamDirect | - | bufSize stereoBuffer reverseBytes | self reset. bufSize := (2 * self samplingRate rounded) min: samplesToStore. "two second buffer" stereoBuffer := SoundBuffer newStereoSampleCount: bufSize. + streamDirect := aBinaryStream isKindOf: StandardFileStream. + reverseBytes := (bigEndianFlag xor: Smalltalk isBigEndian) xor: streamDirect not. - reverseBytes := bigEndianFlag ~= (Smalltalk isBigEndian). 'Storing audio...' displayProgressFrom: 0 to: samplesToStore during: [:bar | | remaining out | remaining := samplesToStore. [remaining > 0] whileTrue: [ bar value: samplesToStore - remaining. stereoBuffer primFill: 0. "clear the buffer" self playSampleCount: (bufSize min: remaining) into: stereoBuffer startingAt: 1. out := self isStereo ifTrue: [stereoBuffer] ifFalse: [stereoBuffer extractLeftChannel]. reverseBytes ifTrue: [out reverseEndianness]. + streamDirect - (aBinaryStream isKindOf: StandardFileStream) ifTrue: [ "optimization for files: write sound buffer directly to file" aBinaryStream next: (out size // 2) putAll: out startingAt: 1] "size in words" ifFalse: [ "for non-file streams:" 1 to: out monoSampleCount do: [:i | aBinaryStream int16: (out at: i)]]. + remaining := remaining - bufSize]].! - remaining := remaining - bufSize]]. - !

1 0

The Trunk: Tests-ct.437.mcz
by commits＠source.squeak.org 01 Sep '20

01 Sep '20

David T. Lewis uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ct.437.mcz ==================== Summary ==================== Name: Tests-ct.437 Author: ct Time: 1 September 2020, 2:10:41.85599 am UUID: 88d1330f-334b-a14a-96ca-8ea4a6ab1b52 Ancestors: Tests-pre.436 Adds regression test for bugfix in Sound-ct.71. Should this go into the Tests-Sound or the SoundTests package (both not yet existing)? :-) =============== Diff against Tests-pre.436 =============== Item was changed: SystemOrganization addCategory: #'Tests-Bugs'! SystemOrganization addCategory: #'Tests-Compiler'! SystemOrganization addCategory: #'Tests-Dependencies'! SystemOrganization addCategory: #'Tests-Digital Signatures'! SystemOrganization addCategory: #'Tests-Environments'! SystemOrganization addCategory: #'Tests-Exceptions'! SystemOrganization addCategory: #'Tests-FilePackage'! SystemOrganization addCategory: #'Tests-Files'! SystemOrganization addCategory: #'Tests-Finalization'! SystemOrganization addCategory: #'Tests-Hex'! SystemOrganization addCategory: #'Tests-Installer-Core'! SystemOrganization addCategory: #'Tests-Localization'! SystemOrganization addCategory: #'Tests-Monticello'! SystemOrganization addCategory: #'Tests-Monticello-Mocks'! SystemOrganization addCategory: #'Tests-Monticello-Utils'! SystemOrganization addCategory: #'Tests-Object Events'! SystemOrganization addCategory: #'Tests-ObjectsAsMethods'! SystemOrganization addCategory: #'Tests-PrimCallController'! SystemOrganization addCategory: #'Tests-Release'! SystemOrganization addCategory: #'Tests-System-Applications'! SystemOrganization addCategory: #'Tests-System-Digital Signatures'! SystemOrganization addCategory: #'Tests-System-Object Storage'! SystemOrganization addCategory: #'Tests-System-Preferences'! SystemOrganization addCategory: #'Tests-System-Support'! SystemOrganization addCategory: #'Tests-Utilities'! SystemOrganization addCategory: #'Tests-VM'! SystemOrganization addCategory: #'Tests-MonticelloMocks'! + SystemOrganization addCategory: #'Tests-Sound'! Item was added: + TestCase subclass: #SoundTest + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Tests-Sound'! Item was added: + ----- Method: SoundTest>>testStoreSamples (in category 'tests') ----- + testStoreSamples + + | sound fileName arrayBytes fileBytes | + sound := PluckedSound default. + fileName := 'tempPluck.wav'. + + "Write to file" + fileBytes := [ + sound storeWAVOnFileNamed: fileName. + FileStream oldFileNamed: fileName do: [:stream | + stream binary contents]] ensure: [ + FileDirectory deleteFilePath: fileName]. + + "Write to array" + arrayBytes := ByteArray streamContents: [:stream | + sound storeWAVSamplesOn: stream]. + + "Compare" + self assert: fileBytes equals: arrayBytes.!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2020