Packages September 2022

packages@lists.squeakfoundation.org

1 participants
90 discussions

The Treated Inbox: Morphic-cmm.759.mcz
by commits＠source.squeak.org 08 Sep '22

08 Sep '22

Chris Muller uploaded a new version of Morphic to project The Treated Inbox: http://source.squeak.org/treated/Morphic-cmm.759.mcz ==================== Summary ==================== Name: Morphic-cmm.759 Author: cmm Time: 24 February 2015, 2:54:22.757 pm UUID: c7ecd89e-da26-47fb-8302-3ccaff6b9b54 Ancestors: Morphic-mt.758 Improved "Auto Enclose" preference to behave like it does in eclipse; when typing the closer (paren / bracket / curly), simply advance the cursor past it rather than insert an additional closer. =============== Diff against Morphic-mt.758 =============== Item was changed: ----- Method: TextEditor>>dispatchOnKeyboardEvent: (in category 'typing support') ----- + dispatchOnKeyboardEvent: aKeyboardEvent + "Carry out the action associated with this character, if any. Type-ahead is passed so some routines can flush or use it." + | honorCommandKeys openers closers result typedChar | + ((typedChar := aKeyboardEvent keyCharacter) == Character cr and: [ morph acceptOnCR ]) ifTrue: + [ self closeTypeIn. + ^ true ]. - dispatchOnKeyboardEvent: aKeyboardEvent - "Carry out the action associated with this character, if any. - Type-ahead is passed so some routines can flush or use it." - - | honorCommandKeys openers closers result | - (aKeyboardEvent keyCharacter == Character cr and: [ morph acceptOnCR ]) - ifTrue: [ - self closeTypeIn. - ^ true ]. self clearParens. + aKeyboardEvent keyValue = 13 ifTrue: + [ aKeyboardEvent controlKeyPressed ifTrue: [ ^ self normalCharacter: aKeyboardEvent ]. + aKeyboardEvent shiftPressed ifTrue: [ ^ self lf: aKeyboardEvent ]. + aKeyboardEvent commandKeyPressed ifTrue: [ ^ self crlf: aKeyboardEvent ]. + ^ self crWithIndent: aKeyboardEvent ]. + ((honorCommandKeys := Preferences cmdKeysInText) and: [ typedChar = Character enter ]) ifTrue: [ ^ self dispatchOnEnterWith: aKeyboardEvent ]. + "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this - aKeyboardEvent keyValue = 13 - ifTrue: [ - aKeyboardEvent controlKeyPressed - ifTrue: [ ^ self normalCharacter: aKeyboardEvent ]. - aKeyboardEvent shiftPressed - ifTrue: [ ^ self lf: aKeyboardEvent ]. - aKeyboardEvent commandKeyPressed - ifTrue: [ ^ self crlf: aKeyboardEvent ]. - ^ self crWithIndent: aKeyboardEvent ]. - ((honorCommandKeys := Preferences cmdKeysInText) and: [ aKeyboardEvent keyCharacter = Character enter ]) - ifTrue: [ ^ self dispatchOnEnterWith: aKeyboardEvent ]. "Special keys overwrite crtl+key combinations - at least on Windows. To resolve this conflict, assume that keys other than cursor keys aren't used together with Crtl." + ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [ aKeyboardEvent keyValue < 27 ]) ifTrue: [ ^ aKeyboardEvent controlKeyPressed + ifTrue: + [ self + perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ] + ifFalse: + [ self + perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ] ]. + "backspace, and escape keys (ascii 8 and 27) are command keys" + ((honorCommandKeys and: [ aKeyboardEvent commandKeyPressed ]) or: [ self class specialShiftCmdKeys includes: aKeyboardEvent keyValue ]) ifTrue: [ ^ aKeyboardEvent shiftPressed + ifTrue: + [ self + perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ] + ifFalse: + [ self + perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ] ]. + "the control key can be used to invoke shift-cmd shortcuts" + (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) ifTrue: [ ^ self + perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) + with: aKeyboardEvent ]. - ((self class specialShiftCmdKeys includes: aKeyboardEvent keyValue) and: [ aKeyboardEvent keyValue < 27 ]) - ifTrue: [ - ^ aKeyboardEvent controlKeyPressed - ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] - ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "backspace, and escape keys (ascii 8 and 27) are command keys" - ((honorCommandKeys and: [ aKeyboardEvent commandKeyPressed ]) - or: [ self class specialShiftCmdKeys includes: aKeyboardEvent keyValue ]) - ifTrue: [ - ^ aKeyboardEvent shiftPressed - ifTrue: [ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] - ifFalse: [ self perform: (self class cmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ] ]. "the control key can be used to invoke shift-cmd shortcuts" - (honorCommandKeys and: [ aKeyboardEvent controlKeyPressed ]) - ifTrue: [ ^ self perform: (self class shiftCmdActions at: aKeyboardEvent keyValue + 1) with: aKeyboardEvent ]. openers := '([{'. closers := ')]}'. + (closers includes: typedChar) + ifTrue: + [ self blinkPrevParen: typedChar. + self nextNonwhitespaceCharacter = typedChar + ifTrue: + [ [self nextNonwhitespaceCharacter = typedChar] whileTrue: [self + moveCursor: [ : position | position + 1 ] + forward: true + select: false ]. + ^ false ] + ifFalse: [ result := self normalCharacter: aKeyboardEvent ] ] + ifFalse: [ result := self normalCharacter: aKeyboardEvent ]. + (self class autoEnclose and: [ openers includes: typedChar ]) ifTrue: + [ self + addString: (closers at: (openers indexOf: typedChar)) asString ; + insertTypeAhead ; + + moveCursor: + [ : position | position - 1 ] + forward: false + select: false ]. - result := self normalCharacter: aKeyboardEvent. - (closers includes: aKeyboardEvent keyCharacter) - ifTrue: [ self blinkPrevParen: aKeyboardEvent keyCharacter]. - (self class autoEnclose and: [ openers includes: aKeyboardEvent keyCharacter ]) - ifTrue: [ - self - addString: (closers at: (openers indexOf: aKeyboardEvent keyCharacter)) asString; - insertTypeAhead ; - - moveCursor: [ :position | position - 1 ] - forward: false - select: false ]. ^ result! Item was added: + ----- Method: TextEditor>>nextNonwhitespaceCharacter (in category 'private') ----- + nextNonwhitespaceCharacter + pointBlock stringIndex + to: paragraph string size + do: + [ : n | | char | (char := paragraph string at: n) isSeparator ifFalse: [ ^ char ] ]. + ^ nil!

1 0

The Treated Inbox: Tests-cmm.167.mcz
by commits＠source.squeak.org 08 Sep '22

08 Sep '22

Chris Muller uploaded a new version of Tests to project The Treated Inbox: http://source.squeak.org/treated/Tests-cmm.167.mcz ==================== Summary ==================== Name: Tests-cmm.167 Author: cmm Time: 14 September 2012, 3:18:03.044 pm UUID: e3dc023c-242d-4631-a1e2-7f266a2303f6 Ancestors: Tests-ul.166 Updated Author tests for alternative proposal. =============== Diff against Tests-ul.166 =============== Item was changed: ----- Method: AuthorTest>>setUp (in category 'running') ----- setUp + originalAuthor := Author current. + Author reset! - - originalAuthor := Author current shallowCopy! Item was changed: ----- Method: AuthorTest>>tearDown (in category 'running') ----- tearDown + Author current: originalAuthor! - - Author current copyFrom: originalAuthor! Item was changed: ----- Method: AuthorTest>>testInitiallyEmpty (in category 'tests') ----- testInitiallyEmpty - Author reset. + self assert: Author current initials isEmpty! - self assert: Author initialsPerSe isEmpty - ! Item was changed: ----- Method: AuthorTest>>testInitials (in category 'tests') ----- testInitials - Author current initials: 'Smalltalk123'. + self + assert: 'Smalltalk123' + equals: Author current initials! - self assert: 'Smalltalk123' equals: Author initialsPerSe ! Item was changed: ----- Method: AuthorTest>>testInitialsCanContainOnlyAsciiAlphanumericCharacters (in category 'tests') ----- testInitialsCanContainOnlyAsciiAlphanumericCharacters - Author reset. + [ Utilities authorInitials ] valueSupplyingAnswer: + {'*'. + '!!@#$Smalltalk123' , (Character value: 1234) asString}. + self + assert: 'Smalltalk123' + equals: Author current initials! - [ Author current requestAndSetInitials ] valueSupplyingAnswer: { - '*'. - '!!@#$Smalltalk123', (Character value: 1234) asString }. - self assert: 'Smalltalk123' equals: Author initialsPerSe - - ! Item was removed: - ----- Method: AuthorTest>>testNewRaisesError (in category 'tests') ----- - testNewRaisesError - - self should: [ Author new ] raise: Error! Item was changed: ----- Method: AuthorTest>>testRequestAndSetInitials (in category 'tests') ----- testRequestAndSetInitials - Author reset. + [ Utilities authorInitials ] valueSupplyingAnswer: {'*'. 'Smalltalk123'}. + self + assert: 'Smalltalk123' + equals: Author current initials! - [ Author current requestAndSetInitials ] valueSupplyingAnswer: { - '*'. - 'Smalltalk123' }. - self assert: 'Smalltalk123' equals: Author initialsPerSe - ! Item was changed: ----- Method: AuthorTest>>testRequestAndSetUserName (in category 'tests') ----- testRequestAndSetUserName - Author reset. + [ Utilities authorName ] valueSupplyingAnswer: {'*'. 'Smalltalk123'}. + self + assert: 'Smalltalk123' + equals: Author current username! - [ Author current requestAndSetUsername ] valueSupplyingAnswer: { - '*'. - 'Smalltalk123' }. - self assert: 'Smalltalk123' equals: Author usernamePerSe - ! Item was changed: ----- Method: AuthorTest>>testUseInitialsDuring (in category 'tests') ----- testUseInitialsDuring - | originalInitials | + originalInitials := Author current initials. + Author current + useInitials: 'other' , originalInitials + during: + [ self + assert: 'other' , originalInitials + equals: Author current initials ]. + self + assert: originalInitials + equals: Author current initials! - originalInitials := Author initialsPerSe. - Author useInitials: 'other', originalInitials during: [ - self assert: 'other', originalInitials equals: Author initialsPerSe ]. - self assert: originalInitials equals: Author initialsPerSe! Item was changed: ----- Method: AuthorTest>>testUsername (in category 'tests') ----- testUsername - Author current username: 'Smalltalk123'. + self + assert: 'Smalltalk123' + equals: Author current username! - self assert: 'Smalltalk123' equals: Author usernamePerSe !

1 0

The Treated Inbox: Kernel-cmm.832.mcz
by commits＠source.squeak.org 08 Sep '22

08 Sep '22

Chris Muller uploaded a new version of Kernel to project The Treated Inbox: http://source.squeak.org/treated/Kernel-cmm.832.mcz ==================== Summary ==================== Name: Kernel-cmm.832 Author: cmm Time: 8 January 2014, 2:30:21.885 pm UUID: 80beeb99-09b1-4747-a785-d777e9b2fff7 Ancestors: Kernel-cmm.831 Rename #primRemoveFromSystem: to #basicRemoveFromSystem:. =============== Diff against Kernel-fbs.829 =============== Item was added: + ----- Method: Class>>basicRemoveFromSystem: (in category 'initialize-release') ----- + basicRemoveFromSystem: logged + "Forget the receiver from the Smalltalk global dictionary. Any existing + instances will refer to an obsolete version of the receiver." + + "keep the class name and category for triggering the system change message. If we wait to long, then we get obsolete information which is not what we want." + + "tell class to deactivate and unload itself-- two separate events in the module system" + self deactivate; unload. + self superclass ifNotNil: + ["If we have no superclass there's nothing to be remembered" + self superclass addObsoleteSubclass: self]. + self environment forgetClass: self logged: logged. + SystemChangeNotifier uniqueInstance noMoreNotificationsFor: self. + self obsolete.! Item was changed: ----- Method: Class>>removeFromSystem: (in category 'initialize-release') ----- + removeFromSystem: logged - removeFromSystem: logged "Forget the receiver from the Smalltalk global dictionary. Any existing instances will refer to an obsolete version of the receiver." - "keep the class name and category for triggering the system change message. If we wait to long, then we get obsolete information which is not what we want." - "tell class to deactivate and unload itself-- two separate events in the module system" + subclasses ifNotNil: + [ subclasses copy do: + [ : each | each removeFromSystem: logged ] ]. + self basicRemoveFromSystem: logged! - self deactivate; unload. - self superclass ifNotNil: - ["If we have no superclass there's nothing to be remembered" - self superclass addObsoleteSubclass: self]. - self environment forgetClass: self logged: logged. - self obsolete.!

1 0

The Treated Inbox: Installer-Core-cmm.378.mcz
by commits＠source.squeak.org 08 Sep '22

08 Sep '22

Chris Muller uploaded a new version of Installer-Core to project The Treated Inbox: http://source.squeak.org/treated/Installer-Core-cmm.378.mcz ==================== Summary ==================== Name: Installer-Core-cmm.378 Author: cmm Time: 9 August 2013, 5:04:23.858 pm UUID: 79285e19-2913-476e-b396-b1a01a652edc Ancestors: Installer-Core-cmm.377 Allow the default repositories for external-packages to be preempted or reinforced. =============== Diff against Installer-Core-cmm.377 =============== Item was changed: Object subclass: #Installer instanceVariableNames: 'answers packages messagesToSuppress useFileIn noiseLevel currentRepository' + classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered Repositories SkipLoadingTests ValidationBlock' - classVariableNames: 'InstallerBindings IsSetToTrapErrors Remembered SkipLoadingTests ValidationBlock' poolDictionaries: '' category: 'Installer-Core'! !Installer commentStamp: 'kph 3/30/2009 01:29' prior: 0! Documentation now available at http://installer.pbwiki.com/Installer useFileIn - flag to load source.st rather than using Monticello! Item was added: + ----- Method: Installer class>>defaultRepositoryFor: (in category 'repositories') ----- + defaultRepositoryFor: anAssociation + ^ (self perform: anAssociation key) + project: anAssociation value ; + mc! Item was added: + ----- Method: Installer class>>fallbackRepositoryFor:is: (in category 'repositories') ----- + fallbackRepositoryFor: scope is: anMCRepository + self + overrideRepositoryFor: scope + with: + (MCRepositoryGroup new + addRepository: (self defaultRepositoryFor: scope) ; + addRepository: anMCRepository ; + yourself)! Item was added: + ----- Method: Installer class>>overrideRepository:with: (in category 'repositories') ----- + overrideRepository: scope with: anMCRepository + "Override the standard repository specified by scope with anMCRepository. To override an entire repository, specify scope as the repository selector. To override a single project within a repository, scope should be an Association whose key is the repository selector and value is the project name." + self repositories + at: scope + put: anMCRepository! Item was added: + ----- Method: Installer class>>packageCache (in category 'repositories') ----- + packageCache + ^ MCCacheRepository default! Item was added: + ----- Method: Installer class>>preemptRepository:with: (in category 'repositories') ----- + preemptRepository: scope with: anMCRepository + self + overrideRepositoryFor: scope + with: + (MCRepositoryGroup new + addRepository: anMCRepository ; + addRepository: (self defaultRepositoryFor: scope) ; + yourself)! Item was added: + ----- Method: Installer class>>removeOverride: (in category 'repositories') ----- + removeOverride: scope + "Remove override specified by scope and return to using the default repository for packages within that scope." + ^ self repositories + removeKey: scope + ifAbsent: [ ]! Item was changed: + ----- Method: Installer class>>repositories (in category 'repositories') ----- - ----- Method: Installer class>>repositories (in category 'instanciation') ----- repositories + ^ Repositories ifNil: [ Repositories := Dictionary new ]! - - ^ self class organization listAtCategoryNamed: 'repositories'. - ! Item was added: + ----- Method: Installer class>>repositoryFor: (in category 'repositories') ----- + repositoryFor: anAssociation + | rep | + rep := self repositories + at: anAssociation + ifAbsent: + [ self repositories + at: anAssociation value + ifAbsent: + [ self repositories + at: anAssociation key + ifAbsent: [ ^ self defaultRepositoryFor: anAssociation ] ] ]. + ^ rep isSymbol + ifTrue: [ self defaultRepositoryFor: rep -> anAssociation value ] + ifFalse: [ rep ]! Item was changed: ----- Method: Installer>>htmlValidator (in category 'external-packages') ----- htmlValidator "Validates HTML and CSS pages against W3C DTD." + ^ { #ss3 -> 'htmlcssparser'. + 'HTML' }! - ^ { #ss -> 'htmlcssparser'. - 'HTML-tb.37' }! Item was changed: ----- Method: Installer>>setRepository: (in category 'private') ----- setRepository: anAssociation + currentRepository := self class repositoryFor: anAssociation! - currentRepository := (self class perform: anAssociation key) - project: anAssociation value ; - mc!

1 0

The Treated Inbox: Morphic-cmm.2024.mcz
by commits＠source.squeak.org 07 Sep '22

07 Sep '22

Chris Muller uploaded a new version of Morphic to project The Treated Inbox: http://source.squeak.org/treated/Morphic-cmm.2024.mcz ==================== Summary ==================== Name: Morphic-cmm.2024 Author: cmm Time: 7 September 2022, 3:46:32.202167 pm UUID: 0aaef174-20a7-4ffc-b7ce-95de8239c04b Ancestors: Morphic-mt.2023 Commit test. Please ignore. =============== Diff against Morphic-mt.2023 =============== Item was added: + ----- Method: Morph class>>test (in category 'testing') ----- + test!

1 0

The Trunk: Chronology-Tests-dtl.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-dtl.31.mcz ==================== Summary ==================== Name: Chronology-Tests-dtl.31 Author: dtl Time: 19 May 2022, 12:04:32.792923 pm UUID: ed1a302a-660e-4fc1-bdf7-6afb9b82fc90 Ancestors: Chronology-Tests-ct.30 Test updates to support Chronology-Core-dtl.80. Change DateAndTime>>offset: to be compliant with the ANSI draft spec. The offset: method should answer an instance equivalent to the receiver, where equivalent means having the same UTC time. =============== Diff against Chronology-Tests-ct.30 =============== 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: 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-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-Core-dtl.80.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.80.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.80 Author: dtl Time: 19 May 2022, 12:03:05.720962 pm UUID: 1b1b97c4-bc35-408d-b548-f0d0376a0808 Ancestors: Chronology-Core-dtl.79 Change DateAndTime>>offset: to be compliant with the ANSI draft spec. The offset: method should answer an instance equivalent to the receiver, where equivalent means having the same UTC time. Let #offset: adopt the prior behavior of #utcOffset: and let #utcOffset: be a compatibility synonym for #offset:. Add #asLocalAt: to the squeak protocol and let it implement the prior behavior of #offset: Change existing code and tests to use #asLocalAt: but otherwise retain existing behavior. Issue reported at https://github.com/squeak-smalltalk/squeak-object-memory/issues/23 =============== Diff against Chronology-Core-dtl.79 =============== 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

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

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages September 2022