Packages February 2018

packages@lists.squeakfoundation.org

1 participants
62 discussions

The Trunk: 60Deprecated-mt.10.mcz
by commits＠source.squeak.org 06 Feb '18

06 Feb '18

Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk: http://source.squeak.org/trunk/60Deprecated-mt.10.mcz ==================== Summary ==================== Name: 60Deprecated-mt.10 Author: mt Time: 6 February 2018, 10:17:47.542461 am UUID: 631fd266-800b-4b03-bce4-088fb80d5d99 Ancestors: 60Deprecated-mt.9 Deprecate some old inspector-related code. =============== Diff against 60Deprecated-mt.9 =============== Item was changed: SystemOrganization addCategory: #'60Deprecated-Kernel-Methods'! SystemOrganization addCategory: #'60Deprecated-System-Support'! + SystemOrganization addCategory: #'60Deprecated-Tools-Inspector'! Item was added: + Inspector subclass: #ExternalStructureInspector + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: '60Deprecated-Tools-Inspector'! Item was added: + ----- Method: ExternalStructureInspector>>fieldList (in category 'accessing') ----- + fieldList + ^ (Array with: 'self: ', object defaultLabelForInspector with: 'all inst vars'), self recordFieldList! Item was added: + ----- Method: ExternalStructureInspector>>recordFieldList (in category 'accessing') ----- + recordFieldList + | fields | + fields := object class fields. + (fields first isKindOf: Array) ifFalse: [fields := Array with: fields]. + ^fields collect: [ :field | field first ] thenSelect: [:name | name notNil]! Item was added: + ----- Method: ExternalStructureInspector>>replaceSelectionValue: (in category 'selecting') ----- + replaceSelectionValue: anObject + "Add colon to fieldname to get setter selector, and send it to object with the argument. + Refer to the comment in Inspector|replaceSelectionValue:." + + selectionIndex = 1 + ifTrue: [^object] + ifFalse: [^object perform: ((self fieldList at: selectionIndex), ':') asSymbol with: anObject]! Item was added: + ----- Method: ExternalStructureInspector>>selection (in category 'selecting') ----- + selection + "Refer to the comment in Inspector|selection." + selectionIndex = 0 ifTrue:[^object printString]. + selectionIndex = 1 ifTrue: [^object]. + selectionIndex = 2 ifTrue:[^object longPrintString]. + selectionIndex > 2 + ifTrue: [^object perform: (self fieldList at: selectionIndex)]! Item was added: + ----- Method: StandardToolSet class>>inspectorClassOf: (in category '*60Deprecated-inspecting') ----- + inspectorClassOf: anObject + + self deprecated: 'Use #inspectorClass.'. + ^ anObject inspectorClass! Item was added: + ----- Method: ToolSet class>>inspectorClassOf: (in category '*60Deprecated-inspecting') ----- + inspectorClassOf: anObject + + self deprecated: 'Use #inspectorClass.'. + ^ anObject inspectorClass!

1 0

The Trunk: Graphics-ul.393.mcz
by commits＠source.squeak.org 06 Feb '18

