Packages January 2019

packages@lists.squeakfoundation.org

1 participants
90 discussions

The Trunk: System-tpr.1049.mcz
by commits＠source.squeak.org 07 Jan '19

07 Jan '19

tim Rowledge uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tpr.1049.mcz ==================== Summary ==================== Name: System-tpr.1049 Author: tpr Time: 6 January 2019, 6:01:46.155189 pm UUID: 8680d7e1-ee3a-47a3-95fb-eff9ce4505a3 Ancestors: System-tpr.1048 Actually comment FileServices. Goodness me, whatever next? =============== Diff against System-tpr.1048 =============== Item was changed: Object subclass: #FileServices instanceVariableNames: '' classVariableNames: 'FileReaderRegistry' poolDictionaries: '' category: 'System-FileRegistry'! + + !FileServices commentStamp: 'tpr 1/6/2019 17:58' prior: 0! + FileServices is a registry of classes that provide file reading services - defined in the current implementation as classes implementing (directly, not inheriting) #fileReaderServicesForFile:suffix: on their class side. + Registered classes can provide services to read a file (specified by file name and suffix) or directory (specified by path name). + Mostly these services are used in file browser scenarios but see also ExternalDropHandler class>>#lookupServiceBasedHandler: for a different pattern! Item was changed: ----- Method: FileServices class>>isReaderNamedRegistered: (in category 'accessing') ----- isReaderNamedRegistered: aSymbol + "return if a given reader class has been registered. Note that this is on purpose that the argument is a symbol and not a class" - "return if a given reader class has been registered. Note that this is on purpose that the argument is - a symbol and not a class" ^ (self registeredFileReaderClasses collect: [:each | each name]) includes: aSymbol ! Item was changed: ----- Method: FileServices class>>suffixOf: (in category 'accessing') ----- suffixOf: aName + "Answer the file extension of the given file, or an empty string should the file name be nil" - "Answer the file extension of the given file" ^ aName ifNil: [''] ifNotNil: [(FileDirectory extensionFor: aName) asLowercase]!

1 0

The Trunk: System-tpr.1048.mcz
by commits＠source.squeak.org 07 Jan '19

07 Jan '19

tim Rowledge uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-tpr.1048.mcz ==================== Summary ==================== Name: System-tpr.1048 Author: tpr Time: 6 January 2019, 5:40:30.923283 pm UUID: bac3c975-3c4b-441c-a8b2-3bb950f50631 Ancestors: System-pre.1047 Start to clean up theFileServices list of registered classes; CornerGripMorph really shouldn't be there. By initialising the registry and rebuilding it we solve that small issue. I'll assume that the initialize method will get run when loading this patch. =============== Diff against System-pre.1047 =============== Item was changed: ----- Method: FileServices class>>initialize (in category 'accessing') ----- initialize "FileServices initialize" + FileReaderRegistry := nil. Smalltalk allClassesDo:[:aClass| (aClass class includesSelector: #fileReaderServicesForFile:suffix:) ifTrue:[self registerFileReader: aClass]].!

1 0

The Trunk: ToolBuilder-Morphic-tpr.222.mcz
by commits＠source.squeak.org 07 Jan '19

07 Jan '19

tim Rowledge uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-tpr.222.mcz ==================== Summary ==================== Name: ToolBuilder-Morphic-tpr.222 Author: tpr Time: 6 January 2019, 4:17:48.50377 pm UUID: fafb40ab-5f4c-4b83-ad8e-69ae5100c047 Ancestors: ToolBuilder-Morphic-pre.221 Add a 'new directory' button to DirectoryChooser and FileSaver dialogues. The new directory will be a subdirectory of the current directory; the dialogue should update and select the new directory. The position of the button is probably not ideal but can be moved later if we decide this is a facility to keep. =============== Diff against ToolBuilder-Morphic-pre.221 =============== Item was added: + ----- Method: DirectoryChooserDialog>>buildButtonsWith: (in category 'toolbuilder') ----- + buildButtonsWith: builder + "add a 'new directory' button to the beginning of the row of buttons" + ^{ builder pluggableButtonSpec new + model: self; + label: 'New Directory' translated; + color: (self userInterfaceTheme get: #buttonColor for: #DialogWindow); + action: #newDirectoryName}, (super buildButtonsWith: builder)! Item was added: + ----- Method: FileAbstractSelectionDialog>>newDirectoryName (in category 'directory tree') ----- + newDirectoryName + "Create a new directory; will be a subdirectory of the current chosen directory. + If the user input is empty, or if the directory creation fails, fail this method. + Update the directory tree display afterwards and set the current directory to the newly created directory" + |userInput| + userInput := UIManager default request: 'New directory name' translated initialAnswer: 'newDir'. + userInput isEmptyOrNil ifTrue: [^nil]. + + [self directory createDirectory: userInput] ifError:[^nil]. "I hate using ifError: - it's so indiscriminate. Really ought to be a more precise error to catch properly" + + self changed: #rootDirectoryList. + self directory: (self directory / userInput). + self changed: #selectedPath! Item was added: + ----- Method: FileSaverDialog>>buildButtonsWith: (in category 'toolbuilder') ----- + buildButtonsWith: builder + "add a 'new directory' button to the beginning of the row of buttons" + ^{ builder pluggableButtonSpec new + model: self; + label: 'New Directory' translated; + color: (self userInterfaceTheme get: #buttonColor for: #DialogWindow); + action: #newDirectoryName}, (super buildButtonsWith: builder)!

1 0

The Trunk: MonticelloConfigurations-dtl.155.mcz
by commits＠source.squeak.org 06 Jan '19

06 Jan '19

David T. Lewis uploaded a new version of MonticelloConfigurations to project The Trunk: http://source.squeak.org/trunk/MonticelloConfigurations-dtl.155.mcz ==================== Summary ==================== Name: MonticelloConfigurations-dtl.155 Author: dtl Time: 6 January 2019, 5:49:54.35982 pm UUID: 2a3d8d3c-2f1e-48f0-818c-09372e553791 Ancestors: MonticelloConfigurations-dtl.154 When editing a MCConfiguration, add the name of the configuration to the browser window label. This helps keep track of the configuration map being edited, which may otherwise be confusing when updating configuration maps across more than one repository or update stream name. =============== Diff against MonticelloConfigurations-dtl.154 =============== Item was changed: ----- Method: MCConfiguration>>browse (in category 'actions') ----- browse + | browser | + browser := MCConfigurationBrowser new configuration: self. + name ifNotNil: [:nm | browser label: browser defaultLabel , ' ' , nm]. + browser show! - (MCConfigurationBrowser new configuration: self) show! Item was changed: ----- Method: MCConfigurationBrowser>>defaultExtent (in category 'morphic ui') ----- defaultExtent + ^ 360@500! - ^ 350@500!

1 0

The Trunk: Chronology-Tests-dtl.14.mcz
by commits＠source.squeak.org 06 Jan '19

06 Jan '19

David T. Lewis uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-dtl.14.mcz ==================== Summary ==================== Name: Chronology-Tests-dtl.14 Author: dtl Time: 6 January 2019, 11:42:13.906548 am UUID: 5f14d4a9-46fc-4d54-926f-6b2a14e10bee Ancestors: Chronology-Tests-dtl.13 The hash function for DateAndTime changed as of Chronology-Core-dtl.20. Update hash tests to match the new hash values. =============== Diff against Chronology-Tests-dtl.13 =============== Item was changed: ----- Method: DateAndTimeEpochTest>>testHash (in category 'tests') ----- testHash self assert: aDateAndTime hash = DateAndTime new hash. + self assert: aDateAndTime hash = -2177452800000000 - self assert: aDateAndTime hash = 112557138 ! Item was changed: ----- Method: DateAndTimeLeapTest>>testHash (in category 'testing') ----- testHash + self assert: aDateAndTime hash = 1078054380000000 - self assert: aDateAndTime hash = 16256473 !

1 0

The Trunk: Chronology-Tests-dtl.13.mcz
by commits＠source.squeak.org 06 Jan '19

06 Jan '19

David T. Lewis uploaded a new version of Chronology-Tests to project The Trunk: http://source.squeak.org/trunk/Chronology-Tests-dtl.13.mcz ==================== Summary ==================== Name: Chronology-Tests-dtl.13 Author: dtl Time: 5 January 2019, 6:25:04.438654 pm UUID: a1330c2e-f7b9-47f8-8438-7baf8be6a4db Ancestors: Chronology-Tests-dtl.12 Add tests to ensure that the Smalltalk epoch and Posix epoch are both treated as contants independent of time zone, and are separated by an agreed duration. Tests will fail in earlier versions of Chronology-Core, and pass now (after UTC updates). By definition, the Smalltalk epoch is January 01, 1901 midnight with localTimeZone = Greenwhich Meridian (local offset = 0 hours). By convention, and as enforced in the VM, the number of elapsed seconds from Smalltalk epoch to Posix epoch is 2177452800. Change method category from 'testing' to 'tests'. Revert TimeStampTest>>testFromSeconds to its original version written by Brent Pinkney. The bodged up version of the test from KernelTests-dtl.235 is no longer required, and will fail after latest Chronology-Core with UTC updates. =============== Diff against Chronology-Tests-dtl.12 =============== Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsDate (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsDate (in category 'testing') ----- testAsDate self assert: aDateAndTime asDate = 'January 1, 1901' asDate. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsDateAndTime (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsDateAndTime (in category 'testing') ----- testAsDateAndTime self assert: aDateAndTime asDateAndTime = aDateAndTime ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsDuration (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsDuration (in category 'testing') ----- testAsDuration self assert: aDateAndTime asDuration = 0 asDuration ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsLocal (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsLocal (in category 'testing') ----- testAsLocal self assert: aDateAndTime asLocal = aDateAndTime. self assert: aDateAndTime asLocal = (aDateAndTime utcOffset: aDateAndTime class localOffset) ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsMonth (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsMonth (in category 'testing') ----- testAsMonth self assert: aDateAndTime asMonth = (Month month: 'January' year: 1901). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsNanoSeconds (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsNanoSeconds (in category 'testing') ----- testAsNanoSeconds self assert: aDateAndTime asNanoSeconds = 0 asDuration asNanoSeconds ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsSeconds (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsSeconds (in category 'testing') ----- testAsSeconds self assert: aDateAndTime asSeconds = 0 asDuration asSeconds ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsTime (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsTime (in category 'testing') ----- testAsTime self assert: aDateAndTime asTime = Time midnight. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsTimeStamp (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsTimeStamp (in category 'testing') ----- testAsTimeStamp self assert: aDateAndTime asTimeStamp = TimeStamp new. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsUTC (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsUTC (in category 'testing') ----- testAsUTC self assert: aDateAndTime asUTC = aDateAndTime ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsWeek (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsWeek (in category 'testing') ----- testAsWeek self assert: aDateAndTime asWeek = (Week starting: '12-31-1900' asDate). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testAsYear (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testAsYear (in category 'testing') ----- testAsYear self assert: aDateAndTime asYear = (Year starting: '01-01-1901' asDate). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testCurrent (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testCurrent (in category 'testing') ----- testCurrent self deny: aDateAndTime = (DateAndTime current). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDateTime (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDateTime (in category 'testing') ----- testDateTime self assert: aDateAndTime = (DateAndTime date: '01-01-1901' asDate time: '00:00:00' asTime) ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDay (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDay (in category 'testing') ----- testDay self assert: aDateAndTime day = DateAndTime new day ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDayMonthYearDo (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDayMonthYearDo (in category 'testing') ----- testDayMonthYearDo |iterations| iterations := 0. self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | iterations := iterations + 1]) = 1. self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachYear]) = 1901. self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachMonth]) = 1. self assert: (aDateAndTime dayMonthYearDo: [:eachDay :eachMonth :eachYear | eachDay]) = 1. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDayOfMonth (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDayOfMonth (in category 'testing') ----- testDayOfMonth self assert: aDateAndTime dayOfMonth = 1. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDayOfWeek (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDayOfWeek (in category 'testing') ----- testDayOfWeek self assert: aDateAndTime dayOfWeek = 3. self assert: aDateAndTime dayOfWeekAbbreviation = 'Tue'. self assert: aDateAndTime dayOfWeekName = 'Tuesday'. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDayOfYear (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDayOfYear (in category 'testing') ----- testDayOfYear self assert: aDateAndTime dayOfYear = 1. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDaysInMonth (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDaysInMonth (in category 'testing') ----- testDaysInMonth self assert: aDateAndTime daysInMonth = 31. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDaysInYear (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDaysInYear (in category 'testing') ----- testDaysInYear self assert: aDateAndTime daysInYear = 365. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDaysLeftInYear (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDaysLeftInYear (in category 'testing') ----- testDaysLeftInYear self assert: aDateAndTime daysLeftInYear = 364. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testDuration (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testDuration (in category 'testing') ----- testDuration self assert: aDateAndTime duration = 0 asDuration. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testEpoch (in category 'tests - epoch') ----- - ----- Method: DateAndTimeEpochTest>>testEpoch (in category 'testing') ----- testEpoch self assert: aDateAndTime = '1901-01-01T00:00:00+00:00' asDateAndTime ! Item was added: + ----- Method: DateAndTimeEpochTest>>testEpochHappenedOnlyOnce (in category 'tests - epoch') ----- + testEpochHappenedOnlyOnce + "The epoch is defined as January 01, 1901 midnight with localTimeZone = Greenwhich Meridian (local offset = 0 hours)" + + | epochInMichigan epochInKyoto | + self assert: aDateAndTime = '1901-01-01T00:00:00+00:00' asDateAndTime. + self assert: 0 equals: aDateAndTime asSeconds. + epochInMichigan := '1900-12-31T19:00:00-05:00' asDateAndTime. + self assert: 0 equals: epochInMichigan asSeconds. + self assert: aDateAndTime equals: epochInMichigan. + epochInKyoto := '1901-01-01T09:00:00+09:00' asDateAndTime. + self assert: 0 equals: epochInKyoto asSeconds. + self assert: aDateAndTime equals: epochInKyoto. + + ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testFirstDayOfMonth (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testFirstDayOfMonth (in category 'testing') ----- testFirstDayOfMonth self assert: aDateAndTime firstDayOfMonth = 1 ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testFromSeconds (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testFromSeconds (in category 'testing') ----- testFromSeconds self assert: aDateAndTime = (DateAndTime fromSeconds: 0). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testFromString (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testFromString (in category 'testing') ----- testFromString self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00:00+00:00'). self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00:00'). self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00'). self assert: aDateAndTime = (DateAndTime fromString: ' 1901-01-01T00:00:00+00:00'). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testHash (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testHash (in category 'testing') ----- testHash self assert: aDateAndTime hash = DateAndTime new hash. self assert: aDateAndTime hash = 112557138 ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testHour (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testHour (in category 'testing') ----- testHour self assert: aDateAndTime hour = aDateAndTime hour24. self assert: aDateAndTime hour = 0. self assert: aDateAndTime hour = aDateAndTime hours ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testHour12 (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testHour12 (in category 'testing') ----- testHour12 self assert: aDateAndTime hour12 = DateAndTime new hour12. self assert: aDateAndTime hour12 = 12 ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testIsLeapYear (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testIsLeapYear (in category 'testing') ----- testIsLeapYear self deny: aDateAndTime isLeapYear ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testJulianDayNumber (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testJulianDayNumber (in category 'testing') ----- testJulianDayNumber self assert: aDateAndTime = (DateAndTime julianDayNumber: 2415386). self assert: aDateAndTime julianDayNumber = 2415386.! Item was changed: + ----- Method: DateAndTimeEpochTest>>testLessThan (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testLessThan (in category 'testing') ----- testLessThan self assert: aDateAndTime < (aDateAndTime + '1:00:00:00'). self assert: aDateAndTime + -1 < aDateAndTime. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testMeridianAbbreviation (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testMeridianAbbreviation (in category 'testing') ----- testMeridianAbbreviation self assert: aDateAndTime meridianAbbreviation = 'AM'. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testMiddleOf (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testMiddleOf (in category 'testing') ----- testMiddleOf self assert: (aDateAndTime middleOf: '2:00:00:00' asDuration) = (Timespan starting: '12-31-1900' asDate duration: 2 days). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testMidnight (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testMidnight (in category 'testing') ----- testMidnight self assert: aDateAndTime midnight = aDateAndTime ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testMinus (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testMinus (in category 'testing') ----- testMinus self assert: aDateAndTime - aDateAndTime = '0:00:00:00' asDuration. self assert: aDateAndTime - '0:00:00:00' asDuration = aDateAndTime. self assert: aDateAndTime - aDuration = (DateAndTime year: 1900 month: 12 day: 30 hour: 21 minute: 56 second: 55 nanoSecond: 999999995 offset: 0 hours ). " I believe this Failure is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)" ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testMinute (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testMinute (in category 'testing') ----- testMinute self assert: aDateAndTime minute = 0 ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testMinutes (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testMinutes (in category 'testing') ----- testMinutes self assert: aDateAndTime minutes = 0 ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testMonth (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testMonth (in category 'testing') ----- testMonth self assert: aDateAndTime month = 1. self assert: aDateAndTime monthAbbreviation = 'Jan'. self assert: aDateAndTime monthName = 'January'. self assert: aDateAndTime monthIndex = 1.! Item was changed: + ----- Method: DateAndTimeEpochTest>>testNanoSecond (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testNanoSecond (in category 'testing') ----- testNanoSecond self assert: aDateAndTime nanoSecond = 0 ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testNew (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testNew (in category 'testing') ----- testNew self assert: aDateAndTime = (DateAndTime new). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testNoon (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testNoon (in category 'testing') ----- testNoon self assert: aDateAndTime noon = '1901-01-01T12:00:00+00:00' asDateAndTime! Item was changed: + ----- Method: DateAndTimeEpochTest>>testNow (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testNow (in category 'testing') ----- testNow self deny: aDateAndTime = (DateAndTime now). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testOffset (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testOffset (in category 'testing') ----- testOffset self assert: aDateAndTime offset = '0:00:00:00' asDuration. self assert: (aDateAndTime offset: '0:12:00:00') = '1901-01-01T00:00:00+12:00' asDateAndTime! Item was changed: + ----- Method: DateAndTimeEpochTest>>testPlus (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testPlus (in category 'testing') ----- testPlus self assert: aDateAndTime + '0:00:00:00' = aDateAndTime. self assert: aDateAndTime + 0 = aDateAndTime. self assert: aDateAndTime + aDuration = (DateAndTime year: 1901 month: 1 day: 2 hour: 2 minute: 3 second: 4 nanoSecond: 5 offset: 0 hours ) " I believe this is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)" ! Item was added: + ----- Method: DateAndTimeEpochTest>>testPosixEpoch (in category 'tests - epoch') ----- + testPosixEpoch + "The Smalltalk epoch happened, by agreed convention, 2177452800 seconds + prior to the Posix epoch, which is defined as 1970-01-01T00:00:00+00:00. + + Note for reference the corresponding implementation in the Unix VM: + + /* Squeak epoch is Jan 1, 1901. Unix epoch is Jan 1, 1970: 17 leap years + and 52 non-leap years later than Squeak. */ + return unixTime + ((52*365UL + 17*366UL) * 24*60*60UL);" + + | epochInMichigan epochInKyoto posixEpoch epochDelta | + epochDelta := 2177452800. + self assert: epochDelta equals: ((52*365 + (17*366)) * 24*60*60). "cross check against VM code" + posixEpoch := '1970-01-01T00:00:00+00:00' asDateAndTime. + self assert: epochDelta equals: posixEpoch asSeconds. + epochInMichigan := '1969-12-31T19:00:00-05:00' asDateAndTime. + self assert: epochDelta equals: epochInMichigan asSeconds. + self assert: posixEpoch equals: epochInMichigan. + epochInKyoto := '1970-01-01T09:00:00+09:00' asDateAndTime. + self assert: epochDelta equals: epochInKyoto asSeconds. + self assert: posixEpoch equals: epochInKyoto. + + ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testPrintOn (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testPrintOn (in category 'testing') ----- testPrintOn | ref ws | ref := '1901-01-01T00:00:00+00:00'. ws := '' writeStream. aDateAndTime printOn: ws. self assert: ws contents = ref. ref := 'a TimeZone(ETZ)'. ws := '' writeStream. aTimeZone printOn: ws. self assert: ws contents = ref! Item was changed: + ----- Method: DateAndTimeEpochTest>>testSecond (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testSecond (in category 'testing') ----- testSecond self assert: aDateAndTime second = 0 ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testSeconds (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testSeconds (in category 'testing') ----- testSeconds self assert: aDateAndTime seconds = 0 ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testTicks (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testTicks (in category 'testing') ----- testTicks self assert: aDateAndTime ticks = (DateAndTime julianDayNumber: 2415386) ticks. self assert: aDateAndTime ticks = #(2415386 0 0)! Item was changed: + ----- Method: DateAndTimeEpochTest>>testTicksOffset (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testTicksOffset (in category 'testing') ----- testTicksOffset self assert: aDateAndTime = (aDateAndTime ticks: #(2415386 0 0) offset: DateAndTime localOffset). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testTo (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testTo (in category 'testing') ----- testTo self assert: (aDateAndTime to: aDateAndTime) = (DateAndTime new to: DateAndTime new) "MessageNotUnderstood: UndefinedObject>>starting:ending: where UndefinedObject is Timespan "! Item was changed: + ----- Method: DateAndTimeEpochTest>>testToBy (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testToBy (in category 'testing') ----- testToBy self assert: (aDateAndTime to: aDateAndTime + 10 days by: 5 days) = (DateAndTime new to: DateAndTime new + 10 days by: 5 days ) "MessageNotUnderstood: UndefinedObject>>starting:ending: where UndefinedObject is Timespan "! Item was changed: + ----- Method: DateAndTimeEpochTest>>testToByDo (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testToByDo (in category 'testing') ----- testToByDo "self assert: (aDateAndTime to: aDateAndTime + 10 days by: 5 days do: []) = " "MessageNotUnderstood: UndefinedObject>>starting:ending: where UndefinedObject is Timespan "! Item was changed: + ----- Method: DateAndTimeEpochTest>>testToday (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testToday (in category 'testing') ----- testToday self deny: aDateAndTime = (DateAndTime today). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testTommorrow (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testTommorrow (in category 'testing') ----- testTommorrow self assert: (DateAndTime today + 24 hours) = (DateAndTime tomorrow). self deny: aDateAndTime = (DateAndTime tomorrow). "MessageNotUnderstood: Date class>>starting:"! Item was changed: + ----- Method: DateAndTimeEpochTest>>testUtcOffset (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testUtcOffset (in category 'testing') ----- testUtcOffset self assert: (aDateAndTime utcOffset: '0:12:00:00') = '1901-01-01T12:00:00+12:00' asDateAndTime! Item was changed: + ----- Method: DateAndTimeEpochTest>>testYear (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testYear (in category 'testing') ----- testYear self assert: aDateAndTime year = 1901. ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testYearDay (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testYearDay (in category 'testing') ----- testYearDay self assert: aDateAndTime = (DateAndTime year: 1901 day: 1). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testYearDayHourMinuteSecond (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testYearDayHourMinuteSecond (in category 'testing') ----- testYearDayHourMinuteSecond self assert: aDateAndTime = (DateAndTime year: 1901 day: 1 hour: 0 minute: 0 second: 0). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testYearMonthDay (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testYearMonthDay (in category 'testing') ----- testYearMonthDay self assert: aDateAndTime = (DateAndTime year: 1901 month: 1 day: 1). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testYearMonthDayHourMinuteSecond (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testYearMonthDayHourMinuteSecond (in category 'testing') ----- testYearMonthDayHourMinuteSecond self assert: aDateAndTime = (DateAndTime year: 1901 month: 1 day: 1 hour: 0 minute: 0 second: 0). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testYearMonthDayHourMinuteSecondNanosSecondOffset (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testYearMonthDayHourMinuteSecondNanosSecondOffset (in category 'testing') ----- testYearMonthDayHourMinuteSecondNanosSecondOffset self assert: aDateAndTime = (DateAndTime year: 1901 month: 1 day: 1 hour: 0 minute: 0 second: 0 nanoSecond: 0 offset:0 hours ). self assert: ((DateAndTime year: 1 month: 1 day: 1 hour: 0 minute: 0 second: 0 nanoSecond: 0 offset: 0 hours ) + (Duration days: 1 hours: 2 minutes: 3 seconds: 4 nanoSeconds: 5) ) = (DateAndTime year: 1 month: 1 day: 2 hour: 2 minute: 3 second: 4 nanoSecond: 5 offset: 0 hours ) " I believe this is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)"" I believe this is a bug in the nanosecond part of (DateAndTime >> year:month:day:hour:minute:second:nanoSecond:offset:)" ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testYesterday (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testYesterday (in category 'testing') ----- testYesterday self deny: aDateAndTime = (DateAndTime yesterday). ! Item was changed: + ----- Method: DateAndTimeEpochTest>>testtimeZone (in category 'tests') ----- - ----- Method: DateAndTimeEpochTest>>testtimeZone (in category 'testing') ----- testtimeZone self assert: aDateAndTime timeZoneName = 'Universal Time'. self assert: aDateAndTime timeZoneAbbreviation = 'UTC' ! Item was added: + ----- Method: DateAndTimeTest>>testAsSecondsIsTheSameInAnyTimezone (in category 'Tests') ----- + testAsSecondsIsTheSameInAnyTimezone + "Using the Posix epoch as a convenient reference, verify that this point + in time is represented with the same magnitude in any local time zone." + + | posixEpochInVariousLocations | + posixEpochInVariousLocations := { + '1970-01-01T00:00:00+00:00' asDateAndTime . + '1970-01-01T01:00:00+01:00' asDateAndTime . + '1970-01-01T02:00:00+02:00' asDateAndTime . + '1970-01-01T12:00:00+12:00' asDateAndTime . + '1969-12-31T23:00:00-01:00' asDateAndTime . + '1969-12-31T22:00:00-02:00' asDateAndTime . + '1969-12-31T12:00:00-12:00' asDateAndTime + }. + posixEpochInVariousLocations do: [ :e | + self assert: 2177452800 equals: e asSeconds ]. + ! Item was changed: ----- Method: TimeStampTest>>testFromSeconds (in category 'Tests') ----- testFromSeconds - "A time stamp from seconds is created in the local time zone, so offset may - be non-zero. The test timestamp has offset zero (implying UTC). Comparison - to the test timestamp should succeed if and only if both time stamps are - created relative to the same time zone (UTC)." + self + assert: (self timestampClass fromSeconds: 3124958100) = timestamp.! - | local utc | - local := self timestampClass fromSeconds: 3124958100. - local offset = Duration zero - ifTrue: [self assert: local = timestamp.] - ifFalse: [self deny: local = timestamp.]. - utc := local offset: Duration zero. - self assert: utc = timestamp.!

1 0

The Trunk: SqueakSSL-Tests-eem.23.mcz
by commits＠source.squeak.org 05 Jan '19

05 Jan '19

Eliot Miranda uploaded a new version of SqueakSSL-Tests to project The Trunk: http://source.squeak.org/trunk/SqueakSSL-Tests-eem.23.mcz ==================== Summary ==================== Name: SqueakSSL-Tests-eem.23 Author: eem Time: 4 January 2019, 5:39:27.93479 pm UUID: b36e12d5-b639-499d-8719-cb55f619e780 Ancestors: SqueakSSL-Tests-pre.22 Fix a slip in tearDown =============== Diff against SqueakSSL-Tests-pre.22 =============== Item was changed: ----- Method: SqueakSSLTest>>tearDown (in category 'setup') ----- tearDown "Shut down everything" clientProcess ifNotNil:[clientProcess terminate]. + serverProcess ifNotNil:[serverProcess terminate]. - serverProcess ifNotNil:[serverProcess]. sslClient ifNotNil:[sslClient destroy]. sslServer ifNotNil:[sslServer destroy]. !

1 0

The Trunk: Regex-Core-eem.54.mcz
by commits＠source.squeak.org 05 Jan '19

05 Jan '19

Eliot Miranda uploaded a new version of Regex-Core to project The Trunk: http://source.squeak.org/trunk/Regex-Core-eem.54.mcz ==================== Summary ==================== Name: Regex-Core-eem.54 Author: eem Time: 4 January 2019, 5:26:00.659106 pm UUID: 42807ecb-3ae0-469e-8d0a-73e6d0197bda Ancestors: Regex-Core-ul.53 Remove an unnecessary store into block argument =============== Diff against Regex-Core-ul.53 =============== Item was changed: ----- Method: RxsCharSet>>enumerableSetIgnoringCase: (in category 'privileged') ----- enumerableSetIgnoringCase: aBoolean "Answer a collection of characters that make up the portion of me that can be enumerated, or nil if there are no such characters. The case check is only used to determine the type of set to be used. The returned set won't contain characters of both cases, because this way the senders of this method can create more efficient checks." | highestCharacterCode set | highestCharacterCode := elements inject: -1 into: [ :max :each | + (each maximumCharacterCodeIgnoringCase: aBoolean) max: max ]. - max := (each maximumCharacterCodeIgnoringCase: aBoolean) max: max ]. highestCharacterCode = -1 ifTrue: [ ^nil ]. set := highestCharacterCode <= 255 ifTrue: [ CharacterSet new ] ifFalse: [ WideCharacterSet new ]. elements do: [ :each | each enumerateTo: set ]. ^set!

1 0

The Trunk: Kernel-eem.1210.mcz
by commits＠source.squeak.org 05 Jan '19

05 Jan '19

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1210.mcz ==================== Summary ==================== Name: Kernel-eem.1210 Author: eem Time: 4 January 2019, 4:38:17.37951 pm UUID: d4fc9cd7-ac05-442d-bfe6-8b29ee965a98 Ancestors: Kernel-eem.1209 Have printInstructionsOn: (but not printInstructionsOn:do:, which is used by the explorer) print nested full blocks indented inline, for compatibility with the behavior for embedded blocks. =============== Diff against Kernel-eem.1209 =============== Item was changed: InstructionClient subclass: #InstructionPrinter + instanceVariableNames: 'method scanner stream oldPC innerIndents indent printPC indentSpanOfFollowingJump fullBlockRecursionSelector' - instanceVariableNames: 'method scanner stream oldPC innerIndents indent printPC indentSpanOfFollowingJump' classVariableNames: '' poolDictionaries: '' category: 'Kernel-Methods'! !InstructionPrinter commentStamp: 'md 4/8/2003 12:47' prior: 0! My instances can print the object code of a CompiledMethod in symbolic format. They print into an instance variable, stream, and uses oldPC to determine how many bytes to print in the listing. The variable method is used to hold the method being printed.! Item was changed: ----- Method: InstructionPrinter>>printInstructionsOn: (in category 'initialize-release') ----- printInstructionsOn: aStream "Append to the stream, aStream, a description of each bytecode in the instruction stream." | end | stream := aStream. scanner := InstructionStream on: method. end := method endPC. oldPC := scanner pc. innerIndents := Array new: end withAll: 0. + fullBlockRecursionSelector := #printInstructionsOn:. [scanner pc <= end] whileTrue: [scanner interpretNextInstructionFor: self]! Item was changed: ----- Method: InstructionPrinter>>pushFullClosure:numCopied: (in category 'printing') ----- pushFullClosure: aCompiledBlock numCopied: numCopied | literalIndex | literalIndex := method literals identityIndexOf: aCompiledBlock. literalIndex = 0 ifTrue: [self print: 'closureNumCopied: ', numCopied printString , ' numArgs: ', aCompiledBlock numArgs printString] ifFalse: [self print: 'pushFullClosure: (self literalAt: ', literalIndex printString, ') numCopied: ', numCopied printString, + ' "numArgs: ', aCompiledBlock numArgs printString, '"']. + + fullBlockRecursionSelector ifNotNil: + [(self class on: aCompiledBlock) + indent: indent + 1; + perform: fullBlockRecursionSelector with: stream]! - ' "numArgs: ', aCompiledBlock numArgs printString, '"']!

1 0

The Trunk: Morphic-eem.1472.mcz
by commits＠source.squeak.org 05 Jan '19

05 Jan '19

Eliot Miranda uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-eem.1472.mcz ==================== Summary ==================== Name: Morphic-eem.1472 Author: eem Time: 4 January 2019, 4:04:37.580257 pm UUID: 3ebc711f-b756-469a-9d09-ddf790c053d4 Ancestors: Morphic-mt.1471 Fix a slip in selectSubmenuKey =============== Diff against Morphic-mt.1471 =============== Item was changed: ----- Method: DockingBarMorph>>selectSubmenuKey (in category 'events-processing') ----- selectSubmenuKey self isAdheringToTop ifTrue: [ ^31 ]. self isAdheringToRight ifTrue: [ ^28 ]. self isAdheringToLeft ifTrue: [ ^29 ]. + self isAdheringToBottom ifTrue: [ ^30 ]. - self isAdheringToBottom ifTrue: [ 30 ]. ^31!

1 0

← Newer
1
2
3
4
5
6
7
8
9
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages January 2019