Squeak-dev September 2020

squeak-dev@lists.squeakfoundation.org

37 participants
269 discussions

The Inbox: Chronology-Core-dtl.58.mcz
by commits＠source.squeak.org 06 Sep '20

06 Sep '20

A new version of Chronology-Core was added to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-dtl.58.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.58 Author: dtl Time: 5 September 2020, 1:35:43.337716 pm UUID: c6ada6e9-d4a0-4f20-a71b-53ea65a114b6 Ancestors: Chronology-Core-dtl.57 Adopt simplifications from Cuis. Remove ChronologyConstants. Retain jmv author initials where possible. The shared pool is not required, it is simpler to use methods in the responsible classes. For Squeak, OneDay is now a class variable in order to continue to allow Date instances to share a Duration. Cuis creates a new Duration for each Date. =============== Diff against Chronology-Core-dtl.57 =============== Item was removed: - SharedPool subclass: #ChronologyConstants - instanceVariableNames: '' - classVariableNames: 'DayNames DaysInMonth MicrosecondsInDay MonthNames NanosInMillisecond NanosInSecond OneDay SecondsInDay SecondsInHour SecondsInMinute SqueakEpoch Zero' - poolDictionaries: '' - category: 'Chronology-Core'! - - !ChronologyConstants commentStamp: 'brp 3/12/2004 14:34' prior: 0! - ChronologyConstants is a SharedPool for the constants used by the Kernel-Chronology classes.! Item was removed: - ----- Method: ChronologyConstants class>>initialize (in category 'class initialization') ----- - initialize - "ChronologyConstants initialize" - - SqueakEpoch := 2415386. "Julian day number of 1 Jan 1901" - SecondsInDay := 86400. - SecondsInHour := 3600. - SecondsInMinute := 60. - MicrosecondsInDay := 24 * 60 * 60 * 1000000. - NanosInSecond := 10 raisedTo: 9. - NanosInMillisecond := 10 raisedTo: 6. - DayNames := #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday). - - MonthNames := #( January February March April May June - July August September October November December). - DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31)! Item was changed: Timespan subclass: #Date instanceVariableNames: '' classVariableNames: '' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Date commentStamp: 'cmm 6/28/2016 21:36' prior: 0! Instances of Date are Timespans with duration of 1 day. As with all Chronology Timespan sub-instances, Dates can be instantiated as position values which compare equally to any other instance of the same Date, irregardless of the timezone in which either is created. However, like the other Timespan subInstances, there are rare cases where it may be desirable to use instances of Date to represent a particular 1-day span of time at a particular locality on the globe. All Timespans, including Dates, may specify a particular timezone offset for this purpose.! Item was changed: ----- Method: Date class>>fromDays: (in category 'smalltalk-80') ----- fromDays: dayCount "Days since 1 January 1901" + ^ self julianDayNumber: dayCount + Time squeakEpoch! - ^ self julianDayNumber: dayCount + SqueakEpoch! Item was changed: Magnitude subclass: #DateAndTime instanceVariableNames: 'utcMicroseconds localOffsetSeconds' classVariableNames: 'AutomaticTimezone ClockProvider InitializeFromPrimitive LocalTimeZone PosixEpochJulianDays' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !DateAndTime commentStamp: 'dtl 3/12/2016 10:32' prior: 0! I represent a point in UTC time as defined by ISO 8601. I have zero duration. My implementation uses variables utcMicroseconds and localOffsetSeconds. This represents time magnitude as elapsed microseconds since the Posix epoch, with localOffsetSeconds representing local offset from UTC. The magnitude is used for comparison and duration calculations, and the local offset is used for displaying this magnitude in the context of a local time zone. The implementation ignores leap seconds, which are adjustments made to maintain earth rotational clock time in synchronization with elapsed seconds. DateAndTime class>>now will use #primitiveUtcWithOffset to obtain current time in UTC microseconds with current local offset in seconds. The primitive provides an atomic query for UTC time and local offset as measured by the OS platform. If primitiveUtcWithOffset is not available, the traditional implementation is used, which relies on a primitive for microseconds in the local time zone and derives UTC based on the TimeZone setting. ! Item was changed: ----- Method: DateAndTime class>>epochOffset (in category 'private') ----- epochOffset "Elaspsed seconds from the Smalltalk epoch to the Posix epoch" + ^self daysFromSmalltalkEpochToPosixEpoch * Time secondsInDay! - ^self daysFromSmalltalkEpochToPosixEpoch * SecondsInDay! Item was changed: ----- Method: DateAndTime>>posixEpochJulianDays (in category 'initialize-release') ----- posixEpochJulianDays + ^self class daysFromSmalltalkEpochToPosixEpoch + Time squeakEpoch! - ^self class daysFromSmalltalkEpochToPosixEpoch + SqueakEpoch! Item was changed: ----- Method: DateAndTime>>ticks:offset: (in category 'private') ----- ticks: ticks offset: utcOffset "ticks is {julianDayNumber. secondCount. nanoSeconds}" | jdn s nanos normalizedTicks | normalizedTicks := ticks copy. + self normalize: 3 ticks: normalizedTicks base: Time nanosInSecond. + self normalize: 2 ticks: normalizedTicks base: Time secondsInDay. - self normalize: 3 ticks: normalizedTicks base: NanosInSecond. - self normalize: 2 ticks: normalizedTicks base: SecondsInDay. jdn := normalizedTicks at: 1. s := normalizedTicks at: 2. nanos := normalizedTicks at: 3. localOffsetSeconds := utcOffset ifNil: [0] ifNotNil: [utcOffset asSeconds]. utcMicroseconds := self microsecondsFromDay: jdn seconds: s nanos: nanos offset: localOffsetSeconds. ! Item was changed: Magnitude subclass: #Duration instanceVariableNames: 'nanos seconds' + classVariableNames: 'OneDay' + poolDictionaries: '' - classVariableNames: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Duration commentStamp: 'dtl 7/11/2009 15:03' prior: 0! I represent a duration of time. I have nanosecond precision! Item was changed: ----- Method: Duration class>>days: (in category 'squeak protocol') ----- days: aNumber + ^ self seconds: aNumber * Time secondsInDay nanoSeconds: 0! - ^ self seconds: aNumber * SecondsInDay nanoSeconds: 0! Item was changed: ----- Method: Duration class>>days:hours:minutes:seconds:nanoSeconds: (in category 'squeak protocol') ----- days: days hours: hours minutes: minutes seconds: seconds nanoSeconds: nanos ^self seconds: seconds + + (minutes * Time secondsInMinute) + + (hours * Time secondsInHour) + + (days * Time secondsInDay) - + (minutes * SecondsInMinute) - + (hours * SecondsInHour) - + (days * SecondsInDay) nanoSeconds: nanos ! Item was changed: ----- Method: Duration class>>days:seconds: (in category 'ansi protocol') ----- days: days seconds: seconds + ^ self basicNew seconds: days * Time secondsInDay + seconds nanoSeconds: 0! - ^ self basicNew seconds: days * SecondsInDay + seconds nanoSeconds: 0 - ! Item was changed: ----- Method: Duration class>>hours: (in category 'squeak protocol') ----- hours: aNumber + ^ self seconds: aNumber * Time secondsInHour nanoSeconds: 0! - ^ self seconds: aNumber * SecondsInHour nanoSeconds: 0! Item was changed: ----- Method: Duration class>>initialize (in category 'initialize-release') ----- initialize + "Duration oneDay is used in Date creation, and is cached to allow + sharing the instance." + OneDay := 1 day. + self class recompile: #oneDay.! - ChronologyConstants classPool - at: #Zero - put: - (self basicNew - seconds: 0 - nanoSeconds: 0) ; - at: #OneDay - put: 1 day! Item was changed: ----- Method: Duration class>>milliSeconds: (in category 'squeak protocol') ----- milliSeconds: milliCount ^self seconds: (milliCount quo: 1000) + nanoSeconds: (milliCount rem: 1000) * 1000000! - nanoSeconds: (milliCount rem: 1000) * NanosInMillisecond! Item was changed: ----- Method: Duration class>>minutes: (in category 'squeak protocol') ----- minutes: aNumber + ^ self seconds: aNumber * Time secondsInMinute nanoSeconds: 0! - ^ self seconds: aNumber * SecondsInMinute nanoSeconds: 0! Item was changed: ----- Method: Duration class>>nanoSeconds: (in category 'squeak protocol') ----- nanoSeconds: nanos "This method is slow. If you have nanos less than 10^6 you should use #seconds:nanoSeconds: instead." | quo | + quo _ nanos quo: Time nanosInSecond. - quo := nanos quo: NanosInSecond. ^ self basicNew seconds: quo + nanoSeconds: nanos - (quo * Time nanosInSecond)! - nanoSeconds: nanos - (quo * NanosInSecond) - ! Item was changed: ----- Method: Duration class>>seconds:nanoSeconds: (in category 'squeak protocol') ----- seconds: seconds nanoSeconds: nanos ^ self basicNew seconds: seconds truncated + nanoSeconds: seconds fractionPart * Time nanosInSecond + nanos! - nanoSeconds: seconds fractionPart * NanosInSecond + nanos! Item was changed: ----- Method: Duration class>>zero (in category 'ansi protocol') ----- zero + + ^ self basicNew seconds: 0 nanoSeconds: 0 + ! - "Answer the canonicalized instance of Duration zero." - ^ Zero! Item was changed: ----- Method: Duration>>asNanoSeconds (in category 'squeak protocol') ----- asNanoSeconds + ^seconds * Time nanosInSecond + nanos! - ^seconds * NanosInSecond + nanos! Item was changed: ----- Method: Duration>>days (in category 'ansi protocol') ----- days "Answer the number of days the receiver represents." + ^ seconds quo: Time secondsInDay! - ^ seconds quo: SecondsInDay - ! Item was changed: ----- Method: Duration>>hours (in category 'ansi protocol') ----- hours "Answer the number of hours the receiver represents." + ^ (seconds rem: Time secondsInDay) quo: Time secondsInHour! - ^ (seconds rem: SecondsInDay) quo: SecondsInHour! Item was changed: ----- Method: Duration>>minutes (in category 'ansi protocol') ----- minutes - "Answer the number of minutes the receiver represents." + ^ (seconds rem: Time secondsInHour) quo: Time secondsInMinute! - - ^ (seconds rem: SecondsInHour) quo: SecondsInMinute! Item was changed: ----- Method: Duration>>seconds (in category 'ansi protocol') ----- seconds "Answer the number of seconds the receiver represents." + ^seconds rem: Time secondsInMinute! - ^seconds rem: SecondsInMinute! Item was changed: ----- Method: Duration>>seconds:nanoSeconds: (in category 'private') ----- seconds: secondCount nanoSeconds: nanoCount "Private - only used by Duration class" seconds := secondCount. nanos := nanoCount rounded. "normalize if signs do not match" [ nanos < 0 and: [ seconds > 0 ] ] whileTrue: [ seconds := seconds - 1. + nanos := nanos + Time nanosInSecond ]. - nanos := nanos + NanosInSecond ]. [ seconds < 0 and: [ nanos > 0 ] ] whileTrue: [ seconds := seconds + 1. + nanos := nanos - Time nanosInSecond ] - nanos := nanos - NanosInSecond ] ! Item was changed: ----- Method: Duration>>ticks (in category 'private') ----- ticks "Answer an array {days. seconds. nanoSeconds}. Used by DateAndTime and Time." | days | days := self days. ^ Array with: days + with: seconds - (days * Time secondsInDay) - with: seconds - (days * SecondsInDay) with: nanos ! Item was changed: Timespan subclass: #Month instanceVariableNames: '' classVariableNames: '' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Month commentStamp: 'cbr 7/28/2010 18:11' prior: 0! I represent a month. For example, to get the number of days this month, you can evaluate the following expression: Month current daysInMonth! Item was added: + ----- Method: Month class>>daysInMonth (in category 'inquiries') ----- + daysInMonth + ^#(31 28 31 30 31 30 31 31 30 31 30 31)! Item was changed: ----- Method: Month class>>daysInMonth:forYear: (in category 'smalltalk-80') ----- daysInMonth: indexOrName forYear: yearInteger | index | index := indexOrName isInteger ifTrue: [indexOrName] ifFalse: [self indexOfMonth: indexOrName]. + ^ (self daysInMonth at: index) - ^ (DaysInMonth at: index) + ((index = 2 and: [Year isLeapYear: yearInteger]) ifTrue: [1] ifFalse: [0]) ! Item was changed: ----- Method: Month class>>indexOfMonth: (in category 'smalltalk-80') ----- indexOfMonth: aMonthName + 1 to: 12 do: [ :i | (aMonthName, '*' match: (self monthNames at: i)) ifTrue: [^i] ]. + self error: aMonthName , ' is not a recognized month name'! - 1 to: 12 do: [ :i | (aMonthName, '*' match: (MonthNames at: i)) ifTrue: [^i] ]. - self error: aMonthName , ' is not a recognized month name'.! Item was added: + ----- Method: Month class>>monthNames (in category 'inquiries') ----- + monthNames + ^#(January February March April May June July August September October November December)! Item was changed: ----- Method: Month class>>nameOfMonth: (in category 'smalltalk-80') ----- nameOfMonth: anIndex + ^ self monthNames at: anIndex! - ^ MonthNames at: anIndex.! Item was changed: Magnitude subclass: #Time instanceVariableNames: 'seconds nanos' classVariableNames: 'ClockPolicy HighResClockTicksPerMillisecond LastClockTick UpdateVMTimeZoneCacheAt UseHighResClockForTiming' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Time commentStamp: 'dew 10/23/2004 17:58' prior: 0! This represents a particular point in time during any given day. For example, '5:19:45 pm'. If you need a point in time on a particular day, use DateAndTime. If you need a duration of time, use Duration. ! Item was changed: ----- Method: Time class>>fromSeconds: (in category 'smalltalk-80') ----- fromSeconds: secondCount "Answer an instance of me that is secondCount number of seconds since midnight." | integerSeconds nanos | integerSeconds := secondCount truncated. integerSeconds = secondCount ifTrue: [nanos := 0] + ifFalse: [nanos := (secondCount - integerSeconds * self nanosInSecond) asInteger]. - ifFalse: [nanos := (secondCount - integerSeconds * NanosInSecond) asInteger]. ^ self seconds: integerSeconds nanoSeconds: nanos ! Item was changed: ----- Method: Time class>>hour:minute:second:nanoSecond: (in category 'squeak protocol') ----- + hour: hour minute: minute second: second nanoSecond: nanoCount + "Answer a Time" - hour: hour minute: minute second: second nanoSecond: nanoCount - "Answer a Time - only second precision for now" ^ self + seconds: (hour * self secondsInHour) + (minute * self secondsInMinute) + second + nanoSeconds: nanoCount! - seconds: (hour * SecondsInHour) + (minute * SecondsInMinute) + second - nanoSeconds: nanoCount - ! Item was added: + ----- Method: Time class>>nanosInSecond (in category 'constants') ----- + nanosInSecond + ^ 1000000000! Item was changed: ----- Method: Time class>>noon (in category 'squeak protocol') ----- noon + ^ self seconds: self secondsInDay / 2! - ^ self seconds: (SecondsInDay / 2) - ! Item was changed: ----- Method: Time class>>now (in category 'ansi protocol') ----- now "Answer a Time representing the time right now - this is a 24 hour clock." | localUsecs localUsecsToday | localUsecs := self localMicrosecondClock. + localUsecsToday := localUsecs \\ 86400000000. "24 * 60 * 60 * 1000000" - localUsecsToday := localUsecs \\ MicrosecondsInDay. ^ self seconds: localUsecsToday // 1000000 nanoSeconds: localUsecsToday \\ 1000000 * 1000! Item was added: + ----- Method: Time class>>secondsInDay (in category 'constants') ----- + secondsInDay + ^86400! Item was added: + ----- Method: Time class>>secondsInHour (in category 'constants') ----- + secondsInHour + ^3600! Item was added: + ----- Method: Time class>>secondsInMinute (in category 'constants') ----- + secondsInMinute + ^60! Item was added: + ----- Method: Time class>>squeakEpoch (in category 'constants') ----- + squeakEpoch + ^ 2415386. "Julian day number of 1 Jan 1901"! Item was changed: ----- Method: Time>>print24:showSeconds:showSubseconds:on: (in category 'printing') ----- print24: hr24 showSeconds: showSeconds showSubseconds: showSubseconds on: aStream "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'. If showSubseconds is true and our nanoSeconds are not zero, a decimal point and subseconds are added" | h m s | h := self hour. m := self minute. s := self second. hr24 ifTrue: [ h < 10 ifTrue: [ aStream nextPutAll: '0' ]. h printOn: aStream ] ifFalse: [ h > 12 ifTrue: [h - 12 printOn: aStream] ifFalse: [h < 1 ifTrue: [ 12 printOn: aStream ] ifFalse: [ h printOn: aStream ]]]. aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']). m printOn: aStream. showSeconds ifTrue: [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']). (showSubseconds not or: [self nanoSecond = 0]) ifTrue: [s asInteger printOn: aStream] + ifFalse: [s asInteger * Time nanosInSecond + self nanoSecond asInteger + printOn: aStream asFixedPoint: Time nanosInSecond]]. - ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger - printOn: aStream asFixedPoint: NanosInSecond]]. hr24 ifFalse: [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ]. ! Item was changed: Object subclass: #TimeZone instanceVariableNames: 'offset abbreviation name' classVariableNames: '' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !TimeZone commentStamp: 'dtl 7/11/2009 15:03' prior: 0! TimeZone is a simple class to colect the information identifying a UTC time zone. offset - Duration - the time zone's offset from UTC abbreviation - String - the abbreviated name for the time zone. name - String - the name of the time zone. TimeZone class >> #timeZones returns an array of the known time zones TimeZone class >> #default returns the default time zone (Grenwich Mean Time) ! Item was changed: Timespan subclass: #Week instanceVariableNames: '' classVariableNames: 'StartDay' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Week commentStamp: 'cbr 7/28/2010 18:11' prior: 0! I represent a week. To find out what days of the week on which Squeak is fun, select the following expression, and print it: Week dayNames! Item was changed: + ----- Method: Week class>>dayNames (in category 'inquiries') ----- - ----- Method: Week class>>dayNames (in category 'squeak protocol') ----- dayNames + ^ #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday)! - ^ DayNames! Item was changed: ----- Method: Week class>>indexOfDay: (in category 'squeak protocol') ----- indexOfDay: aSymbol + ^ self dayNames indexOf: aSymbol! - ^ DayNames indexOf: aSymbol! Item was changed: ----- Method: Week class>>nameOfDay: (in category 'smalltalk-80') ----- nameOfDay: anIndex + ^ self dayNames at: anIndex! - ^ DayNames at: anIndex! Item was changed: ----- Method: Week class>>startDay (in category 'squeak protocol') ----- startDay ^ StartDay ifNil: [ StartDay + := self dayNames first ] - := DayNames first ] ! Item was changed: ----- Method: Week class>>startDay: (in category 'squeak protocol') ----- startDay: aSymbol + (self dayNames includes: aSymbol) - (DayNames includes: aSymbol) ifTrue: [ StartDay := aSymbol ] ifFalse: [ self error: aSymbol, ' is not a recognised day name' ]! Item was changed: ----- Method: Week class>>starting:duration: (in category 'squeak protocol') ----- starting: aDateAndTime duration: aDuration "Override - the duration is always one week. Week will start from the Week class>>startDay" | midnight delta adjusted | midnight := aDateAndTime asDateAndTime midnight. + delta := ((midnight dayOfWeek + 7 - (self dayNames indexOf: self startDay)) rem: 7) abs. - delta := ((midnight dayOfWeek + 7 - (DayNames indexOf: self startDay)) rem: 7) abs. adjusted := midnight - (Duration days: delta seconds: 0). ^ super starting: adjusted duration: (Duration weeks: 1)!

3 3

The Trunk: Chronology-Core-ul.58.mcz
by commits＠source.squeak.org 06 Sep '20

06 Sep '20

Levente Uzonyi uploaded a new version of Chronology-Core to project The Trunk: http://source.squeak.org/trunk/Chronology-Core-ul.58.mcz ==================== Summary ==================== Name: Chronology-Core-ul.58 Author: ul Time: 6 September 2020, 2:28:59.102076 pm UUID: 67bb8acc-c81b-4e0c-a6f2-e9603c284236 Ancestors: Chronology-Core-dtl.57 Simplify DateAndTime class>>unixEpoch =============== Diff against Chronology-Core-dtl.57 =============== Item was changed: ----- Method: DateAndTime class>>unixEpoch (in category 'squeak protocol') ----- unixEpoch "Answer a DateAndTime representing the Unix epoch (1 January 1970, midnight UTC)" + ^self utcMicroseconds: 0 offset: 0! - ^ self basicNew - ticks: #(2440588 0 0) offset: Duration zero; - yourself. - !

2 1

The Inbox: Chronology-Core-dtl.56.mcz
by commits＠source.squeak.org 06 Sep '20

06 Sep '20

A new version of Chronology-Core was added to project The Inbox: http://source.squeak.org/inbox/Chronology-Core-dtl.56.mcz ==================== Summary ==================== Name: Chronology-Core-dtl.56 Author: dtl Time: 4 September 2020, 10:54:37.509663 am UUID: a33e5fab-940e-41ed-b05c-76f8ff54f5ee Ancestors: Chronology-Core-ul.55 Adopt simplifications from Cuis. Remove ChronologyConstants. Retain jmv author initials where possible. The shared pool is not required, it is simpler to use methods in the responsible classes. =============== Diff against Chronology-Core-ul.55 =============== Item was removed: - SharedPool subclass: #ChronologyConstants - instanceVariableNames: '' - classVariableNames: 'DayNames DaysInMonth MicrosecondsInDay MonthNames NanosInMillisecond NanosInSecond OneDay SecondsInDay SecondsInHour SecondsInMinute SqueakEpoch Zero' - poolDictionaries: '' - category: 'Chronology-Core'! - - !ChronologyConstants commentStamp: 'brp 3/12/2004 14:34' prior: 0! - ChronologyConstants is a SharedPool for the constants used by the Kernel-Chronology classes.! Item was removed: - ----- Method: ChronologyConstants class>>initialize (in category 'class initialization') ----- - initialize - "ChronologyConstants initialize" - - SqueakEpoch := 2415386. "Julian day number of 1 Jan 1901" - SecondsInDay := 86400. - SecondsInHour := 3600. - SecondsInMinute := 60. - MicrosecondsInDay := 24 * 60 * 60 * 1000000. - NanosInSecond := 10 raisedTo: 9. - NanosInMillisecond := 10 raisedTo: 6. - DayNames := #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday). - - MonthNames := #( January February March April May June - July August September October November December). - DaysInMonth := #(31 28 31 30 31 30 31 31 30 31 30 31)! Item was changed: Timespan subclass: #Date instanceVariableNames: '' classVariableNames: '' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Date commentStamp: 'cmm 6/28/2016 21:36' prior: 0! Instances of Date are Timespans with duration of 1 day. As with all Chronology Timespan sub-instances, Dates can be instantiated as position values which compare equally to any other instance of the same Date, irregardless of the timezone in which either is created. However, like the other Timespan subInstances, there are rare cases where it may be desirable to use instances of Date to represent a particular 1-day span of time at a particular locality on the globe. All Timespans, including Dates, may specify a particular timezone offset for this purpose.! Item was changed: ----- Method: Date class>>fromDays: (in category 'smalltalk-80') ----- fromDays: dayCount "Days since 1 January 1901" + ^ self julianDayNumber: dayCount + Time squeakEpoch! - ^ self julianDayNumber: dayCount + SqueakEpoch! Item was changed: ----- Method: Date class>>starting: (in category 'squeak protocol') ----- starting: aDateAndTime ^ self starting: aDateAndTime midnight + duration: 1 day! - duration: Duration oneDay! Item was changed: Magnitude subclass: #DateAndTime instanceVariableNames: 'utcMicroseconds localOffsetSeconds' classVariableNames: 'AutomaticTimezone ClockProvider InitializeFromPrimitive LocalTimeZone PosixEpochJulianDays' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !DateAndTime commentStamp: 'dtl 3/12/2016 10:32' prior: 0! I represent a point in UTC time as defined by ISO 8601. I have zero duration. My implementation uses variables utcMicroseconds and localOffsetSeconds. This represents time magnitude as elapsed microseconds since the Posix epoch, with localOffsetSeconds representing local offset from UTC. The magnitude is used for comparison and duration calculations, and the local offset is used for displaying this magnitude in the context of a local time zone. The implementation ignores leap seconds, which are adjustments made to maintain earth rotational clock time in synchronization with elapsed seconds. DateAndTime class>>now will use #primitiveUtcWithOffset to obtain current time in UTC microseconds with current local offset in seconds. The primitive provides an atomic query for UTC time and local offset as measured by the OS platform. If primitiveUtcWithOffset is not available, the traditional implementation is used, which relies on a primitive for microseconds in the local time zone and derives UTC based on the TimeZone setting. ! Item was changed: ----- Method: DateAndTime class>>epochOffset (in category 'private') ----- epochOffset "Elaspsed seconds from the Smalltalk epoch to the Posix epoch" + ^self daysFromSmalltalkEpochToPosixEpoch * Time secondsInDay! - ^self daysFromSmalltalkEpochToPosixEpoch * SecondsInDay! Item was changed: ----- Method: DateAndTime>>posixEpochJulianDays (in category 'initialize-release') ----- posixEpochJulianDays + ^self class daysFromSmalltalkEpochToPosixEpoch + Time squeakEpoch! - ^self class daysFromSmalltalkEpochToPosixEpoch + SqueakEpoch! Item was changed: ----- Method: DateAndTime>>ticks:offset: (in category 'private') ----- ticks: ticks offset: utcOffset "ticks is {julianDayNumber. secondCount. nanoSeconds}" | jdn s nanos normalizedTicks | normalizedTicks := ticks copy. + self normalize: 3 ticks: normalizedTicks base: Time nanosInSecond. + self normalize: 2 ticks: normalizedTicks base: Time secondsInDay. - self normalize: 3 ticks: normalizedTicks base: NanosInSecond. - self normalize: 2 ticks: normalizedTicks base: SecondsInDay. jdn := normalizedTicks at: 1. s := normalizedTicks at: 2. nanos := normalizedTicks at: 3. localOffsetSeconds := utcOffset ifNil: [0] ifNotNil: [utcOffset asSeconds]. utcMicroseconds := self microsecondsFromDay: jdn seconds: s nanos: nanos offset: localOffsetSeconds. ! Item was changed: Magnitude subclass: #Duration instanceVariableNames: 'nanos seconds' classVariableNames: '' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Duration commentStamp: 'dtl 7/11/2009 15:03' prior: 0! I represent a duration of time. I have nanosecond precision! Item was changed: ----- Method: Duration class>>days: (in category 'squeak protocol') ----- days: aNumber + ^ self seconds: aNumber * Time secondsInDay nanoSeconds: 0! - ^ self seconds: aNumber * SecondsInDay nanoSeconds: 0! Item was changed: ----- Method: Duration class>>days:hours:minutes:seconds:nanoSeconds: (in category 'squeak protocol') ----- days: days hours: hours minutes: minutes seconds: seconds nanoSeconds: nanos ^self seconds: seconds + + (minutes * Time secondsInMinute) + + (hours * Time secondsInHour) + + (days * Time secondsInDay) - + (minutes * SecondsInMinute) - + (hours * SecondsInHour) - + (days * SecondsInDay) nanoSeconds: nanos ! Item was changed: ----- Method: Duration class>>days:seconds: (in category 'ansi protocol') ----- days: days seconds: seconds + ^ self basicNew seconds: days * Time secondsInDay + seconds nanoSeconds: 0! - ^ self basicNew seconds: days * SecondsInDay + seconds nanoSeconds: 0 - ! Item was changed: ----- Method: Duration class>>hours: (in category 'squeak protocol') ----- hours: aNumber + ^ self seconds: aNumber * Time secondsInHour nanoSeconds: 0! - ^ self seconds: aNumber * SecondsInHour nanoSeconds: 0! Item was removed: - ----- Method: Duration class>>initialize (in category 'initialize-release') ----- - initialize - ChronologyConstants classPool - at: #Zero - put: - (self basicNew - seconds: 0 - nanoSeconds: 0) ; - at: #OneDay - put: 1 day! Item was changed: ----- Method: Duration class>>milliSeconds: (in category 'squeak protocol') ----- milliSeconds: milliCount ^self seconds: (milliCount quo: 1000) + nanoSeconds: (milliCount rem: 1000) * 1000000! - nanoSeconds: (milliCount rem: 1000) * NanosInMillisecond! Item was changed: ----- Method: Duration class>>minutes: (in category 'squeak protocol') ----- minutes: aNumber + ^ self seconds: aNumber * Time secondsInMinute nanoSeconds: 0! - ^ self seconds: aNumber * SecondsInMinute nanoSeconds: 0! Item was changed: ----- Method: Duration class>>nanoSeconds: (in category 'squeak protocol') ----- nanoSeconds: nanos "This method is slow. If you have nanos less than 10^6 you should use #seconds:nanoSeconds: instead." | quo | + quo _ nanos quo: Time nanosInSecond. - quo := nanos quo: NanosInSecond. ^ self basicNew seconds: quo + nanoSeconds: nanos - (quo * Time nanosInSecond)! - nanoSeconds: nanos - (quo * NanosInSecond) - ! Item was changed: ----- Method: Duration class>>oneDay (in category 'squeak protocol') ----- oneDay "Answer the canonicalized Duration representing length of 1 day. Used by Dates." + ^ 1 day! - ^ OneDay! Item was changed: ----- Method: Duration class>>seconds:nanoSeconds: (in category 'squeak protocol') ----- seconds: seconds nanoSeconds: nanos ^ self basicNew seconds: seconds truncated + nanoSeconds: seconds fractionPart * Time nanosInSecond + nanos! - nanoSeconds: seconds fractionPart * NanosInSecond + nanos! Item was changed: ----- Method: Duration class>>zero (in category 'ansi protocol') ----- zero + + ^ self basicNew seconds: 0 nanoSeconds: 0 + ! - "Answer the canonicalized instance of Duration zero." - ^ Zero! Item was changed: ----- Method: Duration>>asNanoSeconds (in category 'squeak protocol') ----- asNanoSeconds + ^seconds * Time nanosInSecond + nanos! - ^seconds * NanosInSecond + nanos! Item was changed: ----- Method: Duration>>days (in category 'ansi protocol') ----- days "Answer the number of days the receiver represents." + ^ seconds quo: Time secondsInDay! - ^ seconds quo: SecondsInDay - ! Item was changed: ----- Method: Duration>>hours (in category 'ansi protocol') ----- hours "Answer the number of hours the receiver represents." + ^ (seconds rem: Time secondsInDay) quo: Time secondsInHour! - ^ (seconds rem: SecondsInDay) quo: SecondsInHour! Item was changed: ----- Method: Duration>>minutes (in category 'ansi protocol') ----- minutes - "Answer the number of minutes the receiver represents." + ^ (seconds rem: Time secondsInHour) quo: Time secondsInMinute! - - ^ (seconds rem: SecondsInHour) quo: SecondsInMinute! Item was changed: ----- Method: Duration>>seconds (in category 'ansi protocol') ----- seconds "Answer the number of seconds the receiver represents." + ^seconds rem: Time secondsInMinute! - ^seconds rem: SecondsInMinute! Item was changed: ----- Method: Duration>>seconds:nanoSeconds: (in category 'private') ----- seconds: secondCount nanoSeconds: nanoCount "Private - only used by Duration class" seconds := secondCount. nanos := nanoCount rounded. "normalize if signs do not match" [ nanos < 0 and: [ seconds > 0 ] ] whileTrue: [ seconds := seconds - 1. + nanos := nanos + Time nanosInSecond ]. - nanos := nanos + NanosInSecond ]. [ seconds < 0 and: [ nanos > 0 ] ] whileTrue: [ seconds := seconds + 1. + nanos := nanos - Time nanosInSecond ] - nanos := nanos - NanosInSecond ] ! Item was changed: ----- Method: Duration>>ticks (in category 'private') ----- ticks "Answer an array {days. seconds. nanoSeconds}. Used by DateAndTime and Time." | days | days := self days. ^ Array with: days + with: seconds - (days * Time secondsInDay) - with: seconds - (days * SecondsInDay) with: nanos ! Item was changed: Timespan subclass: #Month instanceVariableNames: '' classVariableNames: '' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Month commentStamp: 'cbr 7/28/2010 18:11' prior: 0! I represent a month. For example, to get the number of days this month, you can evaluate the following expression: Month current daysInMonth! Item was added: + ----- Method: Month class>>daysInMonth (in category 'inquiries') ----- + daysInMonth + ^#(31 28 31 30 31 30 31 31 30 31 30 31)! Item was changed: ----- Method: Month class>>daysInMonth:forYear: (in category 'smalltalk-80') ----- daysInMonth: indexOrName forYear: yearInteger | index | index := indexOrName isInteger ifTrue: [indexOrName] ifFalse: [self indexOfMonth: indexOrName]. + ^ (self daysInMonth at: index) - ^ (DaysInMonth at: index) + ((index = 2 and: [Year isLeapYear: yearInteger]) ifTrue: [1] ifFalse: [0]) ! Item was changed: ----- Method: Month class>>indexOfMonth: (in category 'smalltalk-80') ----- indexOfMonth: aMonthName + 1 to: 12 do: [ :i | (aMonthName, '*' match: (self monthNames at: i)) ifTrue: [^i] ]. + self error: aMonthName , ' is not a recognized month name'! - 1 to: 12 do: [ :i | (aMonthName, '*' match: (MonthNames at: i)) ifTrue: [^i] ]. - self error: aMonthName , ' is not a recognized month name'.! Item was added: + ----- Method: Month class>>monthNames (in category 'inquiries') ----- + monthNames + ^#(January February March April May June July August September October November December)! Item was changed: ----- Method: Month class>>nameOfMonth: (in category 'smalltalk-80') ----- nameOfMonth: anIndex + ^ self monthNames at: anIndex! - ^ MonthNames at: anIndex.! Item was changed: Magnitude subclass: #Time instanceVariableNames: 'seconds nanos' classVariableNames: 'ClockPolicy HighResClockTicksPerMillisecond LastClockTick UpdateVMTimeZoneCacheAt UseHighResClockForTiming' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Time commentStamp: 'dew 10/23/2004 17:58' prior: 0! This represents a particular point in time during any given day. For example, '5:19:45 pm'. If you need a point in time on a particular day, use DateAndTime. If you need a duration of time, use Duration. ! Item was changed: ----- Method: Time class>>fromSeconds: (in category 'smalltalk-80') ----- fromSeconds: secondCount "Answer an instance of me that is secondCount number of seconds since midnight." | integerSeconds nanos | integerSeconds := secondCount truncated. integerSeconds = secondCount ifTrue: [nanos := 0] + ifFalse: [nanos := (secondCount - integerSeconds * self nanosInSecond) asInteger]. - ifFalse: [nanos := (secondCount - integerSeconds * NanosInSecond) asInteger]. ^ self seconds: integerSeconds nanoSeconds: nanos ! Item was changed: ----- Method: Time class>>hour:minute:second:nanoSecond: (in category 'squeak protocol') ----- + hour: hour minute: minute second: second nanoSecond: nanoCount + "Answer a Time" - hour: hour minute: minute second: second nanoSecond: nanoCount - "Answer a Time - only second precision for now" ^ self + seconds: (hour * self secondsInHour) + (minute * self secondsInMinute) + second + nanoSeconds: nanoCount! - seconds: (hour * SecondsInHour) + (minute * SecondsInMinute) + second - nanoSeconds: nanoCount - ! Item was added: + ----- Method: Time class>>nanosInSecond (in category 'constants') ----- + nanosInSecond + ^ 1000000000! Item was changed: ----- Method: Time class>>noon (in category 'squeak protocol') ----- noon + ^ self seconds: self secondsInDay / 2! - ^ self seconds: (SecondsInDay / 2) - ! Item was changed: ----- Method: Time class>>now (in category 'ansi protocol') ----- now "Answer a Time representing the time right now - this is a 24 hour clock." | localUsecs localUsecsToday | localUsecs := self localMicrosecondClock. + localUsecsToday := localUsecs \\ 86400000000. "24 * 60 * 60 * 1000000" - localUsecsToday := localUsecs \\ MicrosecondsInDay. ^ self seconds: localUsecsToday // 1000000 nanoSeconds: localUsecsToday \\ 1000000 * 1000! Item was added: + ----- Method: Time class>>secondsInDay (in category 'constants') ----- + secondsInDay + ^86400! Item was added: + ----- Method: Time class>>secondsInHour (in category 'constants') ----- + secondsInHour + ^3600! Item was added: + ----- Method: Time class>>secondsInMinute (in category 'constants') ----- + secondsInMinute + ^60! Item was added: + ----- Method: Time class>>squeakEpoch (in category 'constants') ----- + squeakEpoch + ^ 2415386. "Julian day number of 1 Jan 1901"! Item was changed: ----- Method: Time>>print24:showSeconds:showSubseconds:on: (in category 'printing') ----- print24: hr24 showSeconds: showSeconds showSubseconds: showSubseconds on: aStream "Format is 'hh:mm:ss' or 'h:mm:ss am' or, if showSeconds is false, 'hh:mm' or 'h:mm am'. If showSubseconds is true and our nanoSeconds are not zero, a decimal point and subseconds are added" | h m s | h := self hour. m := self minute. s := self second. hr24 ifTrue: [ h < 10 ifTrue: [ aStream nextPutAll: '0' ]. h printOn: aStream ] ifFalse: [ h > 12 ifTrue: [h - 12 printOn: aStream] ifFalse: [h < 1 ifTrue: [ 12 printOn: aStream ] ifFalse: [ h printOn: aStream ]]]. aStream nextPutAll: (m < 10 ifTrue: [':0'] ifFalse: [':']). m printOn: aStream. showSeconds ifTrue: [ aStream nextPutAll: (s < 10 ifTrue: [':0'] ifFalse: [':']). (showSubseconds not or: [self nanoSecond = 0]) ifTrue: [s asInteger printOn: aStream] + ifFalse: [s asInteger * Time nanosInSecond + self nanoSecond asInteger + printOn: aStream asFixedPoint: Time nanosInSecond]]. - ifFalse: [s asInteger * NanosInSecond + self nanoSecond asInteger - printOn: aStream asFixedPoint: NanosInSecond]]. hr24 ifFalse: [ aStream nextPutAll: (h < 12 ifTrue: [' am'] ifFalse: [' pm']) ]. ! Item was changed: Object subclass: #TimeZone instanceVariableNames: 'offset abbreviation name' classVariableNames: '' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !TimeZone commentStamp: 'dtl 7/11/2009 15:03' prior: 0! TimeZone is a simple class to colect the information identifying a UTC time zone. offset - Duration - the time zone's offset from UTC abbreviation - String - the abbreviated name for the time zone. name - String - the name of the time zone. TimeZone class >> #timeZones returns an array of the known time zones TimeZone class >> #default returns the default time zone (Grenwich Mean Time) ! Item was changed: Timespan subclass: #Week instanceVariableNames: '' classVariableNames: 'StartDay' + poolDictionaries: '' - poolDictionaries: 'ChronologyConstants' category: 'Chronology-Core'! !Week commentStamp: 'cbr 7/28/2010 18:11' prior: 0! I represent a week. To find out what days of the week on which Squeak is fun, select the following expression, and print it: Week dayNames! Item was changed: + ----- Method: Week class>>dayNames (in category 'inquiries') ----- - ----- Method: Week class>>dayNames (in category 'squeak protocol') ----- dayNames + ^ #(Sunday Monday Tuesday Wednesday Thursday Friday Saturday)! - ^ DayNames! Item was changed: ----- Method: Week class>>indexOfDay: (in category 'squeak protocol') ----- indexOfDay: aSymbol + ^ self dayNames indexOf: aSymbol! - ^ DayNames indexOf: aSymbol! Item was changed: ----- Method: Week class>>nameOfDay: (in category 'smalltalk-80') ----- nameOfDay: anIndex + ^ self dayNames at: anIndex! - ^ DayNames at: anIndex! Item was changed: ----- Method: Week class>>startDay (in category 'squeak protocol') ----- startDay ^ StartDay ifNil: [ StartDay + := self dayNames first ] - := DayNames first ] ! Item was changed: ----- Method: Week class>>startDay: (in category 'squeak protocol') ----- startDay: aSymbol + (self dayNames includes: aSymbol) - (DayNames includes: aSymbol) ifTrue: [ StartDay := aSymbol ] ifFalse: [ self error: aSymbol, ' is not a recognised day name' ]! Item was changed: ----- Method: Week class>>starting:duration: (in category 'squeak protocol') ----- starting: aDateAndTime duration: aDuration "Override - the duration is always one week. Week will start from the Week class>>startDay" | midnight delta adjusted | midnight := aDateAndTime asDateAndTime midnight. + delta := ((midnight dayOfWeek + 7 - (self dayNames indexOf: self startDay)) rem: 7) abs. - delta := ((midnight dayOfWeek + 7 - (DayNames indexOf: self startDay)) rem: 7) abs. adjusted := midnight - (Duration days: delta seconds: 0). ^ super starting: adjusted duration: (Duration weeks: 1)!

3 7

Live coding documentation at squeakbooks.com
by gettimothy 06 Sep '20

06 Sep '20

Hi folks, A quick FYI and some brainstorms and a request for brainstorms. I have a stub website up at squeakbooks.org / squeakbooks.com My next goal is for anybody to be able to code the 'Live Document Coding Hacking' book from within their Squeak environment; then make the content available in several formats: HelpBrowser Book format, PDF, text... 1. Hacking the HelpBrowser is an obvious choice; unfortunately somebody else will have to do that as I find the thing painful to use. Nothing personal, its just reality for me. 2. Make squeakbooks.com/org a Monticello Repo and make Books a package that can be edited. Upon submit to the repo, the backend software extracts that and makes it live on the website and also creates HelpBrowser "books" that they can import and other stuff.. 3. REST from within a workspace. 4. Stephan at the Pharo discord suggested using Glaborous Tookit--which sounds like fun..he says I can even connect to Squeak image with it...but until GT is on Squeak, I am going to hold off there. 5. Stephan also mentioned uploading zips to some commercial wiki named 'confluence'. 6. Leverage Doc http://www.squeaksource.com/Doc/ as the CLI interface 7. Subclass WAComponent...hmmm that will require a Seaside install...nocando. 8. Connect directly to the running squeakbooks.com image via some interface and have the new instances/classes update on the remove image At first glance, I am leaning 2 and 6 as monticello is something we all use and are familiar with. 8 really intrigues me....how do I commit live changes to a remote image? Thank you for your time. cheers, tty

