Packages May 2011

packages@lists.squeakfoundation.org

1 participants
291 discussions

The Trunk: ToolsTests-fbs.45.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-fbs.45.mcz ==================== Summary ==================== Name: ToolsTests-fbs.45 Author: fbs Time: 14 May 2011, 9:33:53.098 am UUID: 71464cf7-859c-3547-8cf8-3b68bc02b12a Ancestors: ToolsTests-fbs.42 Test for Tools-laza.354, and a bonus test just for kicks. =============== Diff against ToolsTests-fbs.42 =============== Item was added: + ----- Method: DependencyBrowserTest>>testSelectedMessageClassSideShowsSource (in category 'testing - message list') ----- + testSelectedMessageClassSideShowsSource + "Warning!! When Collections' dependencies change, this test may start to fail!!" + + browser packageListIndex: (browser packageList indexOf: #Kernel). + browser packageDepsIndex: (browser packageDeps indexOf: #Collections). + browser classDepsIndex: (browser classDeps indexOf: #'Array'). + browser classListIndex: (browser classList indexOf: #'DateAndTime class'). + browser messageListIndex: 1. + self assert: browser selectedMessageName == #fromSeconds:. + + self assert: browser contents = (DateAndTime class sourceCodeAt: #fromSeconds:) + ! Item was added: + ----- Method: DependencyBrowserTest>>testSelectedMessageNameClassSide (in category 'testing - message list') ----- + testSelectedMessageNameClassSide + "Warning!! When Collections' dependencies change, this test may start to fail!!" + self assert: browser selectedMessageName isNil. + + browser packageListIndex: (browser packageList indexOf: #Kernel). + self assert: browser selectedMessageName isNil. + + browser packageDepsIndex: (browser packageDeps indexOf: #Collections). + self assert: browser selectedMessageName isNil. + + browser classDepsIndex: (browser classDeps indexOf: #Array). + self assert: browser selectedMessageName isNil. + + browser classListIndex: (browser classList indexOf: #'DateAndTime class'). + self assert: browser selectedMessageName isNil. + + browser messageListIndex: 1. + self assert: browser selectedMessageName == #fromSeconds:. + !

1 0

The Trunk: ToolsTests-fbs.45.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: ToolsTests-fbs.45.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: ToolsTests-fbs.44.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of ToolsTests to project The Trunk: http://source.squeak.org/trunk/ToolsTests-fbs.44.mcz ==================== Summary ==================== Name: ToolsTests-fbs.44 Author: fbs Time: 13 May 2011, 10:42:43.121 pm UUID: 38aab1aa-dadd-2b4d-b055-5a049109ec4d Ancestors: ToolsTests-fbs.42 If you're looking at a method #foo, and you don't have a message category selected, and you move classes to something that also has a #foo, keep #foo selected. =============== Diff against ToolsTests-fbs.42 =============== Item was added: + ----- Method: BrowserTest>>testKeepMethodSelectedWhenChangingClass (in category 'testing - message list') ----- + testKeepMethodSelectedWhenChangingClass + browser selectSystemCategory: SequenceableCollection category. + browser selectClass: SequenceableCollection. + browser selectMessageNamed: #add:. + self assert: browser selectedMessageName = #add:. + + "Even though we have no message category selected, stay looking at the #add: method." + browser selectClass: Collection. + self assert: browser selectedMessageName = #add:.!

1 0

The Trunk: ToolsTests-fbs.44.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: ToolsTests-fbs.44.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: Multilingual-ul.151.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

Levente Uzonyi uploaded a new version of Multilingual to project The Trunk: http://source.squeak.org/trunk/Multilingual-ul.151.mcz ==================== Summary ==================== Name: Multilingual-ul.151 Author: ul Time: 22 May 2011, 10:12:27.443 pm UUID: e47408e2-bdb2-ab44-83f0-82ba2d25b64d Ancestors: Multilingual-ul.150 All TextConverters pass the line end conversion test. =============== Diff against Multilingual-ul.150 =============== Item was changed: ----- Method: CompoundTextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream + | charCode leadingChar class | - | ascii leadingChar class | aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. aCharacter isTraditionalDomestic ifFalse: [ class := (EncodedCharSet charsetAt: aCharacter leadingChar) traditionalCharsetClass. + charCode := (class charFromUnicode: aCharacter asUnicode) charCode. - ascii := (class charFromUnicode: aCharacter asUnicode) charCode. leadingChar := class leadingChar. ] ifTrue: [ + charCode := aCharacter charCode. - ascii := aCharacter charCode. leadingChar := aCharacter leadingChar. ]. + charCode < 256 ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ aStream basicNextPut: aCharacter ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ]. + ^aCharacter ]. + self + nextPutValue: charCode + toStream: aStream + withShiftSequenceIfNeededForLeadingChar: leadingChar. - - self nextPutValue: ascii toStream: aStream withShiftSequenceIfNeededForLeadingChar: leadingChar. ^aCharacter ! Item was changed: ----- Method: EUCTextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream + | charCode leadingChar nonUnicodeChar | - | value leadingChar nonUnicodeChar value1 value2 | aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. + charCode := aCharacter charCode. - value := aCharacter charCode. leadingChar := aCharacter leadingChar. + (leadingChar = 0 and: [ charCode < 256 ]) ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ aStream basicNextPut: aCharacter ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ]. + ^aCharacter ]. + aCharacter isTraditionalDomestic + ifFalse: [ nonUnicodeChar := self nonUnicodeClass charFromUnicode: charCode ] + ifTrue: [ nonUnicodeChar := Character value: charCode ]. - (leadingChar = 0 and: [value < 128]) ifTrue: [ - ^aStream basicNextPut: (Character value: value). - ]. - - (128 <= value and: [value < 256]) ifTrue: [^ aStream]. - aCharacter isTraditionalDomestic ifFalse: [ - nonUnicodeChar := self nonUnicodeClass charFromUnicode: value. - ] ifTrue: [ - nonUnicodeChar :=(Character value: value) - ]. nonUnicodeChar ifNotNil: [ + charCode := nonUnicodeChar charCode. + aStream + basicNextPut: (Character value: charCode // 94 + 161); + basicNextPut: (Character value: charCode \\ 94 + 161) ]. - value := nonUnicodeChar charCode. - value1 := value // 94 + 161. - value2 := value \\ 94 + 161. - aStream basicNextPut: (Character value: value1). - aStream basicNextPut: (Character value: value2). - ]. ^aCharacter ! Item was changed: ----- Method: ShiftJISTextConverter>>nextPut:toStream: (in category 'conversion') ----- + nextPut: aCharacter toStream: aStream + + | charCode leadingChar aChar | - nextPut: aCharacter toStream: aStream - | value leadingChar aChar | aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. + aChar := aCharacter. + charCode := aCharacter charCode. + aChar isTraditionalDomestic ifFalse: [ + (16rFF61 <= charCode and: [charCode <= 16rFF9F]) ifTrue: [ + ^aStream basicNextPut: (self sjisKatakanaFor: charCode) ]. + aChar := (JISX0208 charFromUnicode: charCode) ifNil: [ + ^aCharacter "an error or nil may be better" ]. + charCode := aChar charCode ]. + (leadingChar := aChar leadingChar) = 0 ifTrue: [ + charCode < 256 ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ aStream basicNextPut: aChar ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ]. + ^aChar ]. + ^aStream basicNextPut: aChar ]. + leadingChar = self leadingChar ifTrue: [ - aCharacter isTraditionalDomestic ifTrue: [ - aChar := aCharacter. - value := aCharacter charCode. - ] ifFalse: [ - value := aCharacter charCode. - (16rFF61 <= value and: [value <= 16rFF9F]) ifTrue: [ - ^aStream basicNextPut: (self sjisKatakanaFor: value). - ]. - aChar := JISX0208 charFromUnicode: value. - aChar ifNil: [^ aStream]. - value := aChar charCode. - ]. - leadingChar := aChar leadingChar. - leadingChar = 0 ifTrue: [ - ^aStream basicNextPut: (Character value: value). - ]. - leadingChar == self leadingChar ifTrue: [ | upper lower | + upper := charCode // 94 + 33. + lower := charCode \\ 94 + 33. - upper := value // 94 + 33. - lower := value \\ 94 + 33. upper \\ 2 = 1 ifTrue: [ upper := upper + 1 / 2 + 112. lower := lower + 31 ] ifFalse: [ upper := upper / 2 + 112. lower := lower + 125 ]. upper >= 160 ifTrue: [upper := upper + 64]. lower >= 127 ifTrue: [lower := lower + 1]. + aStream + basicNextPut: (Character value: upper); + basicNextPut: (Character value: lower) ]. + ^aChar - aStream basicNextPut: (Character value: upper). - aStream basicNextPut: (Character value: lower). - ]. - ^aCharacter !

1 0

The Trunk: Multilingual-ul.151.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: Multilingual-ul.151.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

1 0

The Trunk: Morphic-dtl.542.mcz
by commits＠source.squeak.org 22 May '11

22 May '11

David T. Lewis uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-dtl.542.mcz ==================== Summary ==================== Name: Morphic-dtl.542 Author: dtl Time: 22 May 2011, 4:28:44.002 pm UUID: 08000000-1508-341b-1508-341b14000000 Ancestors: Morphic-laza.541 Fix Mantis 7635: Graphics primitives will raise errors when rectangles have widths in fractions. Morph>>extent: should send #rounded to the new extent to ensure integer values. =============== Diff against Morphic-laza.541 =============== Item was changed: ----- Method: Morph>>extent: (in category 'geometry') ----- extent: aPoint (bounds extent closeTo: aPoint) ifTrue: [^ self]. self changed. + bounds := (bounds topLeft extent: aPoint) rounded. - bounds := bounds topLeft extent: aPoint. self layoutChanged. self changed. !

1 0

← Newer
1
2
3
4
5
6
7
...
30
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 May 2011