Packages May 2011

packages@lists.squeakfoundation.org

1 participants
291 discussions

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

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

22 May '11

1 0

The Trunk: Multilingual-ul.150.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.150.mcz ==================== Summary ==================== Name: Multilingual-ul.150 Author: ul Time: 22 May 2011, 5:13:48.808 pm UUID: fc805db9-5884-134f-a146-8f715558999f Ancestors: Multilingual-ul.149 - small bugfix =============== Diff against Multilingual-ul.149 =============== Item was changed: ----- Method: UTF16TextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | character1 character2 readBOM charValue | + aStream isBinary ifTrue: [ ^aStream basicNext ]. - aStream isBinary ifTrue: [^ aStream basicNext]. character1 := aStream basicNext ifNil: [ ^nil ]. character2 := aStream basicNext ifNil: [ ^nil ]. readBOM := false. (character1 asciiValue = 16rFF and: [character2 asciiValue = 16rFE]) ifTrue: [ self useByteOrderMark: true; useLittleEndian: true. readBOM := true ]. (character1 asciiValue = 16rFE and: [character2 asciiValue = 16rFF]) ifTrue: [ self useByteOrderMark: true; useLittleEndian: false. readBOM := true ]. readBOM ifTrue: [ character1 := aStream basicNext ifNil: [ ^nil ]. character2 := aStream basicNext ifNil: [ ^nil ] ]. useLittleEndian + ifTrue: [ charValue := (character2 charCode bitShift: 8) + character1 charCode ] + ifFalse: [ charValue := (character1 charCode bitShift: 8) + character2 charCode ]. - ifTrue: [ charValue := character2 charCode bitShift: 8 + character1 charCode ] - ifFalse: [ charValue := character1 charCode bitShift: 8 + character2 charCode ]. ^ self charFromStream: aStream withFirst: charValue!

1 0

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

22 May '11

1 0

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

22 May '11

1 0

The Trunk: Multilingual-ul.149.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.149.mcz ==================== Summary ==================== Name: Multilingual-ul.149 Author: ul Time: 22 May 2011, 2:05:19.387 pm UUID: 5dc26283-2342-8a46-894f-2de166468c16 Ancestors: Multilingual-ul.148 - assume that UTF16TextConverter's instance variables are correctly initialized. Migration code is in the preamble. - other minor refactorings of UTF16TextConverter =============== Diff against Multilingual-ul.148 =============== Item was changed: + (PackageInfo named: 'Multilingual') preamble: '"Ensure that the instance variables of UTF16TextConverters are initialized." + UTF16TextConverter allInstancesDo: [ :converter | + #(useLittleEndian useByteOrderMark byteOrderMarkDone) do: [ :instVarName | + (converter instVarNamed: instVarName) ifNil: [ + converter instVarNamed: instVarName put: false ] ] ]'! - (PackageInfo named: 'Multilingual') preamble: '"Initialize the value of wantsLineEndConversion in all MultiByteFileStreams" - MultiByteFileStream allSubInstancesDo: [ :each | - (each instVarNamed: #wantsLineEndConversion) ifNil: [ - each instVarNamed: #wantsLineEndConversion put: false ] ]'! Item was changed: ----- Method: UTF16TextConverter>>charFromStream:withFirst: (in category 'private') ----- charFromStream: aStream withFirst: firstValue + | character1 character2 n secondValue | + (16rD800 <= firstValue and: [firstValue <= 16rDBFF]) ifFalse: [ + ^Unicode value: firstValue ]. + character1 := aStream basicNext ifNil: [ ^nil ]. + character2 := aStream basicNext ifNil: [ ^nil ]. + useLittleEndian ifTrue: [ + | tmp | + tmp := character1. + character1 := character2. + character2 := tmp ]. + secondValue := (character1 charCode bitShift: 8) + character2 charCode. + n := firstValue - 16rD800 * 16r400 + (secondValue - 16rDC00) + 16r10000. + ^Unicode value: n! - | character1 character2 tmp n secondValue | - (16rD800 <= firstValue and: [firstValue <= 16rDBFF]) ifTrue: [ - character1 := aStream basicNext. - character1 isNil ifTrue: [^ nil]. - character2 := aStream basicNext. - character2 isNil ifTrue: [^ nil]. - self useLittleEndian ifTrue: [ - tmp := character1. - character1 := character2. - character2 := tmp - ]. - secondValue := (character1 charCode << 8) + (character2 charCode). - n := (firstValue - 16rD800) * 16r400 + (secondValue - 16rDC00) + 16r10000. - ^ Unicode value: n - ]. - - ^ Unicode value: firstValue - ! Item was changed: ----- Method: UTF16TextConverter>>initialize (in category 'initialize-release') ----- initialize super initialize. + useLittleEndian := useByteOrderMark := byteOrderMarkDone := false! - useLittleEndian := useByteOrderMark := byteOrderMarkDone := false. - ! Item was changed: ----- Method: UTF16TextConverter>>next16BitValue:toStream: (in category 'private') ----- next16BitValue: value toStream: aStream | v1 v2 | + v1 := (value bitShift: -8) bitAnd: 16rFF. - v1 := (value >> 8) bitAnd: 16rFF. v2 := value bitAnd: 16rFF. + useLittleEndian + ifTrue: [ + aStream + basicNextPut: (Character value: v2); + basicNextPut: (Character value: v1) ] + ifFalse: [ + aStream + basicNextPut: (Character value: v1); + basicNextPut: (Character value: v2) ]. - - self useLittleEndian ifTrue: [ - aStream basicNextPut: (Character value: v2). - aStream basicNextPut: (Character value: v1). - ] ifFalse: [ - aStream basicNextPut: (Character value: v1). - aStream basicNextPut: (Character value: v2). - ]. ! Item was changed: ----- Method: UTF16TextConverter>>nextFromStream: (in category 'conversion') ----- nextFromStream: aStream | character1 character2 readBOM charValue | aStream isBinary ifTrue: [^ aStream basicNext]. + character1 := aStream basicNext ifNil: [ ^nil ]. + character2 := aStream basicNext ifNil: [ ^nil ]. + - character1 := aStream basicNext. - character1 isNil ifTrue: [^ nil]. - character2 := aStream basicNext. - character2 isNil ifTrue: [^ nil]. - readBOM := false. (character1 asciiValue = 16rFF and: [character2 asciiValue = 16rFE]) ifTrue: [ + self + useByteOrderMark: true; + useLittleEndian: true. + readBOM := true ]. - self useByteOrderMark: true. - self useLittleEndian: true. - readBOM := true. - ]. (character1 asciiValue = 16rFE and: [character2 asciiValue = 16rFF]) ifTrue: [ + self + useByteOrderMark: true; + useLittleEndian: false. + readBOM := true ]. - self useByteOrderMark: true. - self useLittleEndian: false. - readBOM := true. - ]. readBOM ifTrue: [ + character1 := aStream basicNext ifNil: [ ^nil ]. + character2 := aStream basicNext ifNil: [ ^nil ] ]. - character1 := aStream basicNext. - character1 isNil ifTrue: [^ nil]. - character2 := aStream basicNext. - character2 isNil ifTrue: [^ nil]. - ]. + useLittleEndian + ifTrue: [ charValue := character2 charCode bitShift: 8 + character1 charCode ] + ifFalse: [ charValue := character1 charCode bitShift: 8 + character2 charCode ]. - self useLittleEndian ifTrue: [ - charValue := character2 charCode << 8 + character1 charCode. - ] ifFalse: [ - charValue := character1 charCode << 8 + character2 charCode. - ]. + ^ self charFromStream: aStream withFirst: charValue! - ^ self charFromStream: aStream withFirst: charValue. - ! Item was changed: ----- Method: UTF16TextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream | charCode | aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. + (useByteOrderMark and: [ byteOrderMarkDone not ]) ifTrue: [ - (useByteOrderMark == true and: [ byteOrderMarkDone isNil ]) ifTrue: [ self next16BitValue: 16rFEFF toStream: aStream. byteOrderMarkDone := true ]. (charCode := aCharacter charCode) < 256 ifTrue: [ (latin1Encodings at: charCode + 1) ifNil: [ self next16BitValue: charCode toStream: aStream ] ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ] ifFalse: [ charCode <= 16rFFFF ifTrue: [ self next16BitValue: charCode toStream: aStream ] ifFalse: [ | low high | charCode := charCode - 16r10000. + low := charCode \\ 16r400 + 16rDC00. + high := charCode // 16r400 + 16rD800. - low := (charCode \\ 16r400) + 16rDC00. - high := (charCode // 16r400) + 16rD800. self next16BitValue: high toStream: aStream; next16BitValue: low toStream: aStream ] ]. ^aCharacter! Item was changed: ----- Method: UTF16TextConverter>>useByteOrderMark (in category 'accessing') ----- useByteOrderMark + ^useByteOrderMark - ^ useByteOrderMark ifNil: [^ false]. ! Item was changed: ----- Method: UTF16TextConverter>>useLittleEndian (in category 'accessing') ----- useLittleEndian + ^useLittleEndian - ^ useLittleEndian ifNil: [false]. ! Item was changed: ----- Method: UTF16TextConverter>>useLittleEndian: (in category 'accessing') ----- useLittleEndian: aBoolean + + aBoolean = useLittleEndian ifFalse: [ self swapLatin1EncodingByteOrder ]. - aBoolean = self useLittleEndian ifFalse: [self swapLatin1EncodingByteOrder]. useLittleEndian := aBoolean. !

1 0

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

22 May '11

1 0

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

22 May '11

1 0

The Trunk: Multilingual-ul.148.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.148.mcz ==================== Summary ==================== Name: Multilingual-ul.148 Author: ul Time: 22 May 2011, 1:39:13.937 pm UUID: 6b3af2f6-9f85-c844-9af3-66cf37524525 Ancestors: Multilingual-ul.147 - fixed UTF16 line end conversions - initialize instance variables of UTF16TextConverter =============== Diff against Multilingual-ul.147 =============== Item was added: + ----- Method: UTF16TextConverter>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + useLittleEndian := useByteOrderMark := byteOrderMarkDone := false. + ! Item was changed: ----- Method: UTF16TextConverter>>nextPut:toStream: (in category 'conversion') ----- nextPut: aCharacter toStream: aStream + | charCode | + aStream isBinary ifTrue: [ ^aCharacter storeBinaryOn: aStream ]. + (useByteOrderMark == true and: [ byteOrderMarkDone isNil ]) ifTrue: [ + self next16BitValue: 16rFEFF toStream: aStream. + byteOrderMarkDone := true ]. + (charCode := aCharacter charCode) < 256 + ifTrue: [ + (latin1Encodings at: charCode + 1) + ifNil: [ self next16BitValue: charCode toStream: aStream ] + ifNotNil: [ :encodedString | aStream basicNextPutAll: encodedString ] ] + ifFalse: [ + charCode <= 16rFFFF + ifTrue: [ self next16BitValue: charCode toStream: aStream ] + ifFalse: [ + | low high | + charCode := charCode - 16r10000. + low := (charCode \\ 16r400) + 16rDC00. + high := (charCode // 16r400) + 16rD800. + self + next16BitValue: high toStream: aStream; + next16BitValue: low toStream: aStream ] ]. + ^aCharacter! - | v low high | - aStream isBinary ifTrue: [^aCharacter storeBinaryOn: aStream]. - (self useByteOrderMark and: [byteOrderMarkDone isNil]) ifTrue: [ - self next16BitValue: (16rFEFF) toStream: aStream. - byteOrderMarkDone := true. - ]. - - v := aCharacter charCode. - v > 16rFFFF ifFalse: [ - self next16BitValue: v toStream: aStream. - ] ifTrue: [ - v := v - 16r10000. - low := (v \\ 16r400) + 16rDC00. - high := (v // 16r400) + 16rD800. - self next16BitValue: high toStream: aStream. - self next16BitValue: low toStream: aStream. - ]. - ^aCharacter. - !

1 0

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

22 May '11

1 0

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