1 0

OpenSmalltalk Cooperation Weekly Roundup
by Sean DeNigris 06 Sep '20

06 Sep '20

A few highlights of cooperation between Cuis, Pharo, and Squeak this week... Squeak (and GToolkit) support has been officially added to PharoLauncher. Thanks to Christophe Demarey for merging my extensions so quickly! It is included in the [latest CI build](https://ci.inria.fr/pharo-ci-jenkins2/job/PharoLauncher-Pipeline/job/dev/lastSuccessfulBuild/artifact/) by default. If you'd rather play with it in the [latest released version](https://github.com/pharo-project/pharo-launcher/releases/tag/2.2), you can load the `enh_vm-image-custom-hooks` issue branch from [my fork](https://github.com/seandenigris/pharo-launcher) and make sure the `PharoLauncher-Squeak` package gets loaded. [RISCV](https://github.com/darth-cheney/safe-bet <https://github.com/darth-cheney/safe-bet>) is now available in Pharo, as well as Squeak, thanks to Eric Gade (aka darth-cheney) [OSProcess-Tonel](https://github.com/dtlewis290/OSProcess-Tonel <https://github.com/dtlewis290/OSProcess-Tonel>), which allows OSP to be run in Pharo, has received an update, thanks to David Lewis.

1 0

SqueakMap down?
by Phil B 05 Sep '20

05 Sep '20

It doesn't appear to be responding to requests (gateway time-out)

1 0

I just purchased squeakbooks.com and .org
by gettimothy 05 Sep '20

05 Sep '20

Hi folks, I am going to try to recreate books.pharo.org using those domains, but for Squeak as part of my Doc/SeasideDoc project. I am NOT trying to make money for myself, I am just trying to solve the Squeak documentation problem. I will be building the site with Seaside on Squeak and I will be studying the Pharo model for their documentation creation to see if it is appropriate for squeak. Motivation: http://books.pharo.org/booklet-Scraping/html/scrapingbook.html That is an example of the type of documentation I frequently use as a developer. How do I accomplish a specific task, where do I start, what are the conceptual "things" I have to think in. I will be using that documentation to get myself familiarized with the Squeak XML stuff as I will need it for processing xml documents of 10's of millions of records. I will be happy to give the domains to the squeak community when/if the project is solid. Once the stubbed website is up, I will attempt to create a live-round-robin model from the squeak image. Open a workspace, open a book (book content comes down from website) add/edit content within the workspace, save it live to the website (and concurrently to the image ?) Hopefully it will be useful and we can start crowdsourcing documentation. cheers, tty.

3 4

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

05 Sep '20

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

1 0

The Inbox: ST80-ct.258.mcz
by commits＠source.squeak.org 05 Sep '20

05 Sep '20

Christoph Thiede uploaded a new version of ST80 to project The Inbox: http://source.squeak.org/inbox/ST80-ct.258.mcz ==================== Summary ==================== Name: ST80-ct.258 Author: ct Time: 5 September 2020, 1:20:54.682421 am UUID: db2a2f67-e818-ea46-b2f6-f4a9950577db Ancestors: ST80-mt.257 Fixes home and end keys in MVC editors if the text is empty =============== Diff against ST80-mt.257 =============== Item was changed: ----- Method: ParagraphEditor>>cursorEnd: (in category 'nonediting/nontyping keys') ----- cursorEnd: characterStream "Private - Move cursor end of current line." | string | self closeTypeIn: characterStream. string := paragraph text string. self moveCursor: [:position | Preferences wordStyleCursorMovement + ifTrue: [ + paragraph lines + at: (paragraph lineIndexOfCharacterIndex: position) + ifPresent: [:targetLine | targetLine last + (targetLine last = string size) asBit] + ifAbsent: [position]] + ifFalse: [ - ifTrue:[| targetLine | - targetLine := paragraph lines at:(paragraph lineIndexOfCharacterIndex: position). - targetLine = paragraph lines last - ifTrue:[targetLine last + 1] - ifFalse:[targetLine last]] - ifFalse:[ string indexOfAnyOf: CharacterSet crlf startingAt: position ifAbsent:[string size + 1]]] forward: true specialBlock:[:dummy | string size + 1]. ^true! Item was changed: ----- Method: ParagraphEditor>>cursorHome: (in category 'nonediting/nontyping keys') ----- cursorHome: characterStream "Private - Move cursor from position in current line to beginning of current line. If control key is pressed put cursor at beginning of text" | string | string := paragraph text string. self + moveCursor: [:position | Preferences wordStyleCursorMovement + ifTrue: [ + paragraph lines + at: (paragraph lineIndexOfCharacterIndex: position) + ifPresent: [:targetLine | targetLine first] ifAbsent: [position]] - moveCursor: [ :position | Preferences wordStyleCursorMovement - ifTrue:[ - (paragraph lines at:(paragraph lineIndexOfCharacterIndex: position)) first] ifFalse:[ (string lastIndexOfAnyOf: CharacterSet crlf startingAt: position - 1) + 1]] forward: false specialBlock: [:dummy | 1]. ^true!

2 1

optionMenu in nested MVC buttons not working
by Thiede, Christoph 05 Sep '20

05 Sep '20

Hi all, I experimented a bit with the backward compatibility of MVC buttons and found out that menus were broken in them. The attached changeset fixes this. However, you cannot invoke a menu on a button that is nested into another view. Please find the attached example. I already found out that in PluggableButtonController >> #isControlWanted, sensor anyButtonPressed returns false when it should return true. Crazily, the bug does not occur when having a transcript open and logging things to it directly before the sensor call. As a side effect, if you enable both buttons in the debug code parallelly, regular clicks on the unnested button won't work at all. I have no idea why is this. Any help and tips would be great! :-) Best, Christoph

1 1

Jump to page: