Squeak-dev March 2015

squeak-dev@lists.squeakfoundation.org

40 participants
315 discussions

The Trunk: Tools-topa.545.mcz
by commits＠source.squeak.org 08 Mar '15

08 Mar '15

Tobias Pape uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-topa.545.mcz ==================== Summary ==================== Name: Tools-topa.545 Author: topa Time: 8 March 2015, 11:07:48.63 pm UUID: 6998ddde-1a82-4e70-b316-44bca20ac1e7 Ancestors: Tools-mt.544 Icons for - abstract but not implemented methods - prmitives - methods that should not be implemented =============== Diff against Tools-mt.544 =============== Item was changed: ----- Method: ToolIcons class>>iconForClass:selector: (in category 'support') ----- iconForClass: aClassDescription selector: aSelector "Answer an icon to be shown for the selector aSymbol in aClassDescription." | classDescription | classDescription := (aClassDescription isKindOf: PseudoClass) ifTrue: [aClassDescription realClass ifNil: [^ #blank ]] ifFalse: [aClassDescription]. classDescription methodDictionary at: aSelector ifPresent: [ :method | method literalsDo: [ :literal | + (#(halt halt: haltIfNil haltIf: haltOnce haltOnce: haltOnCount: halt:onCount:) includes: literal) - (literal == #halt or: [ literal == #halt: or: [ literal == #haltIfNil or: [ literal == #haltIf: or: [ literal == #haltOnce or: [ literal == #haltOnce: or: [ literal == #haltOnCount: or: [ literal == #halt:onCount: ] ] ] ] ] ] ]) ifTrue: [^ #breakpoint]. + (#(flag: needsWork notYetImplemented) includes: literal) - (literal == #flag: or: [ literal == #needsWork or: [ literal == #notYetImplemented ] ]) ifTrue: [^ #flag]. + (#(shouldBeImplemented subclassResponsibility) includes: literal) + ifTrue: [ + (classDescription isSelectorOverridden: aSelector) + ifTrue: [^ #abstract] + ifFalse: [^ #notOverridden]]. + literal == #shouldNotImplement + ifTrue: [^ #no]]]. - - (literal == #shouldBeImplemented or: [literal == #subclassResponsibility]) - ifTrue: [^ #abstract] ] ]. + (classDescription isSelectorOverride: aSelector) - ^ (classDescription isSelectorOverride: aSelector) ifTrue: [ (classDescription isSelectorOverridden: aSelector) + ifTrue: [ ^ #arrowUpAndDown ] + ifFalse: [ ^ #arrowUp ] ] - ifTrue: [ #arrowUpAndDown ] - ifFalse: [ #arrowUp ] ] ifFalse: [ (classDescription isSelectorOverridden: aSelector) + ifTrue: [^ #arrowDown ]]. + + classDescription methodDictionary at: aSelector ifPresent: [ :method | + (method primitive ~= 0 and: [method isQuick not]) + ifTrue: [^ #primitive]]. + + + ^ #blank! - ifTrue: [ #arrowDown ] - ifFalse: [#blank ] ]! Item was added: + ----- Method: ToolIcons class>>no (in category 'private') ----- + no + + ^ ((ColorForm + extent: 12@12 + depth: 4 + fromArray: #( 3149642683 3149594624 3137833640 2075852800 2956634794 2746941440 3081263778 2323316736 3097859609 1514864640 3131730326 2863333376 3131709846 2863333376 3097663081 1514864640 3081263781 2323316736 3141184170 2797273088 3149351588 2075852800 3149642683 3149594624) + offset: 0@0) + colorsFromArray: #(#(0.995 0.956 0.96) #(0.972 0.753 0.757) #(0.956 0.63 0.634) #(0.936 0.466 0.47) #(0.933 0.423 0.431) #(0.944 0.548 0.552) #(0.952 0.587 0.591) #(0.96 0.671 0.674) #(0.925 0.384 0.388) #(1 1 1) #(0.921 0.341 0.349) #( ) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0) ))! Item was added: + ----- Method: ToolIcons class>>notOverridden (in category 'private') ----- + notOverridden + + ^ ((ColorForm + extent: 12@12 + depth: 4 + fromArray: #( 2863311530 2863267840 2863311530 2863267840 2863311530 2863267840 2863241625 2594832384 2863237248 2594832384 2863235600 2594832384 2863235607 2594832384 2863236471 1252655104 2863241619 1789526016 2863311530 2863267840 2863311530 2863267840 2863311530 2863267840) + offset: 0@0) + colorsFromArray: #(#(1 0.525 0.533) #(1 0.552 0.56) #(1 0.541 0.552) #(0.87 0.305 0.313) #(0.878 0.301 0.313) #(1 0.529 0.541) #(0.839 0.325 0.309) #(0.976 0.415 0.419) #(1 0.591 0.599) #(0.882 0.301 0.313) #( ) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0) #(0.0 0.0 0.0) ))! Item was added: + ----- Method: ToolIcons class>>primitive (in category 'private') ----- + primitive + + ^ ((ColorForm + extent: 12@12 + depth: 4 + fromArray: #( 2004318071 2004287488 2004318071 2004287488 2004318071 2004287488 2004248166 1735852032 2004243796 1735852032 2004242692 1735852032 2004242947 1735852032 2004243507 1735852032 2004248166 1735852032 2004318071 2004287488 2004318071 2004287488 2004318071 2004287488) + offset: 0@0) + colorsFromArray: #(#(0.369 0.369 0.369) #(0.328 0.328 0.328) #(0.325 0.325 0.325) #(0.353 0.353 0.353) #(0.412 0.412 0.412) #(0.345 0.345 0.345) #(0.27 0.27 0.27) #( ) #( ) #( ) #( ) #( ) #( ) #( ) #( ) #( ) ))!

1 0

The Inbox: Tests-dtl.312.mcz
by commits＠source.squeak.org 08 Mar '15

08 Mar '15

David T. Lewis uploaded a new version of Tests to project The Inbox: http://source.squeak.org/inbox/Tests-dtl.312.mcz ==================== Summary ==================== Name: Tests-dtl.312 Author: dtl Time: 8 March 2015, 2:18:09.639 pm UUID: fc56f2ba-15d2-4264-a9e6-6faf41650536 Ancestors: Tests-eem.311 FileStream>>testFileSizeWithSharedFileStreams illustrates a problem that is exhibited on some platforms (notably recent Ubuntu). =============== Diff against Tests-eem.311 =============== Item was added: + ----- Method: FileStreamTest>>testFileSizeWithSharedFileStreams (in category 'as yet unclassified') ----- + testFileSizeWithSharedFileStreams + "If two file streams are opened on the same file, then we expect the operating system + to report the file size correctly for either of the two file streams. Some platform runtime + libraries will not honor that convention unless data has been explicitly flushed. This test + will fail if the platform runtime requires an explicit flush. Recent Ubuntu systems are known + to exhibit this problem." + + | fileName fs1 fs2 | + fileName := 'TruncationTest.tmp'. + [ fs1 := FileStream fileNamed: fileName. + fs1 nextPutAll: '1234567890'. + self assert: 10 equals: fs1 size. + fs2 := FileStream readOnlyFileNamed: fileName. + self assert: 10 equals: fs2 size. + ] ensure: [ + fs1 close. + fs2 close. + FileDirectory default deleteFileNamed: fileName. + ]. + !

1 0

Re: [squeak-dev] The Inbox: Kernel-cbc.910.mcz
by Chris Muller 08 Mar '15

08 Mar '15

I see there is also still the #class testing. This will actually cause any system that uses Proxy's (e.g., Magma) to no longer work reliably with Chronology unless we change those to use new unique messages. This type of change might be a good thing to have more time to test all through a release cycle. On Fri, Mar 6, 2015 at 5:49 PM, <commits(a)source.squeak.org> wrote: > A new version of Kernel was added to project The Inbox: > http://source.squeak.org/inbox/Kernel-cbc.910.mcz > > ==================== Summary ==================== > > Name: Kernel-cbc.910 > Author: cbc > Time: 6 March 2015, 3:48:56.226 pm > UUID: 6af9b576-3666-7444-ad16-9b84461a4dd0 > Ancestors: Kernel-mt.909, Kernel-cbc.872 > > Changes to support adding months and years to a DateAndTime, such as: > DateAndTime now + 2 months > and > DateAndTimeNow - 5 years > > This requires retro-fitting the + and - in DateAndTime to a double dispatch system, and requires changes in Collections as well (to support + and - with String representations). > > Added support for chaining durations (such as 1 month + 1 day). > > =============== Diff against Kernel-mt.909 =============== > > Item was changed: > ----- Method: DateAndTime>>+ (in category 'ansi protocol') ----- > + + aDuration > + "aDuration is one of: Duration, GenericDuration, GenericMonth, or GenericYear." > + ^aDuration addToDateTime: self > - + operand > - "operand conforms to protocol Duration" > - > - | ticks | > - ticks := self ticks + (operand asDuration ticks) . > - > - ^ self class basicNew > - ticks: ticks > - offset: self offset; > - yourself > ! > > Item was changed: > ----- Method: DateAndTime>>- (in category 'ansi protocol') ----- > - operand > + "operand is one of: Duration, GenericDuration, GenericMonth, or GenericYear; or a DateAndTime or Timespan." > + ^operand subtractFromDateTime: self > - "operand conforms to protocol DateAndTime or protocol Duration" > - > - ^ (operand respondsTo: #asDateAndTime) > - ifTrue: > - [ | lticks rticks | > - lticks := self asLocal ticks. > - > - rticks := operand asDateAndTime asLocal ticks. > - Duration > - seconds: (SecondsInDay *(lticks first - rticks first)) + > - (lticks second - rticks second) > - nanoSeconds: (lticks third - rticks third) ] > - > - ifFalse: > - > - [ self + (operand negated) ] > ! > > Item was added: > + ----- Method: DateAndTime>>addToDateTime: (in category 'ansi protocol') ----- > + addToDateTime: aDateAndTime > + ^self asDuration addToDateTime: aDateAndTime > + ! > > Item was added: > + ----- Method: DateAndTime>>addToDuration: (in category 'ansi protocol') ----- > + addToDuration: aDuration > + ^Duration nanoSeconds: (self asNanoSeconds + aDuration asNanoSeconds) > + ! > > Item was added: > + ----- Method: DateAndTime>>subtractFromDateTime: (in category 'ansi protocol') ----- > + subtractFromDateTime: aDateAndTime > + | lticks rticks | > + lticks := aDateAndTime asLocal ticks. > + rticks := self asLocal ticks. > + ^Duration > + seconds: (SecondsInDay * (lticks first - rticks first)) + > + (lticks second - rticks second) > + nanoSeconds: (lticks third - rticks third)! > > Item was added: > + ----- Method: DateAndTime>>subtractFromDuration: (in category 'ansi protocol') ----- > + subtractFromDuration: aDuration > + ^Duration nanoSeconds: (aDuration asNanoSeconds - self asNanoSeconds)! > > Item was changed: > ----- Method: Duration>>+ (in category 'ansi protocol') ----- > + operand > + "operand is a type of Duration" > + ^operand addToDuration: self > + ! > - > - "operand is a Duration" ^ self class nanoSeconds: (self asNanoSeconds + operand asNanoSeconds)! > > Item was changed: > ----- Method: Duration>>- (in category 'ansi protocol') ----- > - operand > + "operand is a type of Duration" > + ^operand subtractFromDuration: self > + ! > - "operand is a Duration" ^ self + operand negated! > > Item was added: > + ----- Method: Duration>>addToDateTime: (in category 'ansi protocol') ----- > + addToDateTime: aDateAndTime > + | ticks | > + ticks := self ticks + (aDateAndTime ticks) . > + ^ aDateAndTime class basicNew > + ticks: ticks > + offset: aDateAndTime offset; > + yourself > + ! > > Item was added: > + ----- Method: Duration>>addToDuration: (in category 'ansi protocol') ----- > + addToDuration: aDuration > + ^self class nanoSeconds: (self asNanoSeconds + aDuration asNanoSeconds) > + ! > > Item was added: > + ----- Method: Duration>>subtractFromDateTime: (in category 'ansi protocol') ----- > + subtractFromDateTime: aDateAndTime > + ^self copy negated addToDateTime: aDateAndTime! > > Item was added: > + ----- Method: Duration>>subtractFromDuration: (in category 'ansi protocol') ----- > + subtractFromDuration: aDuration > + ^self class nanoSeconds: (aDuration asNanoSeconds - self asNanoSeconds) > + ! > > Item was added: > + Object subclass: #GenericDuration > + instanceVariableNames: 'sequence' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Kernel-Chronology'! > + > + !GenericDuration commentStamp: 'cbc 9/21/2014 22:07' prior: 0! > + The GenericDuration class exists to support simple DateAndTime arithmetic (also including Timespan, such as Date). This class supports chains of different duration arthmetic with each other, such as: > + 1 year + 2 months + 3 days + 4 hours + 5 minuts + 6 seconds + 7 nanoSeconds > + Instances of GenericDuration should be created by adding (or subtracting)2 or more durations with each other, including other instances of GenericDuration. > + > + You cannot ask a GenericDuration how long it is. This is a nonsensical question if a year or month is involved, as those are only resolvable once it is place into relationship to an actual date. > + > + GenericDuration are associate, but not commutative. That is > + 1 month + 31 days ~= 31 days + 1 month > + but > + ((1 month + 1 year) + 31 days) = (1 month + (1 year + 31 days)) > + ! > > Item was added: > + ----- Method: GenericDuration>>+ (in category 'ansii protocol') ----- > + + aDuration > + "aDuration is one of the families of Duration. Not that if it isn't, it will fail, but only when addng to a DateAndTime or Timespan, not before!!" > + aDuration class = self class > + ifTrue: [sequence addAllLast: aDuration sequence] > + ifFalse: [sequence addLast: aDuration copy] > + ! > > Item was added: > + ----- Method: GenericDuration>>- (in category 'ansii protocol') ----- > + - aDuration > + "aDuration is one of the families of Duration. Not that if it isn't, it will fail, but only when addng to a DateAndTime or Timespan, not before!!" > + aDuration class = self class > + ifTrue: [sequence addAllLast: (aDuration sequence collect: [:s| s copy negated])] > + ifFalse: [sequence addLast: aDuration copy negated]! > > Item was added: > + ----- Method: GenericDuration>>= (in category 'ansii protocol') ----- > + = aGenericDuration > + ^aGenericDuration hasSameSequence: sequence! > > Item was added: > + ----- Method: GenericDuration>>addToDateTime: (in category 'ansii protocol') ----- > + addToDateTime: aDateAndTime > + ^sequence inject: aDateAndTime into: [:result :duration | result + duration ]! > > Item was added: > + ----- Method: GenericDuration>>addToDuration: (in category 'ansii protocol') ----- > + addToDuration: aDuration > + sequence addFirst: aDuration copy! > > Item was added: > + ----- Method: GenericDuration>>hasSameSequence: (in category 'ansii protocol') ----- > + hasSameSequence: testSequence > + ^sequence hasEqualElements: testSequence! > > Item was added: > + ----- Method: GenericDuration>>hash (in category 'ansii protocol') ----- > + hash > + ^(sequence collect: #hash) sum hash! > > Item was added: > + ----- Method: GenericDuration>>initialize (in category 'initialize-release') ----- > + initialize > + sequence := OrderedCollection new.! > > Item was added: > + ----- Method: GenericDuration>>printOn: (in category 'squeak protocol') ----- > + printOn: stream > + sequence do: [:msg| msg printOn: stream] separatedBy: [stream nextPutAll: ' + ']! > > Item was added: > + ----- Method: GenericDuration>>sequence (in category 'accessing') ----- > + sequence > + > + ^ sequence! > > Item was added: > + ----- Method: GenericDuration>>subtractFromDateTime: (in category 'ansii protocol') ----- > + subtractFromDateTime: aDateAndTime > + ^sequence inject: aDateAndTime into: [:result :duration | result + duration copy negated ]! > > Item was added: > + ----- Method: GenericDuration>>subtractFromDuration: (in category 'ansii protocol') ----- > + subtractFromDuration: aDuration > + sequence addFirst: aDuration copy negated! > > Item was added: > + Object subclass: #GenericMonth > + instanceVariableNames: 'number' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Kernel-Chronology'! > + > + !GenericMonth commentStamp: 'cbc 9/21/2014 22:01' prior: 0! > + The GenericMonth class exists to support simple DateAndTime arithmetic with months (also including Timespan, such as Date). This class is the mechanism behind: > + DateAndTime now + 3 months > + Instances of this class should be created by sending #month or #months to an integer (other types of number result in unspecified results). > + (note that sending #month to any number will result in either exactly 1 month or -1 month, ignoring the actual number you send it too.) > + > + Thse are the rules about what a 'month' is: > + 1: If you add a month, you want the result to be in the next calendar month, never the following one. > + 2: If you add a month, you want the same day of the month if possible, and if not (becaue the next month has less days), then the closest that you can get to it. > + 4: If you add more than 1 month, you want to end up in the right calendar month that you would expect, and as close to the starting day of the month as you can. > + 3: If you subtract a month, you want it in the previous calendar month, and as close to the starting day of the month as you can get. > + > + So, adding 1 month to August 31 would give September 30th; adding 2 months to August 31 would give October 31st. And adding 1 month to September 30th would give October 30th. > + > + > + ! > > Item was added: > + ----- Method: GenericMonth class>>months: (in category 'as yet unclassified') ----- > + months: aNumber > + ^self new number: aNumber! > > Item was added: > + ----- Method: GenericMonth>>+ (in category 'ansiProtocol') ----- > + + aDuration > + "aDuration is one of the families of Duration. Not that if it isn't, it will fail, but only when addng to a DateAndTime or Timespan, not before!!" > + ^GenericDuration new + self + aDuration! > > Item was added: > + ----- Method: GenericMonth>>- (in category 'ansiProtocol') ----- > + - aDuration > + "aDuration is one of the families of Duration. Not that if it isn't, it will fail, but only when addng to a DateAndTime or Timespan, not before!!" > + ^GenericDuration new + self - aDuration! > > Item was added: > + ----- Method: GenericMonth>>= (in category 'ansiProtocol') ----- > + = aGenericMonth > + ^aGenericMonth class = GenericMonth > + and: [aGenericMonth number = number]! > > Item was added: > + ----- Method: GenericMonth>>addNegativeToDateTime: (in category 'ansiProtocol') ----- > + addNegativeToDateTime: aDateAndTime > + | next | > + next := (1 to: number abs) inject: aDateAndTime into: [:end :mnth| > + end - end dayOfMonth days. > + ]. > + ^next - (next dayOfMonth - aDateAndTime dayOfMonth max: 0) days! > > Item was added: > + ----- Method: GenericMonth>>addToDateTime: (in category 'ansiProtocol') ----- > + addToDateTime: aDateAndTime > + | next | > + number < 0 ifTrue: [^self addNegativeToDateTime: aDateAndTime]. > + next := (1 to: number) inject: aDateAndTime into: [:end :mnth| > + next := end + end daysInMonth days. > + next dayOfMonth < end dayOfMonth > + ifTrue: [next := next - next dayOfMonth days]. > + next > + ]. > + ^next + ((next daysInMonth min: aDateAndTime dayOfMonth) - next dayOfMonth) days! > > Item was added: > + ----- Method: GenericMonth>>addToDuration: (in category 'ansiProtocol') ----- > + addToDuration: aDuration > + ^GenericDuration new + aDuration + self > + ! > > Item was added: > + ----- Method: GenericMonth>>hash (in category 'ansiProtocol') ----- > + hash > + ^number hash! > > Item was added: > + ----- Method: GenericMonth>>negated (in category 'accessing') ----- > + negated > + number := number negated! > > Item was added: > + ----- Method: GenericMonth>>number (in category 'accessing') ----- > + number > + > + ^ number! > > Item was added: > + ----- Method: GenericMonth>>number: (in category 'accessing') ----- > + number: anObject > + > + number := anObject! > > Item was added: > + ----- Method: GenericMonth>>printOn: (in category 'squeak protocol') ----- > + printOn: stream > + stream nextPutAll: number asString; nextPutAll: ' month'. > + number abs = 1 ifFalse: [stream nextPut: $s].! > > Item was added: > + ----- Method: GenericMonth>>subtractFromDateTime: (in category 'ansiProtocol') ----- > + subtractFromDateTime: aDateAndTime > + ^self copy negated addToDateTime: aDateAndTime > + ! > > Item was added: > + ----- Method: GenericMonth>>subtractFromDuration: (in category 'ansiProtocol') ----- > + subtractFromDuration: aDuration > + ^GenericDuration new + aDuration - self! > > Item was added: > + Object subclass: #GenericYear > + instanceVariableNames: 'number' > + classVariableNames: '' > + poolDictionaries: '' > + category: 'Kernel-Chronology'! > + > + !GenericYear commentStamp: 'cbc 9/21/2014 22:00' prior: 0! > + The GenericYear class exists to support simple DateAndTime arithmetic with years (also including Timespan, such as Date). This class is the mechanism behind: > + DateAndTime now + 3 years > + Instances of this class should be created by sending #year or #years to an integer (other types of number result in unspecified results). > + (note that sending #year to any number will result in either exactly 1 year or -1 year, ignoring the actual number you send it too.) > + > + Thse are the rules about what a 'year' is: > + 1: If you add a year, you want the result to be in the next year, never the following one; it needs to end up in the same month as the starting month; and it needs to be the same day of the month if possible as the starting date, and if not (becaue the next years month has less days such as leap year to non-leap year), then the closest that you can get to it. > + 4: If you add more than 1 year, you want to end up in the right year, same calendar month that you would expect, and as close to the starting day of the month as you can. > + 3: If you subtract a year, you want it in the previous year and same calendar month, and as close to the starting day of the month as you can get.! > > Item was added: > + ----- Method: GenericYear class>>years: (in category 'as yet unclassified') ----- > + years: aNumber > + ^self new number: aNumber! > > Item was added: > + ----- Method: GenericYear>>+ (in category 'ansiProtocol') ----- > + + aDuration > + "aDuration is one of the families of Duration. Not that if it isn't, it will fail, but only when addng to a DateAndTime or Timespan, not before!!" > + ^GenericDuration new + self + aDuration! > > Item was added: > + ----- Method: GenericYear>>- (in category 'ansiProtocol') ----- > + - aDuration > + "aDuration is one of the families of Duration. Not that if it isn't, it will fail, but only when addng to a DateAndTime or Timespan, not before!!" > + ^GenericDuration new + self - aDuration! > > Item was added: > + ----- Method: GenericYear>>= (in category 'ansiProtocol') ----- > + = aGenericYear > + ^aGenericYear class = GenericYear > + and: [aGenericYear number = number]! > > Item was added: > + ----- Method: GenericYear>>addNegativeToDateTime: (in category 'ansiProtocol') ----- > + addNegativeToDateTime: aDateAndTime > + | next | > + next := (1 to: number abs) inject: aDateAndTime into: [:end :mnth| > + end - end dayOfYear days. > + ]. > + next := next - (next month - aDateAndTime month) months. > + ^next - (next dayOfMonth - aDateAndTime dayOfMonth max: 0) days! > > Item was added: > + ----- Method: GenericYear>>addToDateTime: (in category 'ansiProtocol') ----- > + addToDateTime: aDateAndTime > + | next | > + number < 0 ifTrue: [^self addNegativeToDateTime: aDateAndTime]. > + ^(1 to: number) inject: aDateAndTime into: [:end :mnth| > + next := end + ((end isLeapYear and: [end month > 2]) > + ifTrue: [end daysInYear - 1] "We've already factored in the extra leap year" > + ifFalse: [end daysInYear] "either not a leap year, or we need the extra day" > + ) days. > + "if we are now in a leap year, we may need to already factor in the extra day" > + (next month > 2 and: [next isLeapYear and: [end dayOfMonth ~= next dayOfMonth]]) ifTrue: [next := next + 1 days]. > + "If we have leaped out of a leap year, and we were on Feb 29th, we need to back up to Feb 28th" > + next month > end month ifTrue: [next := next - next dayOfMonth days]. > + "If we have leeped out of a leap year, and we were on Mar 1st, we need to increment by 1 to get back where we should be" > + next month < end month ifTrue: [next := next + 1 day]. > + next > + ]. > + ! > > Item was added: > + ----- Method: GenericYear>>addToDuration: (in category 'ansiProtocol') ----- > + addToDuration: aDuration > + ^GenericDuration new + aDuration + self > + ! > > Item was added: > + ----- Method: GenericYear>>hash (in category 'ansiProtocol') ----- > + hash > + ^number hash! > > Item was added: > + ----- Method: GenericYear>>negated (in category 'accessing') ----- > + negated > + number := number negated! > > Item was added: > + ----- Method: GenericYear>>number (in category 'accessing') ----- > + number > + > + ^ number! > > Item was added: > + ----- Method: GenericYear>>number: (in category 'accessing') ----- > + number: anObject > + > + number := anObject! > > Item was added: > + ----- Method: GenericYear>>printOn: (in category 'squeak protocol') ----- > + printOn: stream > + stream nextPutAll: number asString; nextPutAll: ' year'. > + number abs = 1 ifFalse: [stream nextPut: $s].! > > Item was added: > + ----- Method: GenericYear>>subtractFromDateTime: (in category 'ansiProtocol') ----- > + subtractFromDateTime: aDateAndTime > + ^self copy negated addToDateTime: aDateAndTime! > > Item was added: > + ----- Method: GenericYear>>subtractFromDuration: (in category 'ansiProtocol') ----- > + subtractFromDuration: aDuration > + ^GenericDuration new + aDuration - self! > > Item was changed: > ----- Method: Month>>previous (in category 'squeak protocol') ----- > previous > > > + ^ self class starting: (self start - 1 month)! > - ^ self class starting: (self start - 1)! > > Item was added: > + ----- Method: Number>>addToDateTime: (in category 'arithmetic') ----- > + addToDateTime: aDateAndTime > + "Utilized when adjusting DateAndTimes. Such as: > + DateAndTime now + 2 > + Not expected to be used outside of that system. > + Note, also, that this keeps the long-standing tradition that we are adding nanoseconds to the DateAndTime." > + ^self asDuration addToDateTime: aDateAndTime > + ! > > Item was added: > + ----- Method: Number>>month (in category 'converting') ----- > + month > + > + ^ self sign months! > > Item was added: > + ----- Method: Number>>months (in category 'converting') ----- > + months > + > + ^ GenericMonth months: self! > > Item was added: > + ----- Method: Number>>subtractFromDateTime: (in category 'arithmetic') ----- > + subtractFromDateTime: aDateAndTime > + "Utilized when adjusting DateAndTimes. Such as: > + DateAndTime now - 2 > + Not expected to be used outside of that system. > + Note, also, that this keeps the long-standing tradition that we are subtracting nanoseconds to the DateAndTime." > + ^self asDuration subtractFromDateTime: aDateAndTime > + ! > > Item was added: > + ----- Method: Number>>year (in category 'converting') ----- > + year > + > + ^ self sign years! > > Item was added: > + ----- Method: Number>>years (in category 'converting') ----- > + years > + > + ^ GenericYear years: self! > > Item was added: > + ----- Method: Time>>addToDateTime: (in category 'squeak protocol') ----- > + addToDateTime: aDateAndTime > + ^self asDuration addToDateTime: aDateAndTime > + ! > > Item was added: > + ----- Method: Time>>addToDuration: (in category 'ansi protocol') ----- > + addToDuration: aDuration > + ^Duration nanoSeconds: (self asNanoSeconds + aDuration asNanoSeconds) > + ! > > Item was added: > + ----- Method: Time>>subtractFromDateTime: (in category 'squeak protocol') ----- > + subtractFromDateTime: aDateAndTime > + ^self asDuration subtractFromDateTime: aDateAndTime > + ! > > Item was added: > + ----- Method: Time>>subtractFromDuration: (in category 'ansi protocol') ----- > + subtractFromDuration: aDuration > + ^Duration nanoSeconds: (aDuration asNanoSeconds - self asNanoSeconds)! > > Item was changed: > ----- Method: Timespan>>+ (in category 'ansi protocol') ----- > + + aDuration > + "aDuration is one of: Duration, GenericDuration, GenericMonth, or GenericYear." > + ^self class starting: (aDuration addToDateTime: self start) duration: self duration > + ! > - + operand > - "operand conforms to protocol Duration" > - > - > - ^ self class starting: (self start + operand) duration: self duration! > > Item was changed: > ----- Method: Timespan>>- (in category 'ansi protocol') ----- > - operand > + | result | > + "operand is one of: Duration, GenericDuration, GenericMonth, or GenericYear; or a DateAndTime or Timespan." > + result := operand subtractFromDateTime: self start. > + ^result class = DateAndTime > + ifTrue: [ self class starting: result duration: self duration] > + ifFalse: [result] > - "operand conforms to protocol DateAndTime or protocol Duration" > - > - ^ (operand respondsTo: #asDateAndTime) > - > - ifTrue: [ self start - operand ] > - > - ifFalse: [ self + (operand negated) ] > ! > > Item was added: > + ----- Method: Timespan>>addToDateTime: (in category 'squeak protocol') ----- > + addToDateTime: aDateAndTime > + ^duration addToDateTime: aDateAndTime > + ! > > Item was added: > + ----- Method: Timespan>>subtractFromDateTime: (in category 'squeak protocol') ----- > + subtractFromDateTime: aDateAndTime > + ^start subtractFromDateTime: aDateAndTime! > >

1 0

Re: [squeak-dev] The Inbox: Collections-cbc.604.mcz
by Chris Muller 08 Mar '15

08 Mar '15

String casting is typically used to get data into a system, wouldn't it be better for that interface to do the String casting than adding methods to String? On Fri, Mar 6, 2015 at 5:44 PM, <commits(a)source.squeak.org> wrote: > A new version of Collections was added to project The Inbox: > http://source.squeak.org/inbox/Collections-cbc.604.mcz > > ==================== Summary ==================== > > Name: Collections-cbc.604 > Author: cbc > Time: 6 March 2015, 3:44:37.262 pm > UUID: 0513e699-e650-2340-8505-70e368dd9c64 > Ancestors: Collections-eem.603, Collections-cbc.582 > > Changes to support adding and subtracting strings from DateAndTimes. Supports syntax such as: > DateAndTime now + '02:00:00:00' > and > DateAndTime now - '02:00:00:00' > > =============== Diff against Collections-eem.603 =============== > > Item was added: > + ----- Method: String>>addToDateTime: (in category 'arithmetic') ----- > + addToDateTime: aDateAndTime > + "Utilized when adjusting DateAndTimes. Such as: > + DateAndTime now + '02: 00:00:00' > + Not expected to be used outside of that system." > + ^self asDuration addToDateTime: aDateAndTime > + ! > > Item was added: > + ----- Method: String>>subtractFromDateTime: (in category 'arithmetic') ----- > + subtractFromDateTime: aDateAndTime > + "Utilized when adjusting DateAndTimes. Such as: > + DateAndTime now - '02: 00:00:00' > + Not expected to be used outside of that system." > + ^self asDuration subtractFromDateTime: aDateAndTime > + ! > >

1 0

4.6 -- codename
by Chris Muller 08 Mar '15

08 Mar '15

"From Cog to Spur" -- we need a snappy codename that makes sense for this release. I thought about "Cowboy" for a few seconds, but that's way too awful for marketing.. :) Someone help please.

11 13

Re: [squeak-dev] The Inbox: KernelTests-cbc.291.mcz
by David T. Lewis 08 Mar '15

08 Mar '15

On Fri, Mar 06, 2015 at 11:52:04PM +0000, commits(a)source.squeak.org wrote: > A new version of KernelTests was added to project The Inbox: > http://source.squeak.org/inbox/KernelTests-cbc.291.mcz > > ==================== Summary ==================== > > Name: KernelTests-cbc.291 > Author: cbc > Time: 6 March 2015, 3:52:01.005 pm > UUID: 54afce93-39e9-4c4a-92a4-ecbe32540c69 > Ancestors: KernelTests-ul.290, KernelTests-cbc.278 > > Added DateAndTimeArithmeticTest - to test adding things to DateAndTime instances. This includes things like: DateAndTime now + 3 days. This would be a good time to check our tests. In my locale, the springtime daylight savings time change is going to happen this weekend. If I evaluate "DateAndTime now + 3 days" what is the expected result? Dave

2 3

Daily Commit Log
by commits＠source.squeak.org 07 Mar '15

07 Mar '15

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2015-March/007604.html Name: TrueType-topa.31 Ancestors: TrueType-topa.30 In Fonts with multilingual names, prefer English ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007605.html Name: TrueType-topa.32 Ancestors: TrueType-topa.31 Fix TrueType-topa.31 for Microsoft-encoded names and language tags ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007606.html Name: ToolBuilder-Kernel-mt.65 Ancestors: ToolBuilder-Kernel-bf.64 Pluggable tree specs extended with the concepts of columns, simple selections, custom node classes, and parent selections. Preparation for refactored object explorer. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007607.html Name: ToolBuilder-Morphic-mt.95 Ancestors: ToolBuilder-Morphic-mt.94 Pluggable tree morph bug-fixed and extended to understand simple selections and custom node classes. Its companion -- PluggableTreeItemNode -- now speaks #parent and has a stub for #refresh. Preparation for refactored object explorer. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007608.html Name: Morphic-mt.774 Ancestors: Morphic-topa.773 ObjectExplorerWrapper refactored. It now stores bindings as items because this simplifies the adaptation of ObjectExplorer to use PluggableTreeMorphs. A pluggable tree morph wants to hide all wrappers from the model. To still distinguish, for example, various 'nil' values, it is necessary to work with bindings. Those bindings are not the ones as stored internally in the class object but made up new. Look at #setItem:name:model:. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007609.html Name: Tools-mt.542 Ancestors: Tools-mt.541 Object explorer now uses tool builder. Includes code clean-up and some fixes. Monitoring entries works again. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007610.html Name: Tools-mt.543 Ancestors: Tools-mt.542 Browser icons fixed. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007611.html Name: ToolBuilder-Morphic-mt.96 Ancestors: ToolBuilder-Morphic-mt.95 Fixes current selection where model objects looked the same but where not identical. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2015-March/007612.html Name: Tools-mt.544 Ancestors: Tools-mt.543 Simple indication for monitored items added to object explorer. In particular, this is an indication for post-init refreshing as triggered by monitoring. =============================================

1 0

Another push of date/time/duration updates
by Chris Cunningham 07 Mar '15

07 Mar '15

Hi. Sorry for the excessively long delay in fixing the bugs in this package. In the inbox are three packages that make a complete update with date/time arithmetic: Kernel-cbc.910 Collections-cbc.604 KernelTests-cbc.291 The first two extend the existing date arithmetic such as Date today + 3 days to include months and years as well. Adding months (or subtracting months) make it be the number of months you add/subtract off, nearest the date of the first month as you can get. So, February 28 + 1 month gives March 28; January 31 + 1 month gives February 28th (or 29 in a leap year). Similarly with year. In addition, the durations can be chained together, such as 1 month + 1 year + 1 month, and then add this to a date (or dateAndTime). Finally, these are covered by test, including additional tests for doing date arithmetic (which previously did not exist). Thanks, cbc

2 1

Re: [squeak-dev] The Trunk: ToolBuilder-Kernel-mt.65.mcz
by Tobias Pape 07 Mar '15

07 Mar '15

Hey, On 07.03.2015, at 11:08, commits(a)source.squeak.org wrote: > Instance variables: > roots <Symbol> The message to retrieve the roots of the tree. > getSelectedPath <Symbol> The message to retrieve the selected path in the tree. > setSelected <Symbol> The message to set the selected item in the tree. > getChildren <Symbol> The message to retrieve the children of an item > hasChildren <Symbol> The message to query for children of an item > label <Symbol> The message to query for the label of an item. > icon <Symbol> The message to query for the icon of an item. > help <Symbol> The message to query for the help of an item. > menu <Symbol> The message to query for the tree's menu > keyPress <Symbol> The message to process a keystroke. > wantsDrop <Symbol> The message to query whether a drop might be accepted. > dropItem <Symbol> The message to drop an item. > enableDrag <Boolean> Enable dragging from this tree. > autoDeselect <Boolean> Whether the tree should allow automatic deselection or not. > unusedVar (unused) This variable is a placeholder to fix problems with loading packages in 3.10.! You should update the class comment =D

2 2

The Trunk: Tools-mt.544.mcz
by commits＠source.squeak.org 07 Mar '15

07 Mar '15

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.544.mcz ==================== Summary ==================== Name: Tools-mt.544 Author: mt Time: 7 March 2015, 12:39:29.451 pm UUID: e5f6e0d2-f8ba-b042-aed1-49fcb8cb0617 Ancestors: Tools-mt.543 Simple indication for monitored items added to object explorer. In particular, this is an indication for post-init refreshing as triggered by monitoring. =============== Diff against Tools-mt.543 =============== Item was changed: ----- Method: IndentingListItemMorph>>highlight (in category 'private-container protocol') ----- highlight + (self valueOfProperty: #wasRefreshed ifAbsent: [false]) + ifFalse: [self color: complexContents highlightingColor] + ifTrue: [self color: self color negated]. + - self color: complexContents highlightingColor. self changed. ! Item was changed: ----- Method: IndentingListItemMorph>>refresh (in category 'initialization') ----- refresh self contents: complexContents asString. + icon := complexContents icon. + + (self valueOfProperty: #wasRefreshed ifAbsent: [false]) ifFalse: [ + self setProperty: #wasRefreshed toValue: true. + self color: Color yellow. "Indicate refresh operation."].! - icon := complexContents icon.! Item was changed: ----- Method: IndentingListItemMorph>>unhighlight (in category 'drawing') ----- unhighlight + (self valueOfProperty: #wasRefreshed ifAbsent: [false]) + ifFalse: [self color: complexContents preferredColor] + ifTrue: [self color: self color negated]. + - self color: complexContents preferredColor. self changed. !

1 0

← Newer
1
...
23
24
25
26
27
28
29
...
32
Older →

Jump to page: