Packages February 2013

packages@lists.squeakfoundation.org

1 participants
180 discussions

The Trunk: KernelTests-nice.244.mcz
by commits＠source.squeak.org 23 Feb '13

23 Feb '13

Nicolas Cellier uploaded a new version of KernelTests to project The Trunk: http://source.squeak.org/trunk/KernelTests-nice.244.mcz ==================== Summary ==================== Name: KernelTests-nice.244 Author: nice Time: 23 February 2013, 8:49:05.862 pm UUID: 7b3445ea-0910-4ee4-a6c7-c7305f930764 Ancestors: KernelTests-fbs.243 Avoid using ReadWriteStream gratuitously when we just need a WriteStream. =============== Diff against KernelTests-fbs.243 =============== Item was changed: ----- 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! - | cs rw | - cs := ReadStream on: '1901-01-01T00:00:00+00:00'. - rw := ReadWriteStream on: ''. - aDateAndTime printOn: rw. - self assert: rw contents = cs contents. - cs := ReadStream on: 'a TimeZone(ETZ)'. - rw := ReadWriteStream on: ''. - aTimeZone printOn: rw. - self assert: rw contents = cs contents! Item was changed: ----- Method: DateAndTimeLeapTest>>testPrintOn (in category 'testing') ----- testPrintOn + | ref ws | + ref := '2004-02-29T13:33:00+02:00'. + ws := '' writeStream. + aDateAndTime printOn: ws. + self assert: ws contents = ref. + ref := 'a TimeZone(UTC)'. + ws := '' writeStream. + aTimeZone printOn: ws. + self assert: ws contents = ref ! - | cs rw | - cs := ReadStream on: '2004-02-29T13:33:00+02:00'. - rw := ReadWriteStream on: ''. - aDateAndTime printOn: rw. - self assert: rw contents = cs contents. - cs := ReadStream on: 'a TimeZone(UTC)'. - rw := ReadWriteStream on: ''. - aTimeZone printOn: rw. - self assert: rw contents = cs contents ! Item was changed: ----- Method: DateTest>>testPrintOn (in category 'testing') ----- testPrintOn + | ref ws | + ref := '23 January 2004'. + ws := '' writeStream. + aDate printOn: ws. + self assert: ws contents = ref! - | cs rw | - cs := ReadStream on: '23 January 2004'. - rw := ReadWriteStream on: ''. - aDate printOn: rw. - self assert: rw contents = cs contents! Item was changed: ----- Method: DateTest>>testPrintOnFormat (in category 'testing') ----- testPrintOnFormat + | ref ws | + ref :='04*Jan*23'. + ws := '' writeStream. + aDate printOn: ws format: #(3 2 1 $* 2 2). + self assert: ws contents = ref! - | cs rw | - cs := ReadStream on: '04*Jan*23'. - rw := ReadWriteStream on: ''. - aDate printOn: rw format: #(3 2 1 $* 2 2). - self assert: rw contents = cs contents! Item was changed: ----- Method: DateTest>>testStoreOn (in category 'testing') ----- testStoreOn + | ref ws | + ref := '''23 January 2004'' asDate'. + ws := '' writeStream. + aDate storeOn: ws. + self assert: ws contents = ref! - | cs rw | - cs := ReadStream on: '''23 January 2004'' asDate'. - rw := ReadWriteStream on: ''. - aDate storeOn: rw. - self assert: rw contents = cs contents! Item was changed: ----- Method: DurationTest>>testPrintOn (in category 'testing') ----- testPrintOn + | ref ws | + ref := '1:02:03:04.000000005'. + ws := '' writeStream. + aDuration printOn: ws. + self assert: ws contents = ref! - |cs rw | - cs := ReadStream on: '1:02:03:04.000000005'. - rw := ReadWriteStream on: ''. - aDuration printOn: rw. - self assert: rw contents = cs contents.! Item was changed: ----- Method: IntegerTest>>testPrintOnBaseShowRadix (in category 'tests - printing') ----- testPrintOnBaseShowRadix | s | + s := '' writeStream. - s := ReadWriteStream on: ''. 123 printOn: s base: 10 showRadix: false. self assert: (s contents = '123'). + s := '' writeStream. - s := ReadWriteStream on: ''. 123 printOn: s base: 10 showRadix: true. self assert: (s contents = '10r123'). + s := '' writeStream. - s := ReadWriteStream on: ''. 123 printOn: s base: 8 showRadix: false. self assert: (s contents = '173'). + s := '' writeStream. - s := ReadWriteStream on: ''. 123 printOn: s base: 8 showRadix: true. self assert: (s contents = '8r173').! Item was changed: ----- Method: StopwatchTest>>testPrintOn (in category 'testing') ----- testPrintOn + | ref ws | + ref := 'a Stopwatch(suspended:0:00:00:00)'. + ws := '' writeStream. + aStopwatch printOn: ws. + self assert: ws contents = ref! - | cs rw | - cs := ReadStream on: 'a Stopwatch(suspended:0:00:00:00)'. - rw := ReadWriteStream on: ''. - aStopwatch printOn: rw. - self assert: rw contents = cs contents! Item was changed: ----- Method: TimeStampTest>>testPrintOn (in category 'testing') ----- testPrintOn + | ref ws | + ref := '2 January 2004 12:34:56 am'. + ws := '' writeStream. + aTimeStamp printOn: ws. + self assert: ws contents = ref! - | cs rw | - cs := ReadStream on: '2 January 2004 12:34:56 am'. - rw := ReadWriteStream on: ''. - aTimeStamp printOn: rw. - self assert: rw contents = cs contents! Item was changed: ----- Method: TimeStampTest>>testStoreOn (in category 'testing') ----- testStoreOn + | ref ws | + ref := '''2 January 2004 12:34:56 am'' asTimeStamp'. + ws := '' writeStream. + aTimeStamp storeOn: ws. + self assert: ws contents = ref! - | cs rw | - cs := ReadStream on: '''2 January 2004 12:34:56 am'' asTimeStamp'. - rw := ReadWriteStream on: ''. - aTimeStamp storeOn: rw. - self assert: rw contents = cs contents! Item was changed: ----- Method: TimespanTest>>testPrintOn (in category 'testing') ----- testPrintOn + | ref ws | + ref := 'a Timespan(2005-01-01T00:00:00+00:00D7:00:00:00)'. + ws := '' writeStream. + aTimespan printOn: ws. + self assert: ws contents = ref - | cs rw | - cs := ReadStream on: 'a Timespan(2005-01-01T00:00:00+00:00D7:00:00:00)'. - rw := ReadWriteStream on: ''. - aTimespan printOn: rw. - self assert: rw contents = cs contents ! Item was changed: ----- Method: YearMonthWeekTest>>testMonthPrintOn (in category 'testing') ----- testMonthPrintOn + | aMonth ws | + aMonth := Month starting: DateAndTime new duration: 31 days. + ws := '' writeStream. + aMonth printOn: ws. + self assert: ws contents = 'January 1901'.! - | aMonth cs rw | - aMonth := Month starting: DateAndTime new duration: 31 days. - cs := ReadStream on: 'January 1901'. - rw := ReadWriteStream on: ''. - aMonth printOn: rw. - self assert: rw contents = cs contents.! Item was changed: ----- Method: YearMonthWeekTest>>testYearPrintOn (in category 'testing') ----- testYearPrintOn + | aYear ws | + aYear := Year starting: DateAndTime new duration: 365 days. + ws := '' writeStream. + aYear printOn: ws. + self assert: ws contents = 'a Year (1901)'.! - | aYear cs rw | - aYear := Year starting: DateAndTime new duration: 365 days. - cs := ReadStream on: 'a Year (1901)'. - rw := ReadWriteStream on: ''. - aYear printOn: rw. - self assert: rw contents = cs contents.!

1 0

The Trunk: KernelTests-nice.244.mcz
by commits＠source.squeak.org 23 Feb '13

23 Feb '13

1 0

The Trunk: KernelTests-nice.244.mcz
by commits＠source.squeak.org 23 Feb '13

23 Feb '13

1 0

The Trunk: Graphics-nice.200.mcz
by commits＠source.squeak.org 23 Feb '13

23 Feb '13

Nicolas Cellier uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-nice.200.mcz ==================== Summary ==================== Name: Graphics-nice.200 Author: nice Time: 23 February 2013, 7:29:22.44 pm UUID: eeff1466-d298-4c92-ac73-5f968dfc52c3 Ancestors: Graphics-eem.199 Bugfix: reading a XBM image with bits specified in decimal would fail to read a '0' byte. =============== Diff against Graphics-eem.199 =============== Item was changed: ----- Method: XBMReadWriter>>parseByteValue (in category 'private') ----- parseByteValue "skip over separators and return next bytevalue parsed as a C language number: 0ddd is an octal digit. 0xddd is a hex digit. ddd is decimal." | source mybase | stream skipSeparators. + source := stream upToAnyOf: CharacterSet separators. + source = '0' ifTrue: [^0].. - source := ReadWriteStream on: String new. - [stream atEnd or: [ stream peek isSeparator ]] - whileFalse: [source nextPut: self next asUppercase]. mybase := 10. "Base 10 default" + source := source asUppercase readStream. + (source peekFor: $0) ifTrue: [ - source reset. - (source peek = $0) ifTrue: [ mybase := 8. "Octal or Hex, say its Octal unless overridden." + (source peekFor: $X) ifTrue: [ - source next. - (source peek = $X) ifTrue: [ mybase := 16. "Ah. It's Hex." - source next. ] ]. ^ Integer readFrom: source base: mybase!

1 0

The Trunk: Graphics-nice.200.mcz
by commits＠source.squeak.org 23 Feb '13

23 Feb '13

1 0

The Trunk: Graphics-nice.200.mcz
by commits＠source.squeak.org 23 Feb '13

23 Feb '13

1 0

The Trunk: Balloon-dtl.20.mcz
by commits＠source.squeak.org 22 Feb '13

22 Feb '13

David T. Lewis uploaded a new version of Balloon to project The Trunk: http://source.squeak.org/trunk/Balloon-dtl.20.mcz ==================== Summary ==================== Name: Balloon-dtl.20 Author: dtl Time: 22 February 2013, 11:42:35.522 am UUID: b7a34c82-3dbc-458d-941f-fb76256b88c1 Ancestors: Balloon-egp.19 Check for sending ShortRunArray class>>swapRuns and ShortIntegerArray class>>swapShortObjects is needed only at image startup time, so use startUp: resuming rather than startUp. Categorize in system startup. =============== Diff against Balloon-egp.19 =============== Item was removed: - ----- Method: ShortIntegerArray class>>startUp (in category 'class initialization') ----- - startUp - "Check if the word order has changed from the last save" - ((LastSaveOrder at: 1) = 42 and:[(LastSaveOrder at: 2) = 13]) - ifTrue:[^self]. "Okay" - ((LastSaveOrder at: 2) = 42 and:[(LastSaveOrder at: 1) = 13]) - ifTrue:[^self swapShortObjects]. "Reverse guys" - ^self error:'This must never happen'! Item was added: + ----- Method: ShortIntegerArray class>>startUp: (in category 'system startup') ----- + startUp: resuming + "Check if the word order has changed from the last save" + resuming ifFalse: [ ^ self ]. + ((LastSaveOrder at: 1) = 42 and:[(LastSaveOrder at: 2) = 13]) + ifTrue:[^self]. "Okay" + ((LastSaveOrder at: 2) = 42 and:[(LastSaveOrder at: 1) = 13]) + ifTrue:[^self swapShortObjects]. "Reverse guys" + ^self error:'This must never happen'! Item was removed: - ----- Method: ShortRunArray class>>startUp (in category 'class initialization') ----- - startUp - "Check if the word order has changed from the last save" - ((LastSaveOrder valueAtRun: 1) = 42 and:[(LastSaveOrder lengthAtRun: 1) = 3]) - ifTrue:[^self]. "Okay" - ((LastSaveOrder lengthAtRun: 1) = 42 and:[(LastSaveOrder valueAtRun: 1) = 3]) - ifTrue:[^self swapRuns]. "Reverse guys" - ^self error:'This must never happen'! Item was added: + ----- Method: ShortRunArray class>>startUp: (in category 'system startup') ----- + startUp: resuming + "Check if the word order has changed from the last save" + resuming ifFalse: [ ^ self ]. + ((LastSaveOrder valueAtRun: 1) = 42 and:[(LastSaveOrder lengthAtRun: 1) = 3]) + ifTrue:[^self]. "Okay" + ((LastSaveOrder lengthAtRun: 1) = 42 and:[(LastSaveOrder valueAtRun: 1) = 3]) + ifTrue:[^self swapRuns]. "Reverse guys" + ^self error:'This must never happen'!

1 0

The Trunk: Balloon-dtl.20.mcz
by commits＠source.squeak.org 22 Feb '13

22 Feb '13

1 0

The Trunk: Balloon-dtl.20.mcz
by commits＠source.squeak.org 22 Feb '13

22 Feb '13

1 0

The Trunk: Graphics-eem.199.mcz
by commits＠source.squeak.org 21 Feb '13

21 Feb '13

Eliot Miranda uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-eem.199.mcz ==================== Summary ==================== Name: Graphics-eem.199 Author: eem Time: 21 February 2013, 10:19:44.192 am UUID: 659cfcf3-6c10-4ef4-bb07-e407c0b1faa2 Ancestors: Graphics-eem.198 Use isNumber in fixing MNU in Smalltalk specialObjectsArray printString. Point>>printOn: shouldn't assume its inst vars are numbers. =============== Diff against Graphics-eem.198 =============== Item was changed: ----- Method: Point>>printOn: (in category 'printing') ----- printOn: aStream "The receiver prints on aStream in terms of infix notation." x printOn: aStream. aStream nextPut: $@. + (y isNumber and: [y negative]) ifTrue: - (y isInteger and: [y negative]) ifTrue: "Avoid ambiguous @- construct" [aStream space]. y printOn: aStream!

1 0

← Newer
1
...
4
5
6
7
8
9
10
...
18
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2013