06 Feb '18

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.393.mcz ==================== Summary ==================== Name: Graphics-ul.393 Author: ul Time: 6 February 2018, 12:20:48.141659 am UUID: 161806a5-4c44-4739-9e86-3c0b5d2676ab Ancestors: Graphics-ul.392 - reverted some of the ByteArray literal changes as requested by Tobias - slightly improved GIFReadWriter>>writeHeader =============== Diff against Graphics-ul.392 =============== Item was changed: ----- Method: BMPReadWriter>>nextPutImage: (in category 'writing') ----- nextPutImage: aForm | bhSize rowBytes rgb data colorValues depth image ppw scanLineLen pixline | depth := aForm depth. + depth := #(1 4 8 32 ) detect: [ :each | each >= depth]. - depth := #[1 4 8 32] detect: [ :each | each >= depth]. image := aForm asFormOfDepth: depth. image unhibernate. bhSize := 14. "# bytes in file header" biSize := 40. "info header size in bytes" biWidth := image width. biHeight := image height. biClrUsed := depth = 32 ifTrue: [0] ifFalse:[1 << depth]. "No. color table entries" bfOffBits := biSize + bhSize + (4*biClrUsed). rowBytes := ((depth min: 24) * biWidth + 31 // 32) * 4. biSizeImage := biHeight * rowBytes. "Write the file header" stream position: 0. stream nextLittleEndianNumber: 2 put: 19778. "bfType = BM" stream nextLittleEndianNumber: 4 put: bfOffBits + biSizeImage. "Entire file size in bytes" stream nextLittleEndianNumber: 4 put: 0. "bfReserved" stream nextLittleEndianNumber: 4 put: bfOffBits. "Offset of bitmap data from start of hdr (and file)" "Write the bitmap info header" stream position: bhSize. stream nextLittleEndianNumber: 4 put: biSize. "info header size in bytes" stream nextLittleEndianNumber: 4 put: image width. "biWidth" stream nextLittleEndianNumber: 4 put: image height. "biHeight" stream nextLittleEndianNumber: 2 put: 1. "biPlanes" stream nextLittleEndianNumber: 2 put: (depth min: 24). "biBitCount" stream nextLittleEndianNumber: 4 put: 0. "biCompression" stream nextLittleEndianNumber: 4 put: biSizeImage. "size of image section in bytes" stream nextLittleEndianNumber: 4 put: 2800. "biXPelsPerMeter" stream nextLittleEndianNumber: 4 put: 2800. "biYPelsPerMeter" stream nextLittleEndianNumber: 4 put: biClrUsed. stream nextLittleEndianNumber: 4 put: 0. "biClrImportant" biClrUsed > 0 ifTrue: [ "write color map; this works for ColorForms, too" colorValues := image colormapIfNeededForDepth: 32. 1 to: biClrUsed do: [:i | rgb := colorValues at: i. 0 to: 24 by: 8 do: [:j | stream nextPut: (rgb >> j bitAnd: 16rFF)]]]. depth < 32 ifTrue: [ "depth = 1, 4 or 8." data := image bits asByteArray. ppw := 32 // depth. scanLineLen := biWidth + ppw - 1 // ppw * 4. "# of bytes in line" 1 to: biHeight do: [:i | stream next: scanLineLen putAll: data startingAt: (biHeight-i)*scanLineLen+1. ]. ] ifFalse: [ data := image bits. pixline := ByteArray new: (((biWidth * 3 + 3) // 4) * 4). 1 to: biHeight do:[:i | self store24BitBmpLine: pixline from: data startingAt: (biHeight-i)*biWidth+1 width: biWidth. stream nextPutAll: pixline. ]. ]. stream position = (bfOffBits + biSizeImage) ifFalse: [self error:'Write failure']. stream close.! Item was changed: ----- Method: BitBlt class>>benchmark (in category 'benchmarks') ----- benchmark "BitBlt benchmark" "Run a benchmark on different combinations rules, source/destination depths and BitBlt modes. Note: This benchmark doesn't give you any 'absolute' value - it is intended only for benchmarking improvements in the bitblt code and nothing else. Attention: *this*may*take*a*while*" | destRect log | log := WriteStream on: String new. destRect := 0@0 extent: 600@600. "Form paint/Form over - the most common rules" + #( 25 3 ) do:[:rule| - #[25 3] do:[:rule| Transcript cr; show:'---- Combination rule: ', rule printString,' ----'. log cr; nextPutAll:'---- Combination rule: ', rule printString,' ----'. + #(1 2 4 8 16 32) do:[:destDepth| | dest | - #[1 2 4 8 16 32] do:[:destDepth| | dest | dest := nil. dest := Form extent: destRect extent depth: destDepth. Transcript cr. log cr. + #(1 2 4 8 16 32) do:[:sourceDepth| | t source bb | - #[1 2 4 8 16 32] do:[:sourceDepth| | t source bb | Transcript cr; show: sourceDepth printString, ' => ', destDepth printString. log cr; nextPutAll: sourceDepth printString, ' => ', destDepth printString. source := nil. bb := nil. source := Form extent: destRect extent depth: sourceDepth. (source getCanvas) fillOval: dest boundingBox color: Color yellow borderWidth: 30 borderColor: Color black. bb := WarpBlt toForm: dest. bb sourceForm: source. bb sourceRect: source boundingBox. bb destRect: dest boundingBox. bb colorMap: (source colormapIfNeededFor: dest). bb combinationRule: rule. "Measure speed of copyBits" t := Time millisecondsToRun:[bb copyBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. bb sourceForm: source destRect: source boundingBox. "Measure speed of 1x1 warpBits" bb cellSize: 1. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 2x2 warpBits" bb cellSize: 2. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 3x3 warpBits" bb cellSize: 3. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. ]. ]. ]. ^log contents! Item was changed: ----- Method: BitBlt class>>benchmark2 (in category 'benchmarks') ----- benchmark2 "BitBlt benchmark" "Run a benchmark on different combinations rules, source/destination depths and BitBlt modes. Note: This benchmark doesn't give you any 'absolute' value - it is intended only for benchmarking improvements in the bitblt code and nothing else. Attention: *this*may*take*a*while*" | destRect log | log := WriteStream on: String new. destRect := 0@0 extent: 600@600. "Form paint/Form over - the most common rules" + #( 25 3 ) do:[:rule| - #[25 3] do:[:rule| Transcript cr; show:'---- Combination rule: ', rule printString,' ----'. log cr; nextPutAll:'---- Combination rule: ', rule printString,' ----'. + #(1 2 4 8 16 32) do:[:destDepth| | dest | - #[1 2 4 8 16 32] do:[:destDepth| | dest | dest := nil. dest := Form extent: destRect extent depth: destDepth. Transcript cr. log cr. + #(1 2 4 8 16 32) do:[:sourceDepth| | t bb source | - #[1 2 4 8 16 32] do:[:sourceDepth| | t bb source | Transcript cr; show: sourceDepth printString, ' => ', destDepth printString. log cr; nextPutAll: sourceDepth printString, ' => ', destDepth printString. source := nil. bb := nil. source := Form extent: destRect extent depth: sourceDepth. (source getCanvas) fillOval: dest boundingBox color: Color yellow borderWidth: 30 borderColor: Color black. bb := WarpBlt toForm: dest. bb sourceForm: source. bb sourceRect: source boundingBox. bb destRect: dest boundingBox. bb colorMap: (source colormapIfNeededFor: dest). bb combinationRule: rule. "Measure speed of copyBits" t := Time millisecondsToRun:[1 to: 10 do:[:i| bb copyBits]]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. bb sourceForm: source destRect: source boundingBox. "Measure speed of 1x1 warpBits" bb cellSize: 1. t := Time millisecondsToRun:[1 to: 4 do:[:i| bb warpBits]]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 2x2 warpBits" bb cellSize: 2. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 3x3 warpBits" bb cellSize: 3. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. ]. ]. ]. ^log contents! Item was changed: ----- Method: BitBlt class>>benchmark3 (in category 'benchmarks') ----- benchmark3 "BitBlt benchmark" "Run a benchmark on different combinations rules, source/destination depths and BitBlt modes. Note: This benchmark doesn't give you any 'absolute' value - it is intended only for benchmarking improvements in the bitblt code and nothing else. Attention: *this*may*take*a*while*" | destRect log | log := WriteStream on: String new. destRect := 0@0 extent: 600@600. "Form paint/Form over - the most common rules" + #( 25 3 ) do:[:rule| - #[25 3] do:[:rule| Transcript cr; show:'---- Combination rule: ', rule printString,' ----'. log cr; nextPutAll:'---- Combination rule: ', rule printString,' ----'. + #(1 2 4 8 16 32) do:[:destDepth| | dest | - #[1 2 4 8 16 32] do:[:destDepth| | dest | dest := nil. dest := Form extent: destRect extent depth: destDepth. Transcript cr. log cr. + #(1 2 4 8 16 32) do:[:sourceDepth| | t source bb | - #[1 2 4 8 16 32] do:[:sourceDepth| | t source bb | Transcript cr; show: sourceDepth printString, ' => ', destDepth printString. log cr; nextPutAll: sourceDepth printString, ' => ', destDepth printString. source := nil. bb := nil. source := Form extent: destRect extent depth: sourceDepth. (source getCanvas) fillOval: dest boundingBox color: Color yellow borderWidth: 30 borderColor: Color black. bb := WarpBlt toForm: dest. bb sourceForm: source. bb sourceRect: source boundingBox. bb destRect: dest boundingBox. bb colorMap: (source colormapIfNeededFor: dest). bb combinationRule: rule. "Measure speed of copyBits" t := Time millisecondsToRun:[1 to: 10 do:[:i| bb copyBits]]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. bb sourceForm: source destRect: source boundingBox. "Measure speed of 1x1 warpBits" bb cellSize: 1. t := Time millisecondsToRun:[1 to: 4 do:[:i| bb warpBits]]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 2x2 warpBits" bb cellSize: 2. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 3x3 warpBits" bb cellSize: 3. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. ]. ]. ]. ^log contents! Item was changed: ----- Method: GIFReadWriter>>writeHeader (in category 'private-encoding') ----- writeHeader | byte | stream position = 0 ifTrue: [ "For first image only" + self + nextPutAll: #[71 73 70 56 57 97]; "'GIF89a' asByteArray" + writeWord: width; "Screen Width" + writeWord: height. "Screen Height" - self nextPutAll: 'GIF89a' asByteArray. - self writeWord: width. "Screen Width" - self writeWord: height. "Screen Height" byte := 16r80. "has color map" byte := byte bitOr: ((bitsPerPixel - 1) bitShift: 5). "color resolution" byte := byte bitOr: bitsPerPixel - 1. "bits per pixel" + self + nextPut: byte; + nextPut: 0; "background color." + nextPut: 0. "reserved" - self nextPut: byte. - self nextPut: 0. "background color." - self nextPut: 0. "reserved" colorPalette do: [:pixelValue | self nextPut: ((pixelValue bitShift: -16) bitAnd: 255); nextPut: ((pixelValue bitShift: -8) bitAnd: 255); nextPut: (pixelValue bitAnd: 255)]. + loopCount ifNotNil: [ - loopCount notNil ifTrue: [ "Write a Netscape loop chunk" + self + nextPut: Extension; + nextPutAll: #[255 11 78 69 84 83 67 65 80 69 50 46 48 3 1]; + writeWord: loopCount; + nextPut: 0]]. - self nextPut: Extension. - self nextPutAll: #[255 11 78 69 84 83 67 65 80 69 50 46 48 3 1]. - self writeWord: loopCount. - self nextPut: 0]]. + (delay notNil and: [ transparentIndex notNil ]) ifTrue: [ - delay notNil | transparentIndex notNil ifTrue: [ self nextPut: Extension; + nextPutAll: #[16rF9 4]; + nextPut: (transparentIndex ifNil: [0] ifNotNil: [9]); + writeWord: (delay ifNil: [0] ifNotNil: [delay]); + nextPut: (transparentIndex ifNil: [0] ifNotNil: [transparentIndex]); - nextPutAll: #(16rF9 4) asByteArray; - nextPut: (transparentIndex isNil ifTrue: [0] ifFalse: [9]); - writeWord: (delay isNil ifTrue: [0] ifFalse: [delay]); - nextPut: (transparentIndex isNil ifTrue: [0] ifFalse: [transparentIndex]); nextPut: 0]. + self + nextPut: ImageSeparator; + writeWord: 0; "Image Left" + writeWord: 0; "Image Top" + writeWord: width; "Image Width" + writeWord: height. "Image Height" - self nextPut: ImageSeparator. - self writeWord: 0. "Image Left" - self writeWord: 0. "Image Top" - self writeWord: width. "Image Width" - self writeWord: height. "Image Height" byte := interlace ifTrue: [16r40] ifFalse: [0]. self nextPut: byte. !

1 0

The Trunk: WebClient-Core-ul.113.mcz
by commits＠source.squeak.org 05 Feb '18

05 Feb '18

Levente Uzonyi uploaded a new version of WebClient-Core to project The Trunk: http://source.squeak.org/trunk/WebClient-Core-ul.113.mcz ==================== Summary ==================== Name: WebClient-Core-ul.113 Author: ul Time: 5 February 2018, 11:43:25.863479 pm UUID: 10da8ea8-848d-4d99-92e0-105d99a25dda Ancestors: WebClient-Core-topa.112 - fix: #md5HashStream: will properly process an empty stream - simplified #hmacSha1:key: =============== Diff against WebClient-Core-topa.112 =============== Item was changed: ----- Method: WebUtils class>>hmacSha1:key: (in category 'oauth') ----- hmacSha1: message key: signKey "Compute the SHA1 HMAC for the given message" + | blockSize key | - | blockSize key ipad opad | blockSize := 64. "SHA1 block size" key := signKey asByteArray. key size > blockSize ifTrue:[key := self sha1Hash: key]. + key size < blockSize ifTrue:[key := key grownBy: blockSize - key size ]. - key size < blockSize ifTrue:[key := key, (ByteArray new: blockSize - key size)]. - ipad := ByteArray new: blockSize withAll: 16r36. - opad := ByteArray new: blockSize withAll: 16r5c. ^self sha1Hash: + (key collect: [ :byte | byte bitXor: 16r5c "opad byte" ]), + (self sha1Hash: (key collect: [ :byte | byte bitXor: 16r36 "ipad byte" ]), message)! - (key with: opad collect:[:b1 :b2| b1 bitXor: b2]), - (self sha1Hash: (key with: ipad collect:[:b1 :b2| b1 bitXor: b2]), message)! Item was changed: ----- Method: WebUtils class>>md5HashStream: (in category 'md5') ----- md5HashStream: aStream "self md5HashStream: (ReadStream on: 'foo')" + | start buffer chunkSize n words hash | - | start buffer bytes sz n words hash | hash := WordArray with: 16r67452301 with: 16rEFCDAB89 with: 16r98BADCFE with: 16r10325476. words := WordArray new: 16. buffer := ByteArray new: 64. start := aStream position. + [ + chunkSize := (aStream nextInto: buffer) size. + chunkSize < 64 or: [ aStream atEnd ] ] + whileFalse: [ + 1 to: 16 do:[:i| words at: i put: (buffer unsignedLongAt: i*4-3 bigEndian: false)]. + self md5Transform: words hash: hash ]. + buffer from: chunkSize +1 to: buffer size put: 0. + chunkSize < 56 ifTrue: [ + buffer at: chunkSize + 1 put: 128. "trailing bit" + ] ifFalse:[ + "not enough room for the length, so just pad this one, then..." + chunkSize < 64 ifTrue:[buffer at: chunkSize + 1 put: 128]. - [aStream atEnd] whileFalse: [ - bytes := aStream nextInto: buffer. - (bytes size < 64 or:[aStream atEnd]) ifTrue:[ - sz := bytes size. - buffer replaceFrom: 1 to: sz with: bytes startingAt: 1. - buffer from: sz+1 to: buffer size put: 0. - sz < 56 ifTrue:[ - buffer at: sz + 1 put: 128. "trailing bit" - ] ifFalse:[ - "not enough room for the length, so just pad this one, then..." - sz < 64 ifTrue:[buffer at: sz + 1 put: 128]. - 1 to: 16 do:[:i| words at: i put: (buffer unsignedLongAt: i*4-3 bigEndian: false)]. - self md5Transform: words hash: hash. - "process one additional block of padding ending with the length" - buffer atAllPut: 0. - sz = 64 ifTrue: [buffer at: 1 put: 128]. - ]. - "Fill in the final 8 bytes with the 64-bit length in bits." - n := (aStream position - start) * 8. - 7 to: 0 by: -1 do:[:i| buffer at: (buffer size - i) put: ((n bitShift: 7 - i * -8) bitAnd: 255)]. - ]. 1 to: 16 do:[:i| words at: i put: (buffer unsignedLongAt: i*4-3 bigEndian: false)]. self md5Transform: words hash: hash. + "process one additional block of padding ending with the length" + buffer atAllPut: 0. + chunkSize = 64 ifTrue: [buffer at: 1 put: 128]. ]. + "Fill in the final 8 bytes with the 64-bit length in bits." + n := (aStream position - start) * 8. + 7 to: 0 by: -1 do:[:i| buffer at: (buffer size - i) put: ((n bitShift: 7 - i * -8) bitAnd: 255)]. + "Final round" + 1 to: 16 do:[:i| words at: i put: (buffer unsignedLongAt: i*4-3 bigEndian: false)]. + self md5Transform: words hash: hash. + + ^(ByteArray new: 16) + unsignedLongAt: 1 put: (hash at: 4) bigEndian: true; + unsignedLongAt: 5 put: (hash at: 3) bigEndian: true; + unsignedLongAt: 9 put: (hash at: 2) bigEndian: true; + unsignedLongAt: 13 put: (hash at: 1) bigEndian: true; + yourself! - bytes := ByteArray new: 16. - bytes unsignedLongAt: 1 put: (hash at: 4) bigEndian: true. - bytes unsignedLongAt: 5 put: (hash at: 3) bigEndian: true. - bytes unsignedLongAt: 9 put: (hash at: 2) bigEndian: true. - bytes unsignedLongAt: 13 put: (hash at: 1) bigEndian: true. - ^bytes - !

1 0

The Trunk: WebClient-Tests-ul.54.mcz
by commits＠source.squeak.org 05 Feb '18

05 Feb '18

Levente Uzonyi uploaded a new version of WebClient-Tests to project The Trunk: http://source.squeak.org/trunk/WebClient-Tests-ul.54.mcz ==================== Summary ==================== Name: WebClient-Tests-ul.54 Author: ul Time: 5 February 2018, 11:38:52.347433 pm UUID: 315f0060-94ed-44aa-b06a-804b499339a3 Ancestors: WebClient-Tests-topa.53 - added tests for md5 =============== Diff against WebClient-Tests-topa.53 =============== Item was added: + ----- Method: WebClientServerTest>>testMD5Digest (in category 'tests - misc') ----- + testMD5Digest + + #( + 'The quick brown fox jumps over the lazy dog' '9e107d9d372bb6826bd81d3542a419d6' + 'The quick brown fox jumps over the lazy dog.' 'e4d909c290d0fb1ca068ffaddf22cbd0' + '' 'd41d8cd98f00b204e9800998ecf8427e' + ) pairsDo: [ :string :expectedHash | + self assert: expectedHash equals: (WebUtils md5Digest: string) ]!

1 0

The Trunk: Network-ul.218.mcz
by commits＠source.squeak.org 05 Feb '18

05 Feb '18

Levente Uzonyi uploaded a new version of Network to project The Trunk: http://source.squeak.org/trunk/Network-ul.218.mcz ==================== Summary ==================== Name: Network-ul.218 Author: ul Time: 5 February 2018, 9:19:11.648759 pm UUID: 926b8c34-1b27-4979-bef7-4b9533613743 Ancestors: Network-tpr.217 - after upgrading to TLS, the session has to be reinitiated in SMTPClient - use #base64Encoded in Authorizer>>encode:password: =============== Diff against Network-tpr.217 =============== Item was changed: ----- Method: Authorizer>>encode:password: (in category 'authentication') ----- encode: nameString password: pwdString "Encode per RFC1421 of the username:password combination." + ^(nameString, ':', pwdString) base64Encoded! - | clear code clearSize idx map | - clear := (nameString, ':', pwdString) asByteArray. - clearSize := clear size. - [ clear size \\ 3 ~= 0 ] whileTrue: [ clear := clear, #(0) ]. - idx := 1. - map := 'ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/'. - code := WriteStream on: ''. - [ idx < clear size ] whileTrue: [ code - nextPut: (map at: (clear at: idx) // 4 + 1); - nextPut: (map at: (clear at: idx) \\ 4 * 16 + ((clear at: idx + 1) // 16) + 1); - nextPut: (map at: (clear at: idx + 1) \\ 16 * 4 + ((clear at: idx + 2) // 64) + 1); - nextPut: (map at: (clear at: idx + 2) \\ 64 + 1). - idx := idx + 3 ]. - code := code contents. - idx := code size. - clear size - clearSize timesRepeat: [ code at: idx put: $=. idx := idx - 1]. - ^code! Item was changed: ----- Method: SMTPClient>>initiateSession (in category 'private protocol') ----- initiateSession "EHLO <SP> <domain> <CRLF>" self sendCommand: (self useHelo ifTrue:['HELO '] ifFalse: ['EHLO ']) , self localHostName. self checkResponse. self parseCapabilities: (self lastResponse lines allButFirst collect: [:l | self valueOfResponseLine: l]). (self tlsIsActive not and: [self serverSupportsStarttls] and: [self wantsStarttls]) + ifTrue: [ + self starttls. + self responseIsSuccess ifTrue: [ + self initiateSession ] ]! - ifTrue: [self starttls]!

1 0

The Trunk: Nebraska-ul.52.mcz
by commits＠source.squeak.org 05 Feb '18

05 Feb '18

Levente Uzonyi uploaded a new version of Nebraska to project The Trunk: http://source.squeak.org/trunk/Nebraska-ul.52.mcz ==================== Summary ==================== Name: Nebraska-ul.52 Author: ul Time: 22 January 2018, 12:52:51.341224 am UUID: e116559d-9415-4aa7-95a3-3b2cdf0e375f Ancestors: Nebraska-dtl.51 - removed #fixTemps sends =============== Diff against Nebraska-dtl.51 =============== Item was changed: ----- Method: NebraskaIncomingMessage class>>handleNewMorphFrom:sentBy:ipAddress: (in category 'handlers') ----- handleNewMorphFrom: dataStream sentBy: senderName ipAddress: ipAddressString | newObject thumbForm targetWorld | newObject := self newObjectFromStream: dataStream. NebraskaCommunicatorMorph playArrivalSound. targetWorld := self currentWorld. (NebraskaMorphsWelcomeMorph morphsWelcomeInWorld: targetWorld) ifTrue: [ newObject position: ( newObject valueOfProperty: #positionInOriginatingWorld ifAbsent: [(targetWorld randomBoundsFor: newObject) topLeft] ). WorldState addDeferredUIMessage: [ newObject openInWorld: targetWorld. + ]. - ] fixTemps. ^self ]. thumbForm := newObject imageForm scaledToSize: 50@50. Smalltalk at: #SugarListenerMorph ifPresent: [:c | c addToGlobalIncomingQueue: { thumbForm. newObject. senderName. ipAddressString }. WorldState addDeferredUIMessage: [ c ensureListenerInCurrentWorld ]. ].! Item was changed: ----- Method: NebraskaSenderMorph>>startNebraskaClient (in category 'as yet unclassified') ----- startNebraskaClient | newMorph | [ [ newMorph := NetworkTerminalMorph connectTo: (self ipAddress copyUpTo: $:). "FIXME: get real port of Nebraska Server" + WorldState addDeferredUIMessage: [newMorph openInStyle: #scaled]. - WorldState addDeferredUIMessage: [newMorph openInStyle: #scaled] fixTemps. ] on: Error do: [ :ex | WorldState addDeferredUIMessage: [ self inform: 'No connection to: ' translated. self ipAddress,' (',ex printString,')' + ] - ] fixTemps ]. ] fork !

1 0

The Trunk: Morphic-ul.1393.mcz
by commits＠source.squeak.org 05 Feb '18

05 Feb '18

Levente Uzonyi uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-ul.1393.mcz ==================== Summary ==================== Name: Morphic-ul.1393 Author: ul Time: 5 February 2018, 9:11:37.44438 pm UUID: a9608a85-3f47-45e1-9316-fabd23e326d1 Ancestors: Morphic-tpr.1392 - avoid multiple #halo sends in some methods sending #halo to Morphs - minor improvement to Morph>>updateDropShadowCache's performance - removed a sender of #fixTemps - use ByteArray literals instead of Arrays =============== Diff against Morphic-tpr.1392 =============== Item was changed: ----- Method: BalloonMorph class>>getVertices: (in category 'private') ----- getVertices: bounds "Construct vertices for a balloon up and to left of anchor" | corners | + corners := bounds corners atAll: #[1 4 3 2]. - corners := bounds corners atAll: #(1 4 3 2). ^ (Array with: corners first + (0 - bounds width // 2 @ 0) with: corners first + (0 - bounds width // 4 @ (bounds height // 2))) , corners! Item was changed: ----- Method: HandMorph>>halo: (in category 'halo handling') ----- halo: newHalo "Set halo associated with this hand" + | oldHalo | + (oldHalo := self halo) == newHalo ifTrue: [ ^self ]. + oldHalo ifNotNil: [ oldHalo delete ]. - oldHalo := self halo. - (oldHalo isNil or:[oldHalo == newHalo]) ifFalse:[oldHalo delete]. newHalo ifNil:[self removeProperty: #halo] ifNotNil:[self setProperty: #halo toValue: newHalo]! Item was changed: ----- Method: HandMorph>>removeHalo (in category 'halo handling') ----- removeHalo "remove the receiver's halo (if any)" + + self halo ifNotNil: [ :halo | + halo delete. + self removeProperty: #halo ]! - | halo | - halo := self halo. - halo - ifNil: [^ self]. - halo delete. - self removeProperty: #halo! Item was changed: ----- Method: HandMorph>>selectedObject (in category 'selected object') ----- selectedObject "answer the selected object for the hand or nil is none" + + ^self halo ifNotNil: [ :halo | halo target renderedMorph ]! - | halo | - halo := self halo. - halo isNil - ifTrue: [^ nil]. - ^ halo target renderedMorph! Item was changed: ----- Method: HandMorph>>spawnMagicHaloFor: (in category 'halo handling') ----- spawnMagicHaloFor: aMorph + + self halo ifNotNil: [ :halo | + halo target == aMorph ifTrue:[ ^self ] ]. - (self halo notNil and:[self halo target == aMorph]) ifTrue:[^self]. aMorph addMagicHaloFor: self.! Item was changed: ----- Method: Morph>>removeHalo (in category 'halos and balloon help') ----- removeHalo "remove the surrounding halo (if any)" + + self halo ifNotNil: [ self primaryHand removeHalo ]! - self halo isNil - ifFalse: [self primaryHand removeHalo]! Item was changed: ----- Method: Morph>>updateDropShadowCache (in category 'drawing') ----- updateDropShadowCache + | shadowOffset shadowBounds offset form canvas drawBlock localBounds mask maskCanvas | + (shadowOffset := self shadowOffset) isRectangle + ifTrue: [ + shadowBounds := 0@0 corner: (self bounds outsetBy: shadowOffset) extent. + offset := 0@0. + localBounds := shadowOffset topLeft extent: self extent ] + ifFalse: [ + | extent | + extent := self extent. + shadowBounds := 0@0 corner: extent + shadowOffset abs. + offset := shadowOffset max: 0@0. + localBounds := (shadowOffset negated max: 0@0) extent: extent ]. - | shadowBounds offset form canvas drawBlock localBounds mask maskCanvas | - shadowBounds := self shadowOffset isRectangle - ifTrue: [0@0 corner: (self bounds outsetBy: self shadowOffset) extent] - ifFalse: [0@0 corner: self extent + self shadowOffset abs]. - offset := self shadowOffset isRectangle - ifTrue: [0@0] - ifFalse: [self shadowOffset max: 0@0]. - localBounds := self shadowOffset isRectangle - ifTrue: [self shadowOffset topLeft extent: self extent] - ifFalse: [(self shadowOffset negated max: 0@0) extent: self extent]. form := Form extent: shadowBounds extent depth: Display depth. canvas := form getCanvas. drawBlock := self useSoftDropShadow ifFalse: [ [:c | self wantsRoundedCorners ifTrue: [c fillRoundRect: localBounds radius: self cornerRadius fillStyle: self shadowColor] ifFalse: [c fillRectangle: localBounds fillStyle: self shadowColor]]] ifTrue: [ [:c | self wantsRoundedCorners ifTrue: [0 to: 9 do: [:i | c fillRoundRect: (shadowBounds insetBy: i) radius: (self cornerRadius max: 20) -i fillStyle: (self shadowColor alpha: self shadowColor alpha * (i+1))]] ifFalse: [0 to: 9 do: [:i | c fillRoundRect: (shadowBounds insetBy: i) radius: 20-i fillStyle: (self shadowColor alpha: self shadowColor alpha * (i+1))]]]]. canvas translateBy: offset during: [ :shadowCanvas | drawBlock value: shadowCanvas]. "Support transparent morph colors without having the shadow to shine through.." mask := Form extent: shadowBounds extent depth: Display depth. maskCanvas := mask getCanvas. self wantsRoundedCorners ifTrue: [maskCanvas fillRoundRect: (localBounds insetBy: self borderWidth) radius: self cornerRadius fillStyle: Color black] ifFalse: [maskCanvas fillRectangle: (localBounds insetBy: self borderWidth) fillStyle: Color black]. mask displayOn: form at: 0@0 rule: Form erase. self setProperty: #dropShadow toValue: form.! Item was changed: ----- Method: SelectionMorph>>justDroppedInto:event: (in category 'dropping/grabbing') ----- justDroppedInto: newOwner event: evt "This message is sent to a dropped morph after it has been dropped on -- and been accepted by -- a drop-sensitive morph" selectedItems isEmpty ifTrue: ["Hand just clicked down to draw out a new selection" ^ self extendByHand: evt hand]. dupLoc ifNotNil: [dupDelta := self position - dupLoc]. selectedItems reverseDo: [:m | WorldState addDeferredUIMessage: [m referencePosition: (newOwner localPointToGlobal: m referencePosition). newOwner handleDropMorph: + (DropEvent new setPosition: evt cursorPoint contents: m hand: evt hand)]]. - (DropEvent new setPosition: evt cursorPoint contents: m hand: evt hand)] fixTemps]. selectedItems := nil. self removeHalo. + self halo ifNotNil: [ :halo | halo visible: false ]. - self halo ifNotNil: [self halo visible: false]. self delete. evt wasHandled: true!

1 0

The Trunk: GraphicsTests-ul.46.mcz
by commits＠source.squeak.org 05 Feb '18

05 Feb '18

Levente Uzonyi uploaded a new version of GraphicsTests to project The Trunk: http://source.squeak.org/trunk/GraphicsTests-ul.46.mcz ==================== Summary ==================== Name: GraphicsTests-ul.46 Author: ul Time: 22 January 2018, 12:28:47.553681 am UUID: baf0a864-6d1d-46ed-b0a8-ba22893e8e26 Ancestors: GraphicsTests-dtl.45 - use ByteArray literals instead of Arrays =============== Diff against GraphicsTests-dtl.45 =============== Item was changed: ----- Method: BitBltTest>>testPivelValueAt (in category 'bugs') ----- testPivelValueAt "tests for the pixel peeking extension to bitBlt" " self run: #testPixelValueAt" |formList pixels | "make a Form of each depth" + formList := #[1 2 4 8 16 32] collect:[:d| Form extent: 17@7 depth: d] as: Array. - formList := #(1 2 4 8 16 32) collect:[:d| Form extent: 17@7 depth: d]. pixels := Dictionary new. pixels at: 1 put: 1; at: 2 put: 3; at:4 put: 7; at: 8 put: 16rFF; at: 16 put: 16rFFFF ; at: 32 put: 16rFFFFFFFF. "poke pixels to topleft (to test handling 0) bottomright (to test limits) middle (just because) peek at each location (to make sure it matches expectations)" formList do:[:f| |d pixval| d := f depth. pixval := pixels at: d. f pixelValueAt: 0@0 put: pixval. f pixelValueAt: 16@6 put: pixval. f pixelValueAt: 7@3 put: pixval. self assert: (f pixelValueAt: 0@0) = pixval. self assert: (f pixelValueAt: 1@0) = 0. self assert: (f pixelValueAt: 16@6) = pixval. self assert:(f pixelValueAt: 15@6) = 0. self assert: (f pixelValueAt: 7@3) = pixval. self assert: (f pixelValueAt: 6@3) = 0. ]!

1 0

The Trunk: Graphics-ul.392.mcz
by commits＠source.squeak.org 05 Feb '18

05 Feb '18

Levente Uzonyi uploaded a new version of Graphics to project The Trunk: http://source.squeak.org/trunk/Graphics-ul.392.mcz ==================== Summary ==================== Name: Graphics-ul.392 Author: ul Time: 22 January 2018, 12:28:13.814623 am UUID: 8fbfdf92-ed6c-4460-b74b-fc649d42fe83 Ancestors: Graphics-tpr.391 - use ByteArray literals instead of Arrays =============== Diff against Graphics-tpr.391 =============== Item was changed: ----- Method: BMPReadWriter>>nextPutImage: (in category 'writing') ----- nextPutImage: aForm | bhSize rowBytes rgb data colorValues depth image ppw scanLineLen pixline | depth := aForm depth. + depth := #[1 4 8 32] detect: [ :each | each >= depth]. - depth := #(1 4 8 32 ) detect: [ :each | each >= depth]. image := aForm asFormOfDepth: depth. image unhibernate. bhSize := 14. "# bytes in file header" biSize := 40. "info header size in bytes" biWidth := image width. biHeight := image height. biClrUsed := depth = 32 ifTrue: [0] ifFalse:[1 << depth]. "No. color table entries" bfOffBits := biSize + bhSize + (4*biClrUsed). rowBytes := ((depth min: 24) * biWidth + 31 // 32) * 4. biSizeImage := biHeight * rowBytes. "Write the file header" stream position: 0. stream nextLittleEndianNumber: 2 put: 19778. "bfType = BM" stream nextLittleEndianNumber: 4 put: bfOffBits + biSizeImage. "Entire file size in bytes" stream nextLittleEndianNumber: 4 put: 0. "bfReserved" stream nextLittleEndianNumber: 4 put: bfOffBits. "Offset of bitmap data from start of hdr (and file)" "Write the bitmap info header" stream position: bhSize. stream nextLittleEndianNumber: 4 put: biSize. "info header size in bytes" stream nextLittleEndianNumber: 4 put: image width. "biWidth" stream nextLittleEndianNumber: 4 put: image height. "biHeight" stream nextLittleEndianNumber: 2 put: 1. "biPlanes" stream nextLittleEndianNumber: 2 put: (depth min: 24). "biBitCount" stream nextLittleEndianNumber: 4 put: 0. "biCompression" stream nextLittleEndianNumber: 4 put: biSizeImage. "size of image section in bytes" stream nextLittleEndianNumber: 4 put: 2800. "biXPelsPerMeter" stream nextLittleEndianNumber: 4 put: 2800. "biYPelsPerMeter" stream nextLittleEndianNumber: 4 put: biClrUsed. stream nextLittleEndianNumber: 4 put: 0. "biClrImportant" biClrUsed > 0 ifTrue: [ "write color map; this works for ColorForms, too" colorValues := image colormapIfNeededForDepth: 32. 1 to: biClrUsed do: [:i | rgb := colorValues at: i. 0 to: 24 by: 8 do: [:j | stream nextPut: (rgb >> j bitAnd: 16rFF)]]]. depth < 32 ifTrue: [ "depth = 1, 4 or 8." data := image bits asByteArray. ppw := 32 // depth. scanLineLen := biWidth + ppw - 1 // ppw * 4. "# of bytes in line" 1 to: biHeight do: [:i | stream next: scanLineLen putAll: data startingAt: (biHeight-i)*scanLineLen+1. ]. ] ifFalse: [ data := image bits. pixline := ByteArray new: (((biWidth * 3 + 3) // 4) * 4). 1 to: biHeight do:[:i | self store24BitBmpLine: pixline from: data startingAt: (biHeight-i)*biWidth+1 width: biWidth. stream nextPutAll: pixline. ]. ]. stream position = (bfOffBits + biSizeImage) ifFalse: [self error:'Write failure']. stream close.! Item was changed: ----- Method: BitBlt class>>benchmark (in category 'benchmarks') ----- benchmark "BitBlt benchmark" "Run a benchmark on different combinations rules, source/destination depths and BitBlt modes. Note: This benchmark doesn't give you any 'absolute' value - it is intended only for benchmarking improvements in the bitblt code and nothing else. Attention: *this*may*take*a*while*" | destRect log | log := WriteStream on: String new. destRect := 0@0 extent: 600@600. "Form paint/Form over - the most common rules" + #[25 3] do:[:rule| - #( 25 3 ) do:[:rule| Transcript cr; show:'---- Combination rule: ', rule printString,' ----'. log cr; nextPutAll:'---- Combination rule: ', rule printString,' ----'. + #[1 2 4 8 16 32] do:[:destDepth| | dest | - #(1 2 4 8 16 32) do:[:destDepth| | dest | dest := nil. dest := Form extent: destRect extent depth: destDepth. Transcript cr. log cr. + #[1 2 4 8 16 32] do:[:sourceDepth| | t source bb | - #(1 2 4 8 16 32) do:[:sourceDepth| | t source bb | Transcript cr; show: sourceDepth printString, ' => ', destDepth printString. log cr; nextPutAll: sourceDepth printString, ' => ', destDepth printString. source := nil. bb := nil. source := Form extent: destRect extent depth: sourceDepth. (source getCanvas) fillOval: dest boundingBox color: Color yellow borderWidth: 30 borderColor: Color black. bb := WarpBlt toForm: dest. bb sourceForm: source. bb sourceRect: source boundingBox. bb destRect: dest boundingBox. bb colorMap: (source colormapIfNeededFor: dest). bb combinationRule: rule. "Measure speed of copyBits" t := Time millisecondsToRun:[bb copyBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. bb sourceForm: source destRect: source boundingBox. "Measure speed of 1x1 warpBits" bb cellSize: 1. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 2x2 warpBits" bb cellSize: 2. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 3x3 warpBits" bb cellSize: 3. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. ]. ]. ]. ^log contents! Item was changed: ----- Method: BitBlt class>>benchmark2 (in category 'benchmarks') ----- benchmark2 "BitBlt benchmark" "Run a benchmark on different combinations rules, source/destination depths and BitBlt modes. Note: This benchmark doesn't give you any 'absolute' value - it is intended only for benchmarking improvements in the bitblt code and nothing else. Attention: *this*may*take*a*while*" | destRect log | log := WriteStream on: String new. destRect := 0@0 extent: 600@600. "Form paint/Form over - the most common rules" + #[25 3] do:[:rule| - #( 25 3 ) do:[:rule| Transcript cr; show:'---- Combination rule: ', rule printString,' ----'. log cr; nextPutAll:'---- Combination rule: ', rule printString,' ----'. + #[1 2 4 8 16 32] do:[:destDepth| | dest | - #(1 2 4 8 16 32) do:[:destDepth| | dest | dest := nil. dest := Form extent: destRect extent depth: destDepth. Transcript cr. log cr. + #[1 2 4 8 16 32] do:[:sourceDepth| | t bb source | - #(1 2 4 8 16 32) do:[:sourceDepth| | t bb source | Transcript cr; show: sourceDepth printString, ' => ', destDepth printString. log cr; nextPutAll: sourceDepth printString, ' => ', destDepth printString. source := nil. bb := nil. source := Form extent: destRect extent depth: sourceDepth. (source getCanvas) fillOval: dest boundingBox color: Color yellow borderWidth: 30 borderColor: Color black. bb := WarpBlt toForm: dest. bb sourceForm: source. bb sourceRect: source boundingBox. bb destRect: dest boundingBox. bb colorMap: (source colormapIfNeededFor: dest). bb combinationRule: rule. "Measure speed of copyBits" t := Time millisecondsToRun:[1 to: 10 do:[:i| bb copyBits]]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. bb sourceForm: source destRect: source boundingBox. "Measure speed of 1x1 warpBits" bb cellSize: 1. t := Time millisecondsToRun:[1 to: 4 do:[:i| bb warpBits]]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 2x2 warpBits" bb cellSize: 2. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 3x3 warpBits" bb cellSize: 3. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. ]. ]. ]. ^log contents! Item was changed: ----- Method: BitBlt class>>benchmark3 (in category 'benchmarks') ----- benchmark3 "BitBlt benchmark" "Run a benchmark on different combinations rules, source/destination depths and BitBlt modes. Note: This benchmark doesn't give you any 'absolute' value - it is intended only for benchmarking improvements in the bitblt code and nothing else. Attention: *this*may*take*a*while*" | destRect log | log := WriteStream on: String new. destRect := 0@0 extent: 600@600. "Form paint/Form over - the most common rules" + #[25 3] do:[:rule| - #( 25 3 ) do:[:rule| Transcript cr; show:'---- Combination rule: ', rule printString,' ----'. log cr; nextPutAll:'---- Combination rule: ', rule printString,' ----'. + #[1 2 4 8 16 32] do:[:destDepth| | dest | - #(1 2 4 8 16 32) do:[:destDepth| | dest | dest := nil. dest := Form extent: destRect extent depth: destDepth. Transcript cr. log cr. + #[1 2 4 8 16 32] do:[:sourceDepth| | t source bb | - #(1 2 4 8 16 32) do:[:sourceDepth| | t source bb | Transcript cr; show: sourceDepth printString, ' => ', destDepth printString. log cr; nextPutAll: sourceDepth printString, ' => ', destDepth printString. source := nil. bb := nil. source := Form extent: destRect extent depth: sourceDepth. (source getCanvas) fillOval: dest boundingBox color: Color yellow borderWidth: 30 borderColor: Color black. bb := WarpBlt toForm: dest. bb sourceForm: source. bb sourceRect: source boundingBox. bb destRect: dest boundingBox. bb colorMap: (source colormapIfNeededFor: dest). bb combinationRule: rule. "Measure speed of copyBits" t := Time millisecondsToRun:[1 to: 10 do:[:i| bb copyBits]]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. bb sourceForm: source destRect: source boundingBox. "Measure speed of 1x1 warpBits" bb cellSize: 1. t := Time millisecondsToRun:[1 to: 4 do:[:i| bb warpBits]]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 2x2 warpBits" bb cellSize: 2. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. "Measure speed of 3x3 warpBits" bb cellSize: 3. t := Time millisecondsToRun:[bb warpBits]. Transcript tab; show: t printString. log tab; nextPutAll: t printString. ]. ]. ]. ^log contents! Item was changed: ----- Method: GIFReadWriter>>writeHeader (in category 'private-encoding') ----- writeHeader | byte | stream position = 0 ifTrue: [ "For first image only" self nextPutAll: 'GIF89a' asByteArray. self writeWord: width. "Screen Width" self writeWord: height. "Screen Height" byte := 16r80. "has color map" byte := byte bitOr: ((bitsPerPixel - 1) bitShift: 5). "color resolution" byte := byte bitOr: bitsPerPixel - 1. "bits per pixel" self nextPut: byte. self nextPut: 0. "background color." self nextPut: 0. "reserved" colorPalette do: [:pixelValue | self nextPut: ((pixelValue bitShift: -16) bitAnd: 255); nextPut: ((pixelValue bitShift: -8) bitAnd: 255); nextPut: (pixelValue bitAnd: 255)]. loopCount notNil ifTrue: [ "Write a Netscape loop chunk" self nextPut: Extension. + self nextPutAll: #[255 11 78 69 84 83 67 65 80 69 50 46 48 3 1]. - self nextPutAll: #(255 11 78 69 84 83 67 65 80 69 50 46 48 3 1) asByteArray. self writeWord: loopCount. self nextPut: 0]]. delay notNil | transparentIndex notNil ifTrue: [ self nextPut: Extension; nextPutAll: #(16rF9 4) asByteArray; nextPut: (transparentIndex isNil ifTrue: [0] ifFalse: [9]); writeWord: (delay isNil ifTrue: [0] ifFalse: [delay]); nextPut: (transparentIndex isNil ifTrue: [0] ifFalse: [transparentIndex]); nextPut: 0]. self nextPut: ImageSeparator. self writeWord: 0. "Image Left" self writeWord: 0. "Image Top" self writeWord: width. "Image Width" self writeWord: height. "Image Height" byte := interlace ifTrue: [16r40] ifFalse: [0]. self nextPut: byte. !

1 0

The Trunk: Collections-ul.782.mcz
by commits＠source.squeak.org 05 Feb '18

05 Feb '18

Levente Uzonyi uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-ul.782.mcz ==================== Summary ==================== Name: Collections-ul.782 Author: ul Time: 5 February 2018, 9:00:26.138464 pm UUID: e2bb4a8b-6a0e-4342-b347-4f2226460a85 Ancestors: Collections-mt.781 - various minor tweaks =============== Diff against Collections-mt.781 =============== Item was changed: ----- Method: Ascii85Converter>>padOfSize: (in category 'private') ----- + padOfSize: anInteger - padOfSize: aNumber + anInteger = 1 ifTrue: [ ^#[0] ]. + anInteger = 2 ifTrue: [ ^#[0 0] ]. + anInteger = 3 ifTrue: [ ^#[0 0 0] ]. + self error: 'Should not reach'! - aNumber = 1 ifTrue: [^ #(0)]. - aNumber = 2 ifTrue: [^ #(0 0)]. - aNumber = 3 ifTrue: [^ #(0 0 0)]. - self error: 'Should not reach'.! Item was changed: ----- Method: ByteString>>asIntegerSigned: (in category 'converting') ----- asIntegerSigned: signed "Return the first decimal integer I can find or nil." | index integerValue result size negative | (size := self size) <= 16 ifFalse: [ ^super asIntegerSigned: signed ]. "Find the first character between $0 and $9." index := 0. + [ + (index := index + 1) <= size ifFalse: [ ^nil "There are no digits in this string." ]. + (integerValue := self basicAt: index) <= 47 "$0 asInteger - 1" + or: [ 58 "$9 asInteger + 1" <= integerValue ] ] whileTrue. + "Check the sign." - [ (index := index + 1) <= size and: [ - (integerValue := (self at: index) asInteger) <= 47 "$0 asInteger - 1" or: [ - 58 "$9 asInteger + 1" <= integerValue ] ] ] whileTrue. - index <= size ifFalse: [ ^nil ]. negative := signed and: [ 2 <= index and: [ (self at: index - 1) == $- ] ]. "Parse the number." result := integerValue - 48 "$0 asInteger". [ (index := index + 1) <= size + and: [ (integerValue := self basicAt: index) <= 57 "$9 asInteger" - and: [ (integerValue := (self at: index) asInteger) <= 57 "$9 asInteger" and: [ 48 "$0 asInteger" <= integerValue ] ] ] whileTrue: [ result := result * 10 + integerValue - 48 ]. negative ifTrue: [ ^result negated ]. ^result! Item was changed: ----- Method: SequenceableCollection>>copyReplaceFrom:to:with: (in category 'copying') ----- copyReplaceFrom: start to: stop with: replacementCollection "Answer a copy of the receiver satisfying the following conditions: If stop is less than start, then this is an insertion; stop should be exactly start-1, start = 1 means insert before the first character, start = size+1 means append after last character. Otherwise, this is a replacement; start and stop have to be within the receiver's bounds." | newSequenceableCollection newSize endReplacement | - newSize := self size - (stop - start + 1) + replacementCollection size. endReplacement := start - 1 + replacementCollection size. + newSize := self size + endReplacement - stop. newSequenceableCollection := self species new: newSize. start > 1 ifTrue:[ newSequenceableCollection replaceFrom: 1 to: start - 1 with: self startingAt: 1]. start <= endReplacement ifTrue:[ newSequenceableCollection replaceFrom: start to: endReplacement with: replacementCollection startingAt: 1]. endReplacement < newSize ifTrue:[ newSequenceableCollection replaceFrom: endReplacement + 1 to: newSize with: self startingAt: stop + 1]. ^newSequenceableCollection! Item was changed: ----- Method: String>>endsWith: (in category 'testing') ----- endsWith: sequence "Answer true if the receiver ends with the argument collection. The comparison is case-sensitive." | index sequenceSize offset | + sequence isString ifFalse: [ ^super endsWith: sequence ]. + (sequenceSize := sequence size) = 0 ifTrue: [ ^false ]. "old convention" + (offset := self size - sequenceSize) < 0 ifTrue: [ ^false ]. - sequence isString ifFalse: [ ^ super endsWith: sequence ]. - ((sequenceSize := sequence size) = 0 or: [ (offset := self size - sequenceSize) < 0 ]) ifTrue: [ ^false ]. index := 0. [ (index := index + 1) <= sequenceSize ] whileTrue: [ (sequence at: index) == (self at: index + offset) ifFalse: [ ^false ] ]. ^true!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2018