Squeak-dev December 2019

squeak-dev@lists.squeakfoundation.org

32 participants
257 discussions

[ANN] ScriptBook 0.8
by Chris Cunnington 12 Dec '19

12 Dec '19

Here’s the latest version of ScriptBook, a user interface widget for loading Installer scripts by clicking a link. This one has add/remove buttons that save scripts as strings in a method (i.e. #scriptsData), so you can save your scripts in SqueakSource. The idea is that you open a fresh image, load ScriptBook and then click to install. As usual, it comes pre-loaded with several popular scripts. Thanks to Hannes for the idea for the Transcript button. (Installer ss3) project: 'ScriptBook'; install: 'ScriptBook'. ScriptBook new Chris

1 0

Failing tests for Interval
by Marcel Taeumel 12 Dec '19

12 Dec '19

Hi, there. What about those failing tests? Can they be fixed or should they go to #expectedFailures? Best, Marcel

3 3

The Inbox: Sound-dtl.68.mcz
by commits＠source.squeak.org 12 Dec '19

12 Dec '19

David T. Lewis uploaded a new version of Sound to project The Inbox: http://source.squeak.org/inbox/Sound-dtl.68.mcz ==================== Summary ==================== Name: Sound-dtl.68 Author: dtl Time: 12 December 2019, 7:20:38.226903 am UUID: c7b5a141-2b1b-4d24-ab88-0a96dd78600b Ancestors: Sound-dtl.67 Resolve unimplemented calls in the previous update. Discussion on squeak-dev http://lists.squeakfoundation.org/pipermail/squeak-dev/2019-December/205515… =============== Diff against Sound-dtl.67 =============== Item was changed: ----- Method: AbstractSound>>loudness (in category 'volume') ----- loudness "Answer the current volume setting for this sound." + ^ envelopes detect: [:e | e isKindOf: VolumeEnvelope] + ifFound: [ :envelope | envelope scale ] + ifNone: [scaledVol asFloat / FloatScaleFactor] + ! - self hasVolumeEnvelope ifTrue: [^ self volumeEnvelope scale]. - - ^ scaledVol asFloat / ScaleFactor! Item was changed: ----- Method: SequentialSound>>mixSampleCount:into:startingAt:leftVol:rightVol: (in category 'sound generation') ----- mixSampleCount: n into: aSoundBuffer startingAt: startIndex leftVol: leftVol rightVol: rightVol "Play a collection of sounds in sequence." "PluckedSound chromaticScale play" | finalIndex i snd remaining count leftScaledVol rightScaledVol | currentIndex = 0 ifTrue: [^ self]. "already done" + leftScaledVol := leftVol * scaledVol / ScaleFactor asFloat. + rightScaledVol := rightVol * scaledVol / ScaleFactor asFloat. - leftScaledVol := leftVol * scaledVol /// ScaleFactor. - rightScaledVol := rightVol * scaledVol /// ScaleFactor. finalIndex := (startIndex + n) - 1. i := startIndex. [i <= finalIndex] whileTrue: [ snd := (sounds at: currentIndex). [(remaining := snd samplesRemaining) <= 0] whileTrue: [ "find next undone sound" currentIndex < sounds size ifTrue: [ currentIndex := currentIndex + 1. snd := (sounds at: currentIndex)] ifFalse: [ currentIndex := 0. ^ self]]. "no more sounds" count := (finalIndex - i) + 1. remaining < count ifTrue: [count := remaining]. snd mixSampleCount: count into: aSoundBuffer startingAt: i leftVol: leftScaledVol rightVol: rightScaledVol. i := i + count]. !

3 2

The Inbox: Multilingual-nice.250.mcz
by commits＠source.squeak.org 11 Dec '19

11 Dec '19

Nicolas Cellier uploaded a new version of Multilingual to project The Inbox: http://source.squeak.org/inbox/Multilingual-nice.250.mcz ==================== Summary ==================== Name: Multilingual-nice.250 Author: nice Time: 11 December 2019, 9:45:47.879387 pm UUID: ebe6fac0-efa6-449b-8e4c-7eb3fd167b47 Ancestors: Multilingual-mt.249 Nuke keyValueIndex (my pleasure) The intention was for accessing either event buffer at 3 (macRoman) or 6 (UTF32/UCS4) Currently the choice is between 6 or 6 (it could have been dependent on VM version in 2007, but it's not and never was in Cog/Spur) Anyway, the code was testing for presence of #SugarLaunche instead of #SugarLauncher, so it would not have worked as intended (if ever we can distinguish 6 from 6). =============== Diff against Multilingual-mt.249 =============== Item was changed: KeyboardInputInterpreter subclass: #MacUnicodeInputInterpreter + instanceVariableNames: '' - instanceVariableNames: 'keyValueIndex' classVariableNames: '' poolDictionaries: '' category: 'Multilingual-TextConversion'! Item was changed: ----- Method: MacUnicodeInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | keyValue := evtBuf at: 6. mark := self japaneseSpecialMark: keyValue. mark notNil ifTrue: [^ mark]. - keyValue < 256 - ifTrue: [^Character value: keyValue]. "Smalltalk systemLanguage charsetClass charFromUnicode: keyValue." ^ Unicode value: keyValue! Item was changed: KeyboardInputInterpreter subclass: #UnixUnicodeInputInterpreter + instanceVariableNames: '' - instanceVariableNames: 'keyValueIndex' classVariableNames: '' poolDictionaries: '' category: 'Multilingual-TextConversion'! Item was removed: - ----- Method: UnixUnicodeInputInterpreter>>initialize (in category 'initialization') ----- - initialize - | satisfiesVersion launcherClass | - launcherClass := Smalltalk at: #SugarLaunche ifAbsent: [nil]. - satisfiesVersion := launcherClass notNil and: [launcherClass current isRunningInSugar]. - satisfiesVersion - ifTrue: [keyValueIndex := 6] - ifFalse: [keyValueIndex := 6 "it might have to be 3, but probably different logic to check the VM version would be better."]! Item was removed: - ----- Method: UnixUnicodeInputInterpreter>>keyValueIndex (in category 'accessing') ----- - keyValueIndex - ^ keyValueIndex! Item was changed: ----- Method: UnixUnicodeInputInterpreter>>nextCharFrom:firstEvt: (in category 'keyboard') ----- nextCharFrom: sensor firstEvt: evtBuf | keyValue mark | + keyValue := evtBuf at: 6. - keyValue := evtBuf at: self keyValueIndex. mark := self japaneseSpecialMark: keyValue. mark notNil ifTrue: [^ mark]. keyValue < 256 ifTrue: [^ Character value: keyValue]. "Smalltalk systemLanguage charsetClass charFromUnicode: keyValue." ^ Unicode value: keyValue!

2 2

Pan law in MixedSound
by Stéphane Rollandin 11 Dec '19

11 Dec '19

Since we are dicussing MixedSound, I have a proposal, currently implemented in muO, for a better panning, by using a -4.5 dB pan law as explained here: http://www.cs.cmu.edu/~music/icm-online/readings/panlaws/index.html So I propose in MixedSound add: aSound pan: leftRightPan volume: volume "Add the given sound with the given left-right pan, where 0.0 is full left, 1.0 is full right, and 0.5 is centered. The loudness of the sound will be scaled by volume, which ranges from 0 to 1.0." | vol | vol := (volume max: 0.0) min: 1.0. sounds := sounds copyWith: aSound. (self class panValuesFor: leftRightPan) allIn: [:leftPan :rightPan | leftVols := leftVols copyWith: (leftPan * vol) rounded. rightVols := rightVols copyWith: (rightPan * vol) rounded] where, on the class side, we have panValuesFor: aPos "aPos ranges from 0.0 to 1.0 (Squeak convention)" ^ (MusicMachine db45PanAt: (aPos * 2) - 1) collect: [:ea | ((ea * ScaleFactor) rounded max: 0) min: ScaleFactor] The MusicMachine class is in muO, so it would have to be refactored here. The code is db45PanAt: pNumber "pNumber ranges from -1 (45 degrees left) to 1 (45 degrees right)" "Uses -4.5 dB pan law ref: http://www.cs.cmu.edu/~music/icm-online/readings/panlaws/index.html" | theta | theta := (pNumber + 1) * Float pi / 4. ^ { "left" (theta cos * (Float halfPi - theta) / Float halfPi) sqrt. "right" (theta sin * theta / Float halfPi) sqrt } Stef

1 0

The Trunk: Multilingual-mt.249.mcz
by commits＠source.squeak.org 11 Dec '19

11 Dec '19

Marcel Taeumel uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-mt.249.mcz ==================== Summary ==================== Name: Multilingual-mt.249 Author: mt Time: 11 December 2019, 10:37:52.537197 am UUID: 861aff74-4c07-b14a-bab9-8fc8a89bfaa8 Ancestors: Multilingual-nice.248 Complements Multilingual-nice.248 by resetting the language environment. Avoid having to restart the image after updating on Windows machines. No harm done for other platforms. =============== Diff against Multilingual-nice.248 =============== Item was changed: + (PackageInfo named: 'Multilingual') postscript: 'LanguageEnvironment clearDefault. + HandMorph clearInterpreters.'! - (PackageInfo named: 'Multilingual') postscript: '"Initialize the tables in all TextConverters that support it." - TextConverter allSubclassesDo: [ :each | [ each initializeTables ] ifError: [] ]'!

1 0

Object >> #cull:
by Thiede, Christoph 11 Dec '19

11 Dec '19

Hi all! Just another, possibly crazy idea: What about implementing #cull:, #cull:cull: etc. on Object? Object >> #cull: firstArg ^ self value This could improve the polymorphy between "evaluables" such as blocks or MessageSends and other objects. Example: [2 / 0] on: ZeroDivide do: Float infinity Some current implementations that call both #isBlock and #cull: also reveal that there might be a small break in the interface. From #haltIf: [cid:95ff5c48-deea-4916-916d-937c0382e78b] Just wanted to share that thought :) In general, do you think blurring the differences between block and object in that way might be a good idea or rather a bad one? At least we already have implemented #value on Object. Disclaimer: I know that in many cases, you should prefer a block for performance reasons/compiler optimization, but there is still a gap between the interfaces ... Best, Christoph

4 5

The Inbox: SystemReporter-mt.41.mcz
by commits＠source.squeak.org 10 Dec '19

10 Dec '19

A new version of SystemReporter was added to project The Inbox: http://source.squeak.org/inbox/SystemReporter-mt.41.mcz ==================== Summary ==================== Name: SystemReporter-mt.41 Author: mt Time: 10 December 2019, 3:59:34.438553 pm UUID: 14618004-0dd4-2343-9469-2dd5aaddd38f Ancestors: SystemReporter-eem.40 Updates image report. =============== Diff against SystemReporter-eem.40 =============== Item was added: + ----- Method: SystemReporter>>countUsesOfBytecodeSetEncoders (in category 'private') ----- + countUsesOfBytecodeSetEncoders + + | bag | + bag := Bag new. + CompiledMethod allInstancesDo: [:method | + bag add: method encoderClass]. + ^ BytecodeEncoder allSubclasses collect: [:cls | + cls -> (bag occurrencesOf: cls)]! Item was changed: ----- Method: SystemReporter>>reportImage: (in category 'reporting') ----- reportImage: aStream + + | padding | + padding := 25. self header: 'Image' on: aStream. aStream + nextPutAll: ('Image name:' padded: #right to: padding with: Character space); nextPutAll: Smalltalk image imageName; cr; + nextPutAll: ('Image version:'padded: #right to: padding with: Character space); nextPutAll: SystemVersion current version; cr; + nextPutAll: ('Latest update:' padded: #right to: padding with: Character space); print: SystemVersion current highestUpdate; cr; + nextPutAll: ('Current change set:' padded: #right to: padding with: Character space); nextPutAll: ChangeSet current name; cr. - nextPutAll: Smalltalk image imageName; cr; - nextPutAll: SystemVersion current version; cr; - nextPutAll: Smalltalk image lastUpdateString; cr; - nextPutAll: Smalltalk image currentChangeSetString; cr. [ | imageFormat bitsPerWord | imageFormat := Smalltalk image imageFormatVersion. bitsPerWord := Smalltalk image wordSize * 8. + aStream nextPutAll: ('Image format:' padded: #right to: padding with: Character space); - aStream nextPutAll: 'Image format '; nextPutAll: imageFormat asString; nextPutAll: ' ('; nextPutAll: bitsPerWord asString; nextPutAll: ' bit)'; cr] on: Warning do: ["primitive not present in VM"]. + aStream nextPutAll: ('Preferred bytecode set:' padded: #right to: padding with: Character space); + print: CompiledCode preferredBytecodeSetEncoderClass; + cr. + self countUsesOfBytecodeSetEncoders do: [:encoderToCount | + aStream nextPutAll: ' Uses of ', (encoderToCount key name padded: #right to: padding with: Character space); space; print: encoderToCount value; cr].! - !

2 1

The Trunk: Tools-ct.924.mcz
by commits＠source.squeak.org 10 Dec '19

10 Dec '19

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-ct.924.mcz ==================== Summary ==================== Name: Tools-ct.924 Author: ct Time: 7 December 2019, 5:03:02.396431 pm UUID: 0db76606-63d7-4a4a-94fd-99fe4a088304 Ancestors: Tools-mt.922 Fix a bug ProcessBrowser >> #selectedClass in case of no context selection =============== Diff against Tools-mt.922 =============== Item was changed: ----- Method: ProcessBrowser>>selectedClass (in category 'accessing') ----- selectedClass "Answer the class in which the currently selected context's method was found." ^ selectedClass + ifNil: [ + selectedContext ifNil: [^ nil]. + selectedClass := selectedContext receiver - ifNil: [selectedClass := selectedContext receiver ifNil: [selectedSelector := selectedContext method selector. selectedContext method methodClass] ifNotNil: [selectedContext methodClass]]!

1 0

The Trunk: ShoutCore-mt.77.mcz
by commits＠source.squeak.org 10 Dec '19

10 Dec '19

Marcel Taeumel uploaded a new version of ShoutCore to project The Trunk: http://source.squeak.org/trunk/ShoutCore-mt.77.mcz ==================== Summary ==================== Name: ShoutCore-mt.77 Author: mt Time: 10 December 2019, 3:26:21.931553 pm UUID: 2df6bf09-c3d1-4e42-9a40-51bbfce1712c Ancestors: ShoutCore-mt.76 Fixes args/temps styling for dead contexts. =============== Diff against ShoutCore-mt.76 =============== Item was changed: ----- Method: SHParserST80>>initializeInstanceVariables (in category 'parse support') ----- initializeInstanceVariables instanceVariables := classOrMetaClass ifNil: [ #() ] ifNotNil: [ classOrMetaClass allInstVarNames asArray ]. allowUnderscoreAssignments := Scanner allowUnderscoreAsAssignment. allowUnderscoreSelectors := Scanner prefAllowUnderscoreSelectors. allowBlockArgumentAssignment := Scanner allowBlockArgumentAssignment. sourcePosition := 1. arguments ifNil: [ arguments := OrderedCollection with: nil ] ifNotNil: [ arguments reset; addLast: nil ]. temporaries ifNil: [ temporaries := OrderedCollection with: nil ] ifNotNil: [ temporaries reset; addLast: nil ]. + context ifNotNil: [ self initializeVariablesFromContext ]. - (context notNil and: [ context isDead not ]) - ifTrue: [ self initializeVariablesFromContext ]. bracketDepth := 0. ranges ifNil: [ ranges := OrderedCollection new: 40 "Covers over 80% of all methods." ] ifNotNil: [ ranges reset ]! Item was changed: ----- Method: SHParserST80>>initializeVariablesFromContext (in category 'parse support') ----- initializeVariablesFromContext | contextSourcePcIndex contextSourceParser | contextSourcePcIndex := (context debuggerMap + rangeForPC: (context isDead ifTrue: [context endPC] ifFalse: [context pc]) - rangeForPC: context pc in: context method contextIsActiveContext: true "... to really use the context's pc.") start. contextSourceParser := self class new classOrMetaClass: context method methodClass; environment: self environment; source: (context method getSource first: contextSourcePcIndex); yourself. contextSourceParser parse. arguments := contextSourceParser activeArguments. temporaries := contextSourceParser activeTemporaries.!

1 0

← Newer
1
...
17
18
19
20
21
22
23
...
26
Older →

Jump to page: