Squeak-dev September 2022

squeak-dev@lists.squeakfoundation.org

29 participants
157 discussions

The Trunk: Chronology-Tests-lrnp.31.mcz
by commits＠source.squeak.org 06 Sep '22

06 Sep '22

David T. Lewis uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-lrnp.31.mcz ==================== Summary ==================== Name: Chronology-Tests-lrnp.31 Author: lrnp Time: 3 March 2022, 12:46:42.775073 am UUID: 437b3938-ef51-494d-9dee-ba89baa669bb Ancestors: Chronology-Tests-ct.30 adjust margin of error for millisecond timing Given that the shortest measurable interval is 1 ms, rounded, allow up to 2 milliseconds over or under for a combination of rounding and delays introduced by taking measurements. This makes the busyWait test harder to pass unless the millisecond precision prescribed by Delay's comment applies to the current image. If the prescription applies, the test will pass more reliably in case of rounding errors. =============== Diff against Chronology-Tests-ct.30 =============== Item was changed: ----- Method: DurationTest>>testBusyWait (in category 'tests') ----- testBusyWait | duration start elapsed | duration := Duration milliSeconds: 1. start := DateAndTime now. 1000 timesRepeat: [duration busyWait]. + elapsed := DateAndTime now - start roundTo: duration. - elapsed := DateAndTime now - start. + self assert: elapsed >= (duration * 998). + self assert: elapsed <= (duration * 1002).! - self assert: elapsed >= (duration * 1000). - self assert: elapsed <= (duration * 1000 * 2).!

1 0

The Trunk: Chronology-Tests-dtl.32.mcz
by commits＠source.squeak.org 06 Sep '22

06 Sep '22

David T. Lewis uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-dtl.32.mcz ==================== Summary ==================== Name: Chronology-Tests-dtl.32 Author: dtl Time: 6 September 2022, 12:02:22.727648 pm UUID: b75c03f1-bad5-4369-946d-a74e8c6c50a3 Ancestors: Chronology-Tests-ct.31, Chronology-Tests-dtl.31, Chronology-Tests-lrnp.31 Merge Chronology-Tests-lrnp.31 and Chronology-Tests-dtl.31 =============== Diff against Chronology-Tests-ct.31 =============== Item was changed: ----- Method: DateAndTimeEpochTest>>testOffset (in category 'tests') ----- testOffset self assert: aDateAndTime offset = '0:00:00:00' asDuration. + self assert: (aDateAndTime asLocalAt: '0:12:00:00') = '1901-01-01T00:00:00+12:00' asDateAndTime! - self assert: (aDateAndTime offset: '0:12:00:00') = '1901-01-01T00:00:00+12:00' asDateAndTime! Item was added: + ----- Method: DateAndTimeLeapTest>>testAsLocalAt (in category 'testing') ----- + testAsLocalAt + self assert: aDateAndTime offset = '0:02:00:00' asDuration. + self assert: (aDateAndTime asLocalAt: '0:12:00:00') = '2004-02-29T13:33:00+12:00' asDateAndTime! Item was changed: ----- Method: DateAndTimeLeapTest>>testAsTimeStamp (in category 'testing') ----- testAsTimeStamp + self assert: aDateAndTime asTimeStamp = ((TimeStamp readFrom: '2-29-2004 1:33 pm' readStream) asLocalAt: 2 hours). - self assert: aDateAndTime asTimeStamp = ((TimeStamp readFrom: '2-29-2004 1:33 pm' readStream) offset: 2 hours). ! Item was changed: ----- Method: DateAndTimeLeapTest>>testOffset (in category 'testing') ----- testOffset self assert: aDateAndTime offset = '0:02:00:00' asDuration. + self assert: (aDateAndTime offset: '0:12:00:00') = '2004-02-29T23:33:00+12:00' asDateAndTime! - self assert: (aDateAndTime offset: '0:12:00:00') = '2004-02-29T13:33:00+12:00' asDateAndTime! Item was changed: ----- Method: DateAndTimeLeapTest>>testYearDayHourMinuteSecond (in category 'testing') ----- testYearDayHourMinuteSecond + self assert: aDateAndTime = ((DateAndTime year: 2004 day: 60 hour: 13 minute: 33 second: 0) asLocalAt: 2 hours). - self assert: aDateAndTime = ((DateAndTime year: 2004 day: 60 hour: 13 minute: 33 second: 0) offset: 2 hours). ! Item was changed: ----- Method: DateAndTimeLeapTest>>testYearMonthDayHourMinuteSecond (in category 'testing') ----- testYearMonthDayHourMinuteSecond + self assert: aDateAndTime = ((DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0) asLocalAt: 2 hours). - self assert: aDateAndTime = ((DateAndTime year: 2004 month: 2 day: 29 hour: 13 minute: 33 second: 0) offset: 2 hours). ! Item was changed: ----- Method: DateTest>>testMakeUTC (in category 'testing') ----- testMakeUTC "Equal dates should compare equal regardless of which TimeZone they are created in." | priorTz priorPreference march31stLocal march31stOcean | priorTz := DateAndTime localTimeZone. priorPreference := DateAndTime automaticTimezone. [DateAndTime localTimeZone: (TimeZone offset: 9 hours name: 'Early Test Countries' abbreviation: 'Test Ocean Early'). march31stLocal := Date year: 2016 month: 3 day: 31. + march31stLocal start: (march31stLocal start asLocalAt: DateAndTime localTimeZone offset). - march31stLocal start: (march31stLocal start offset: DateAndTime localTimeZone offset). DateAndTime localTimeZone: (TimeZone offset: -9 hours name: 'Late Test Countries' abbreviation: 'Test Ocean Late'). march31stOcean := Date year: 2016 month: 3 day: 31. + march31stOcean start: (march31stOcean start asLocalAt: DateAndTime localTimeZone offset).] - march31stOcean start: (march31stOcean start offset: DateAndTime localTimeZone offset).] ensure: [DateAndTime localTimeZone: priorTz. DateAndTime automaticTimezone: priorPreference]. self deny: march31stLocal = march31stOcean; assert: march31stOcean > march31stLocal. self assert: march31stLocal makeUTC = march31stOcean makeUTC; deny: march31stOcean makeUTC > march31stLocal makeUTC; deny: march31stOcean makeUTC < march31stLocal makeUTC.! Item was changed: ----- Method: DurationTest>>testBusyWait (in category 'tests') ----- testBusyWait | duration start elapsed | duration := Duration milliSeconds: 1. start := DateAndTime now. 1000 timesRepeat: [duration busyWait]. + elapsed := DateAndTime now - start roundTo: duration. - elapsed := DateAndTime now - start. + self assert: elapsed >= (duration * 998). + self assert: elapsed <= (duration * 1002).! - self assert: elapsed >= (duration * 1000). - self assert: elapsed <= (duration * 1000 * 2).! Item was changed: ----- Method: YearTest>>testCurrent (in category 'Tests') ----- testCurrent self assert: Year current start = ((DateAndTime year: DateAndTime now year month: 1 + day: 1) asLocalAt: Year defaultOffset)! - day: 1) offset: Year defaultOffset)!

1 0

The Trunk: Chronology-Core-dtl.81.mcz
by commits＠source.squeak.org 06 Sep '22

06 Sep '22

David T. Lewis uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-dtl.81.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.81 Author: dtl Time: 6 September 2022, 12:01:42.15096 pm UUID: ffc48d2d-0f38-4d45-b3b3-d973d8ed08c5 Ancestors: Chronology-Core-ct.80, Chronology-Core-dtl.80 Merge Chronology-Core-dtl.80 Reference https://github.com/squeak-smalltalk/squeak-object-memory/issues/23 DateAndTime>>offset: implementation is incorrect =============== Diff against Chronology-Core-ct.80 =============== Item was added: + ----- Method: DateAndTime>>asLocalAt: (in category 'squeak protocol') ----- + asLocalAt: anOffset + "Answer a DateAndTime for a different time zone offset that has the same + year, month, day, hour, minute, and second as this instance, and with + printString that matches except for time zone offset." + + | newOffset newMicros | + newOffset := anOffset asDuration asSeconds. + newMicros := localOffsetSeconds - newOffset * 1000000 + utcMicroseconds. + ^ self class utcMicroseconds: newMicros offset: newOffset + ! Item was changed: ----- Method: DateAndTime>>offset: (in category 'ansi protocol') ----- offset: anOffset + "Answer a <DateAndTime> equivalent to the receiver but with its local time + being offset from UTC by offset. - "Answer a DateAndTime for a different time zone offset that has the same - year, month, day, hour, minute, and second as this instance, and with - printString that matches except for time zone offset." + See asLocalAt: for the earlier behavior of this method." + + ^ self class + utcMicroseconds: utcMicroseconds + offset: anOffset asDuration asSeconds! - | newOffset newMicros | - newOffset := anOffset asDuration asSeconds. - newMicros := localOffsetSeconds - newOffset * 1000000 + utcMicroseconds. - ^ self class utcMicroseconds: newMicros offset: newOffset - ! Item was changed: ----- Method: DateAndTime>>utcOffset: (in category 'squeak protocol') ----- utcOffset: anOffset + "Compatiblity. Answer a DateAndTime equivalent to the receiver but offset from UTC by anOffset." + + ^ self offset: anOffset! - "Answer a DateAndTime equivalent to the receiver but offset from UTC by anOffset" - ^ self class - utcMicroseconds: utcMicroseconds - offset: anOffset asDuration asSeconds! Item was changed: ----- Method: Timespan class>>current (in category 'squeak protocol') ----- current + ^ self starting: (DateAndTime now asLocalAt: self defaultOffset)! - ^ self starting: (DateAndTime now offset: self defaultOffset)!

1 0

Smalltalks Workshop 2022: call for papers!
by Mariano Martinez Peck 05 Sep '22

05 Sep '22

Greetings everyone, This year, in addition to traditional technical talks, FAST has organized a Workshop [1] where researchers are invited to submit papers, which will be evaluated by specialized reviewers. We have chosen the Workshop format to let authors get early qualified feedback of their work without preventing them from presenting in other conferences or publications, since this format does not imply exclusive submission. [1] https://smalltalks2022.fast.org.ar/registration/call-for-papers Greetings, -- Mariano Martinez Peck Email: marianopeck(a)gmail.com Twitter: @MartinezPeck LinkedIn: www.linkedin.com/in/mariano-martinez-peck <https://www.linkedin.com/in/mariano-mart%C3%ADnez-peck/> Blog: https://marianopeck.wordpress.com/

1 0

Some questions about MIDI
by Thiede, Christoph 03 Sep '22

03 Sep '22

Hi all, I have been playing around a bit with midi support and was pretty delighted that you can actually synthesize inputs from a midi keyboard using MidiInputMorph! Out of curiosity, here are a few short questions: 1. As far as I could find out, there is currently no support for recording midi in the Trunk, is it? There are MIDISynth and MidiInputMorph, but there seems not to exist any connection to the PianoKeyboardMorph or the Piano Roll yet? Imagine you could press Record in a score player and add another track by playing it on your physical midi keyboard ... 2. Also, there is not yet any file-out for midi, right? This would also be cool: Store the events from an input midi port, add them as a new track to a score, and serialize the score to a .mid file later. 3. Last but not least: Should the MIDIPlugin be fully functional on Linux? On my Ubuntu machine, I can use the output port but primitiveMidiRead always fails. On Windows, everything is fine. Have a nice weekend! Best, Christoph <http://www.hpi.de/>

7 14

Computer History Museum "Smalltalk at 50" event
by tim Rowledge 01 Sep '22

01 Sep '22

I don't recall seeing this mentioned here before - See https://computerhistory.org/events/making-smalltalk/ tim -- tim Rowledge; tim(a)rowledge.org; http://www.rowledge.org/tim Calm down -- it's only ones and zeros.

7 8

Test
by Marcel Taeumel 01 Sep '22

01 Sep '22

Hi all -- This is just a test. Please ignore. Best, Marcel

1 0

Jump to page: