Packages February 2017

packages@lists.squeakfoundation.org

1 participants
69 discussions

The Trunk: CollectionsTests-topa.274.mcz
by commits＠source.squeak.org 10 Feb '17

10 Feb '17

Tobias Pape uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-topa.274.mcz ==================== Summary ==================== Name: CollectionsTests-topa.274 Author: topa Time: 10 February 2017, 5:31:44.149227 pm UUID: 423db775-bc0b-40e8-8960-6c7073e21cd9 Ancestors: CollectionsTests-topa.273 HtmlReadWriterTest: Support alignment, strike through (Collections-topa.733) =============== Diff against CollectionsTests-topa.273 =============== Item was added: + ----- Method: HtmlReadWriterTest>>test09StruckOut (in category 'tests') ----- + test09StruckOut + + { + '<s>Hello, World!!</s>'. + 'Hello, World!!' asText addAttribute: TextEmphasis struckOut. + + '<s>Hello</s>, World!!'. + 'Hello, World!!' asText addAttribute: TextEmphasis struckOut from: 1 to: 5. + } pairsDo: [:expectedHtml :expectedText | + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + self assert: expectedText runs equals: text runs. + + self convertText: expectedText. + self assert: expectedHtml equals: html].! Item was added: + ----- Method: HtmlReadWriterTest>>test10Underline (in category 'tests') ----- + test10Underline + + { + '<u>Hello, World!!</u>'. + 'Hello, World!!' asText addAttribute: TextEmphasis underlined. + + '<u>Hello</u>, World!!'. + 'Hello, World!!' asText addAttribute: TextEmphasis underlined from: 1 to: 5. + } pairsDo: [:expectedHtml :expectedText | + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + self assert: expectedText runs equals: text runs. + + self convertText: expectedText. + self assert: expectedHtml equals: html].! Item was added: + ----- Method: HtmlReadWriterTest>>test11Alignment (in category 'tests') ----- + test11Alignment + + { + " '<center>Hello, World!!</center>'. + 'Hello, World!!' asText addAttribute: TextAlignment centered. + " + '<div align=left>Hello, World!!</div>'. + 'Hello, World!!' asText addAttribute: TextAlignment leftFlush. + + '<div align=right>Hello, World!!</div>'. + 'Hello, World!!' asText addAttribute: TextAlignment rightFlush. + + '<div align=justify>Hello, World!!</div>'. + 'Hello, World!!' asText addAttribute: TextAlignment justified. + } pairsDo: [:expectedHtml :expectedText | + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + self assert: expectedText runs equals: text runs. + + self convertText: expectedText. + self assert: expectedHtml equals: html].! Item was added: + ----- Method: HtmlReadWriterTest>>test12AlignmentMixed (in category 'tests') ----- + test12AlignmentMixed + + { + '<center>Hello, <i>World!!</i></center>'. + 'Hello, World!!' asText + addAttribute: TextAlignment centered; + addAttribute: TextEmphasis italic from: 8 to: 13. + } pairsDo: [:expectedHtml :expectedText | + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + self assert: expectedText runs equals: text runs. + + self convertText: expectedText. + self assert: expectedHtml equals: html].!

1 0

The Trunk: Collections-topa.733.mcz
by commits＠source.squeak.org 10 Feb '17

10 Feb '17

Tobias Pape uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-topa.733.mcz ==================== Summary ==================== Name: Collections-topa.733 Author: topa Time: 10 February 2017, 5:21:27.588874 pm UUID: 98316bc6-4edd-4b8c-aae9-16d87505b8e9 Ancestors: Collections-topa.732 HtmlReadWriter: Support alignment, strike through =============== Diff against Collections-topa.732 =============== Item was added: + ----- Method: HtmlReadWriter>>mapAlignmentTag: (in category 'mapping') ----- + mapAlignmentTag: aTag + + | attributeStart | + " special html case ". + aTag = '<center>' ifTrue: [^ {TextAlignment centered}]. + + "<div align=justify> or <div align=""right"">" + attributeStart := aTag findString: 'align='. + attributeStart > 0 ifTrue: [ + | attributeRest | + attributeRest := aTag copyAfter: $=. + attributeRest first = $" ifTrue: [attributeRest := attributeRest allButFirst]. " quoted case " + ^ self mapAlignmentValue: (attributeRest findTokens: ' ">') first]. + ^ #()! Item was added: + ----- Method: HtmlReadWriter>>mapAlignmentValue: (in category 'mapping') ----- + mapAlignmentValue: aString + + (aString = 'center' or: [aString = 'middle']) ifTrue: [^ {TextAlignment centered}]. + aString = 'left' ifTrue: [^ {TextAlignment leftFlush}]. + aString = 'right' ifTrue: [^ {TextAlignment rightFlush}]. + aString = 'justify' ifTrue: [^ {TextAlignment justified}]. + ^ #()! Item was changed: ----- Method: HtmlReadWriter>>mapTagToAttribute: (in category 'mapping') ----- mapTagToAttribute: aTag aTag = '<b>' ifTrue: [^ {TextEmphasis bold}]. aTag = '<i>' ifTrue: [^ {TextEmphasis italic}]. aTag = '<u>' ifTrue: [^ {TextEmphasis underlined}]. + aTag = '<s>' ifTrue: [^ {TextEmphasis struckOut}]. aTag = '<code>' ifTrue: [^ self mapCodeTag]. aTag = '<pre>' ifTrue: [self breakLines: false. ^ {}]. + (aTag = '<center>' or: [aTag beginsWith: '<div']) + ifTrue: [^ self mapAlignmentTag: aTag]. (aTag beginsWith: '<font') ifTrue: [^ self mapFontTag: aTag]. (aTag beginsWith: '<a') ifTrue: [^ self mapATag: aTag]. "h1, h2, h3, ..." (aTag second = $h and: [aTag third isDigit]) ifTrue: [^ {TextEmphasis bold}]. ^ {}! Item was added: + ----- Method: TextAlignment>>closeHtmlOn: (in category 'html') ----- + closeHtmlOn: aHtmlReadWriter + + self alignment = Centered ifTrue: [aHtmlReadWriter nextPutAll: '</center>']. + ({ Justified. LeftFlush. RightFlush. } includes: self alignment) + ifTrue: [aHtmlReadWriter nextPutAll: '</div>']. + ! Item was added: + ----- Method: TextAlignment>>openHtmlOn: (in category 'html') ----- + openHtmlOn: aHtmlReadWriter + + self alignment = Centered ifTrue: [aHtmlReadWriter nextPutAll: '<center>']. + self alignment = Justified ifTrue: [aHtmlReadWriter nextPutAll: '<div align=justify>']. + self alignment = LeftFlush ifTrue: [aHtmlReadWriter nextPutAll: '<div align=left>']. + self alignment = RightFlush ifTrue: [aHtmlReadWriter nextPutAll: '<div align=right>']. + ! Item was changed: ----- Method: TextAlignment>>shouldFormBlocks (in category 'as yet unclassified') ----- shouldFormBlocks + + ^ true! - " whether this attribute should form larger blocks even if split up for combination with other attributes " - ^ false! Item was changed: ----- Method: TextEmphasis>>closeHtmlOn: (in category 'html') ----- closeHtmlOn: aStream "put on the given stream the tag to close the html representation of the receiver" emphasisCode = 1 ifTrue: [aStream nextPutAll: '</b>']. emphasisCode = 2 ifTrue: [aStream nextPutAll: '</i>']. emphasisCode = 4 + ifTrue: [aStream nextPutAll: '</u>']. + emphasisCode = 16 + ifTrue: [aStream nextPutAll: '</s>'].! - ifTrue: [aStream nextPutAll: '</u>']! Item was changed: ----- Method: TextEmphasis>>openHtmlOn: (in category 'html') ----- openHtmlOn: aStream "put on the given stream the tag to open the html representation of the receiver" emphasisCode = 1 ifTrue: [aStream nextPutAll: '<b>']. emphasisCode = 2 ifTrue: [aStream nextPutAll: '<i>']. emphasisCode = 4 + ifTrue: [aStream nextPutAll: '<u>']. + emphasisCode = 16 + ifTrue: [aStream nextPutAll: '<s>']! - ifTrue: [aStream nextPutAll: '<u>']!

1 0

The Trunk: Kernel-ul.1058.mcz
by commits＠source.squeak.org 10 Feb '17

10 Feb '17

Levente Uzonyi uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-ul.1058.mcz ==================== Summary ==================== Name: Kernel-ul.1058 Author: ul Time: 10 February 2017, 1:16:53.505258 pm UUID: 62aa1881-7b99-4ba0-bfa5-a2599f1386a9 Ancestors: Kernel-eem.1057 - extracted BitCountPerByteTable from Integer >> bitCount - added optimized version of #bitCount to SmallInteger =============== Diff against Kernel-eem.1057 =============== Item was changed: Number subclass: #Integer instanceVariableNames: '' + classVariableNames: 'BitCountPerByteTable LowBitPerByteTable' - classVariableNames: 'LowBitPerByteTable' poolDictionaries: '' category: 'Kernel-Numbers'! !Integer commentStamp: '<historical>' prior: 0! I am a common abstract superclass for all Integer implementations. My implementation subclasses are SmallInteger, LargePositiveInteger, and LargeNegativeInteger. Integer division consists of: / exact division, answers a fraction if result is not a whole integer // answers an Integer, rounded towards negative infinity \\ is modulo rounded towards negative infinity quo: truncated division, rounded towards zero! Item was changed: ----- Method: Integer class>>initialize (in category 'class initialization') ----- initialize + "Integer initialize" + + self + initializeLowBitPerByteTable; + initializeBitCountPerByteTable! - "Integer initialize" - self initializeLowBitPerByteTable! Item was added: + ----- Method: Integer class>>initializeBitCountPerByteTable (in category 'class initialization') ----- + initializeBitCountPerByteTable + "Initialize BitCountPerByteTable which is a ByteArray that contains the number of set bits (1) of the integers between 0 and 255. It's defined as a class variable so that it can be used from the instance side and subclasses too." + "Evaluate this expression to form the byte array: + ((0 to: 255) + collect: [:i | + | bitCount n | + n := i. + bitCount := 0. + [n = 0] + whileFalse: + [bitCount := bitCount + 1. + n := n bitAnd: n - 1]. + bitCount] + as: ByteArray)" + + BitCountPerByteTable := #[0 1 1 2 1 2 2 3 1 2 2 3 2 3 3 4 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 4 5 5 6 5 6 6 7 5 6 6 7 6 7 7 8]! Item was changed: ----- Method: Integer>>bitCount (in category 'bit manipulation') ----- bitCount "Count the number of bits set to 1 in self" | bitCount | self < 0 ifTrue: [self error: 'Cannot count bits of negative integers']. bitCount := 0. 1 to: self digitLength do: [:i | + bitCount := bitCount + (BitCountPerByteTable at: (self digitAt: i) + 1) ]. - bitCount := bitCount + (self digitAt: i) bitCountOfByte]. ^bitCount! Item was added: + ----- Method: SmallInteger>>bitCount (in category 'bit manipulation') ----- + bitCount + "Count the number of bits set to 1 in self. Overridden for performance" + + | n bitCount | + self < 0 ifTrue: [self error: 'Cannot count bits of negative integers']. + bitCount := 0. + n := self. + [ n = 0 ] whileFalse: [ + bitCount := bitCount + (BitCountPerByteTable at: (n bitAnd: 16rFF) + 1). + n := n bitShift: -8 ]. + ^bitCount! Item was changed: ----- Method: SmallInteger>>bitCountOfByte (in category 'bit manipulation') ----- bitCountOfByte "Count the number of bits set to 1 in a byte." + ^BitCountPerByteTable at: self + 1! - ^#[0 1 1 2 1 2 2 3 1 2 2 3 2 3 3 4 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 1 2 2 3 2 3 3 4 2 3 3 4 3 4 4 5 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 2 3 3 4 3 4 4 5 3 4 4 5 4 5 5 6 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 3 4 4 5 4 5 5 6 4 5 5 6 5 6 6 7 4 5 5 6 5 6 6 7 5 6 6 7 6 7 7 8] at: self + 1 - - "Evaluate this expression to form above byte array: - ((0 to: 255) - collect: [:i | - | bitCount n | - n := i. - bitCount := 0. - [n = 0] - whileFalse: - [bitCount := bitCount + 1. - n := n bitAnd: n - 1]. - bitCount] - as: ByteArray)"!

1 0

The Trunk: CollectionsTests-topa.273.mcz
by commits＠source.squeak.org 09 Feb '17

09 Feb '17

Tobias Pape uploaded a new version of CollectionsTests to project The Trunk: http://source.squeak.org/trunk/CollectionsTests-topa.273.mcz ==================== Summary ==================== Name: CollectionsTests-topa.273 Author: topa Time: 9 February 2017, 7:50:04.444895 pm UUID: c65eaa03-cc26-4ba6-a648-962d6a3ecf23 Ancestors: CollectionsTests-pre.272 Test for htmlifying DoIts from Collections-topa.732 =============== Diff against CollectionsTests-pre.272 =============== Item was added: + ----- Method: HtmlReadWriterTest>>test07CodeRoundTrip (in category 'tests') ----- + test07CodeRoundTrip + + | textWithDoIt | + textWithDoIt := self textWithDoIt. + self assert: textWithDoIt equals: textWithDoIt printHtmlString asTextFromHtml + ! Item was added: + ----- Method: HtmlReadWriterTest>>test08MultilineCode (in category 'tests') ----- + test08MultilineCode + + { '<code> + <pre>3 + 7. + 3 > 4.</pre></code>' . + Text string: '3 + 7. + 3 > 4.' runs: (RunArray runs: #(13 ) values: { {TextDoIt evalString: '3 + 7. + 3 > 4.' } } ) + } pairsDo: [:expectedHtml :expectedText | + + self convertHtml: expectedHtml. + self assert: expectedText string equals: text string. + self assert: expectedText runs equals: text runs. + + self convertText: expectedText. + self assert: expectedHtml equals: html].! Item was added: + ----- Method: HtmlReadWriterTest>>textWithDoIt (in category 'tests') ----- + textWithDoIt + " Version of TextAction>>emphasizeScanner: with a Doit on the third line " + | doit | + doit := TextDoIt basicNew instVarAt: 1 put: 'Purple ifNil: [Purple := self userInterfaceTheme color ifNil: [Color r: 0.4 g: 0.0 b: 1]].'; yourself. + ^ (Text string: 'emphasizeScanner: scanner + "Set the emphasis for text display" + Purple ifNil: [Purple := self userInterfaceTheme color ifNil: [Color r: 0.4 g: 0.0 b: 1]]. + scanner textColor: Purple.' runs: (RunArray runs: #(17 1 7 1 35 1 6 1 6 1 1 6 1 2 1 4 1 18 1 5 1 6 1 1 5 1 2 1 3 1 2 1 3 1 2 1 1 1 1 1 1 7 1 10 1 6 1 ) values: ((Array new: 47) at: 1 put: ((Array new: 1) at: 1 put: (TextEmphasis basicNew instVarAt: 1 put: 1; instVarAt: 2 put: true; yourself); yourself); at: 2 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 3 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); yourself); at: 4 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 5 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.5 b: 0.5); yourself); yourself); at: 6 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 7 put: ((Array new: 2) at: 1 put: (TextColor ba sicNew instVarAt: 1 put: (Color r: 0.25 g: 0.25 b: 0.25); yourself); at: 2 put: doit; yourself); at: 8 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 9 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 10 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 11 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 12 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.25 g: 0.25 b: 0.25); yourself); at: 2 put: doit; yourself); at: 13 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 14 put: ((Array new : 2) at: 1 put: (TextEmphasis basicNew instVarAt: 1 put: 1; instVarAt: 2 put: true; yourself); at: 2 put: doit; yourself); at: 15 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 16 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 17 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 18 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 19 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 20 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself) ; at: 21 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 22 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 23 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 24 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.5 b: 0.0); yourself); at: 2 put: doit; yourself); at: 25 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 26 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 27 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); a t: 2 put: doit; yourself); at: 28 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 29 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 30 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 31 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 32 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 33 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 34 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 35 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); at: 2 put: doit; yourself); at: 36 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 37 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.5 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 38 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.5 b: 0.0); yourself); at: 2 put: doit; yourself); at: 39 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 40 put: ((Array new: 2) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); at: 2 put: doit; yourself); at: 41 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 42 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); yourself); at: 43 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 44 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.5); yourself); yourself); at: 45 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); at: 46 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.25 g: 0.25 b: 0.25); yourself); yourself); at: 47 put: ((Array new: 1) at: 1 put: (TextColor basicNew instVarAt: 1 put: (Color r: 0.0 g: 0.0 b: 0.0); yourself); yourself); yourself)))!

1 0

The Trunk: Collections-topa.732.mcz
by commits＠source.squeak.org 09 Feb '17

09 Feb '17

Tobias Pape uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-topa.732.mcz ==================== Summary ==================== Name: Collections-topa.732 Author: topa Time: 9 February 2017, 7:47:59.962131 pm UUID: fd95461f-6d7f-4f24-b57a-dcc23e75cdb9 Ancestors: Collections-dtl.731 TextAttributes: - allow for attributes that should be treated as blocks even if they appear adajcent due to mixing with other attribues (Indent, Align, DoIt/PrintIt) - make DoIt/PrintIt _not_ appear Purple but just add underlining to existing (mabye shout-generated) attributes. - let TextAction>>analyze: accept things like '3 > 4'. (Previously disallowed) - make DoIt/PrintIt be written AND read with HtmlReadWriter. Convention for both ways: - single-line DoIt/PrintIts are wrapped in '<code>...</code>' - multi-line DoIt/PrintIt are wrapped in '<code> <pre>..</pre></code>' - line-breaks within DoIt/PrintIt are not converted to '<br>' and vice versa. HtmlReadWriter - emulates a WriteStream, so openHtmlOn: can be fed the HtmlReadWriter for configuration (eg, of line breaks). - honors the new blockish attributes. Co-authored by Bert Freudenberg. =============== Diff against Collections-dtl.731 =============== Item was changed: TextReadWriter subclass: #HtmlReadWriter + instanceVariableNames: 'count offset runStack runArray string breakLines' - instanceVariableNames: 'count offset runStack runArray string' classVariableNames: '' poolDictionaries: '' category: 'Collections-Text'! Item was added: + ----- Method: HtmlReadWriter>>activateAttributesEnding:starting: (in category 'private') ----- + activateAttributesEnding: ending starting: starting + + starting + select: [:attribute | attribute shouldFormBlocks] + thenDo: [: attribute | + (ending includes: attribute) ifFalse: [self writeStartTagFor: attribute]]; + reject: [:attribute | attribute shouldFormBlocks] + thenDo: [: attribute | self writeStartTagFor: attribute].! Item was added: + ----- Method: HtmlReadWriter>>breakLines (in category 'accessing') ----- + breakLines + + ^ breakLines! Item was added: + ----- Method: HtmlReadWriter>>breakLines: (in category 'accessing') ----- + breakLines: aBoolean + + breakLines := aBoolean! Item was added: + ----- Method: HtmlReadWriter>>cr (in category 'stream emulation') ----- + cr + + self breakLines ifTrue: [stream nextPutAll: '<br>']. + ^ stream cr! Item was added: + ----- Method: HtmlReadWriter>>deactivateAttributesEnding:starting: (in category 'private') ----- + deactivateAttributesEnding: ending starting: starting + + ending reversed + reject: [:attribute | attribute shouldFormBlocks] + thenDo: [: attribute | self writeEndTagFor: attribute]; + select: [:attribute | attribute shouldFormBlocks] + thenDo: [: attribute | + (starting includes: attribute) ifFalse: [self writeEndTagFor: attribute]].! Item was added: + ----- Method: HtmlReadWriter>>initialize (in category 'initialize-release') ----- + initialize + + super initialize. + self breakLines: true.! Item was added: + ----- Method: HtmlReadWriter>>mapCloseCodeTag (in category 'mapping') ----- + mapCloseCodeTag + + | theDoIt | + theDoIt := runStack top first + detect: [:attribute | attribute isKindOf: TextDoIt] + ifNone: [^ self "nothing found, ignore"]. + theDoIt evalString: (String withAll: (string copyFrom: runStack top second to: string size)).! Item was added: + ----- Method: HtmlReadWriter>>mapCodeTag (in category 'mapping') ----- + mapCodeTag + + ^ {TextDoIt new} "yet uninitialized"! Item was changed: ----- Method: HtmlReadWriter>>mapTagToAttribute: (in category 'mapping') ----- mapTagToAttribute: aTag aTag = '<b>' ifTrue: [^ {TextEmphasis bold}]. aTag = '<i>' ifTrue: [^ {TextEmphasis italic}]. aTag = '<u>' ifTrue: [^ {TextEmphasis underlined}]. + aTag = '<code>' ifTrue: [^ self mapCodeTag]. + aTag = '<pre>' ifTrue: [self breakLines: false. ^ {}]. - "aTag = '<code>' ifTrue: [^ {TextFontReference toFont: Preferences standardCodeFont}]." (aTag beginsWith: '<font') ifTrue: [^ self mapFontTag: aTag]. (aTag beginsWith: '<a') ifTrue: [^ self mapATag: aTag]. "h1, h2, h3, ..." (aTag second = $h and: [aTag third isDigit]) ifTrue: [^ {TextEmphasis bold}]. ^ {}! Item was added: + ----- Method: HtmlReadWriter>>nextPut: (in category 'stream emulation') ----- + nextPut: aCharacter + + ^ stream nextPut: aCharacter! Item was added: + ----- Method: HtmlReadWriter>>nextPutAll: (in category 'stream emulation') ----- + nextPutAll: aCollection + + ^ stream nextPutAll: aCollection! Item was changed: ----- Method: HtmlReadWriter>>nextPutText: (in category 'accessing') ----- nextPutText: aText + | previous | + previous := #(). + self activateAttributesEnding: #() starting: previous. "for consistency" aText runs withStartStopAndValueDo: [:start :stop :attributes | + self + deactivateAttributesEnding: previous starting: attributes; + activateAttributesEnding: previous starting: attributes; + writeContent: (aText string copyFrom: start to: stop). + previous := attributes]. + self deactivateAttributesEnding: previous starting: #().! - | att str | - att := aText attributesAt: start. - str := aText string copyFrom: start to: stop. - - att do: [:each | self writeStartTagFor: each]. - self writeContent: str. - att reverse do: [:each | self writeEndTagFor: each]]! Item was changed: ----- Method: HtmlReadWriter>>processEndTag: (in category 'reading') ----- processEndTag: aTag + | index tagName | - | index | index := count - offset. + tagName := aTag copyFrom: 3 to: aTag size - 1. - - (self ignoredTags includes: (aTag copyFrom: 3 to: aTag size -1)) - ifTrue: [^ self]. + (self ignoredTags includes: tagName) ifTrue: [^ self]. + tagName = 'code' ifTrue: [self mapCloseCodeTag]. + tagName = 'pre' ifTrue: [self breakLines: true]. + "De-Accumulate adjacent tags." runStack top at: 4 put: runStack top fourth - 1. runStack top fourth > 0 ifTrue: [^ self "not yet"]. self processRunStackTop. runStack pop. runStack top at: 2 put: index + 1.! Item was changed: ----- Method: HtmlReadWriter>>processNextTag (in category 'reading') ----- processNextTag | tag htmlEscape lookForNewTag lookForHtmlEscape tagFound valid inComment inTagString | lookForNewTag := true. lookForHtmlEscape := false. tagFound := false. tag := OrderedCollection new. htmlEscape := OrderedCollection new. inComment := false. inTagString := false. [stream atEnd not and: [tagFound not]] whileTrue: [ | character | character := stream next. valid := (#(10 13) includes: character asciiValue) not. count := count + 1. character = $< ifTrue: [lookForNewTag := false]. character = $& ifTrue: [ inComment ifFalse: [lookForHtmlEscape := true]]. lookForNewTag ifTrue: [ lookForHtmlEscape + ifFalse: [ + (valid or: [self breakLines not]) + ifTrue: [string add: character] + ifFalse: [offset := offset + 1]] - ifFalse: [valid ifTrue: [string add: character] ifFalse: [offset := offset + 1]] ifTrue: [valid ifTrue: [htmlEscape add: character]. offset := offset + 1]] ifFalse: [valid ifTrue: [tag add: character]. offset := offset + 1]. "Toggle within tag string/text." (character = $" and: [lookForNewTag not]) ifTrue: [inTagString := inTagString not]. inComment := ((lookForNewTag not and: [tag size >= 4]) and: [tag beginsWith: '<!!--']) and: [(tag endsWith: '-->') not]. (((character = $> and: [inComment not]) and: [lookForNewTag not]) and: [inTagString not]) ifTrue: [ lookForNewTag := true. (tag beginsWith: '<!!--') ifTrue: [self processComment: (String withAll: tag)] ifFalse: [tag second ~= $/ ifTrue: [ (tag atLast: 2) == $/ ifTrue: [self processEmptyTag: (String withAll: tag)] ifFalse: [self processStartTag: (String withAll: tag)]] ifFalse: [self processEndTag: (String withAll: tag)]]. tagFound := true]. (((character = $; and: [lookForNewTag]) and: [htmlEscape notEmpty]) and: [htmlEscape first = $&]) ifTrue: [ lookForHtmlEscape := false. self processHtmlEscape: (String withAll: htmlEscape). htmlEscape := OrderedCollection new]]. ! Item was changed: ----- Method: HtmlReadWriter>>writeContent: (in category 'writing') ----- writeContent: aString aString do: [:char | (#(10 13) includes: char asciiValue) + ifTrue: [self cr] - ifTrue: [stream nextPutAll: '<br>'; cr] ifFalse: [char = Character tab + ifTrue: [self nextPutAll: '    '] - ifTrue: [stream nextPutAll: '    '] ifFalse: [(String htmlEntities keyAtValue: char ifAbsent: []) + ifNil: [self nextPut: char] - ifNil: [stream nextPut: char] ifNotNil: [:escapeSequence | + self - stream nextPut: $&; nextPutAll: escapeSequence; nextPut: $;]]]].! Item was changed: ----- Method: HtmlReadWriter>>writeEndTagFor: (in category 'writing') ----- writeEndTagFor: aTextAttribute + [aTextAttribute closeHtmlOn: self] - [aTextAttribute closeHtmlOn: stream] on: MessageNotUnderstood do: []! Item was changed: ----- Method: HtmlReadWriter>>writeStartTagFor: (in category 'writing') ----- writeStartTagFor: aTextAttribute + [aTextAttribute openHtmlOn: self] - [aTextAttribute openHtmlOn: stream] on: MessageNotUnderstood do: [].! Item was changed: ----- Method: TextAction>>analyze: (in category 'as yet unclassified') ----- analyze: aString + "Analyze the selected text to find both the parameter to store and the text to emphesize (may be different from original selection). Does not return self!!. May be multiline or of the form: - "Analyze the selected text to find both the parameter to store and the text to emphesize (may be different from original selection). Does not return self!!. May be of the form: 3+4 <3+4> Click Here<3+4> <3+4>Click Here " "Obtain the showing text and the instructions" + | b1 b2 singleLine trim param show | - | b1 b2 trim param show | b1 := aString indexOf: $<. b2 := aString indexOf: $>. + singleLine := aString lineCount = 0. + (singleLine or: [(b1 < b2) & (b1 > 0)]) ifFalse: ["only one part" - (b1 < b2) & (b1 > 0) ifFalse: ["only one part" param := self validate: aString. param ifNil: [ ^{ nil. nil } ]. + ^ Array with: param with: (param size = 0 ifFalse: [param])]. - ^ Array with: param with: (param size = 0 ifTrue: [nil] ifFalse: [param])]. "Two parts" trim := aString withBlanksTrimmed. (trim at: 1) == $< ifTrue: [(trim last) == $> ifTrue: ["only instructions" param := self validate: (aString copyFrom: b1+1 to: b2-1). + show := param size = 0 ifFalse: [param]] - show := param size = 0 ifTrue: [nil] ifFalse: [param]] ifFalse: ["at the front" param := self validate: (aString copyFrom: b1+1 to: b2-1). + show := param size = 0 ifFalse: [aString copyFrom: b2+1 to: aString size]]] - show := param size = 0 ifTrue: [nil] - ifFalse: [aString copyFrom: b2+1 to: aString size]]] ifFalse: [(trim last) == $> ifTrue: ["at the end" param := self validate: (aString copyFrom: b1+1 to: b2-1). + show := param size = 0 ifFalse: [aString copyFrom: 1 to: b1-1]] + ifFalse: ["Arbitrary string. Let the compiler handle the complete string" + param := self validate: aString. + param ifNil: [ ^{ nil. nil }]. + show := (param size = 0 ifFalse: [param])]]. - show := param size = 0 ifTrue: [nil] - ifFalse: [aString copyFrom: 1 to: b1-1]] - ifFalse: ["Illegal -- <> has text on both sides" - show := nil]]. ^ Array with: param with: show ! Item was added: + ----- Method: TextAlignment>>shouldFormBlocks (in category 'as yet unclassified') ----- + shouldFormBlocks + " whether this attribute should form larger blocks even if split up for combination with other attributes " + ^ false! Item was added: + ----- Method: TextAttribute>>shouldFormBlocks (in category 'html') ----- + shouldFormBlocks + " whether this attribute should form larger blocks even if split up for combination with other attributes " + ^ false! Item was changed: ----- Method: TextDoIt>>analyze: (in category 'as yet unclassified') ----- analyze: aString | list | list := super analyze: aString. + evalString := (list at: 1) asString. - evalString := list at: 1. ^ list at: 2! Item was added: + ----- Method: TextDoIt>>closeHtmlOn: (in category 'html') ----- + closeHtmlOn: aStream + + self evalString lines size > 1 ifTrue: [ + aStream + breakLines: true; + nextPutAll: '</pre>']. + aStream nextPutAll: '</code>'. + ! Item was added: + ----- Method: TextDoIt>>emphasizeScanner: (in category 'as yet unclassified') ----- + emphasizeScanner: scanner + scanner addEmphasis: 4! Item was added: + ----- Method: TextDoIt>>openHtmlOn: (in category 'html') ----- + openHtmlOn: aStream + + aStream nextPutAll: '<code>'. + self evalString lines size > 1 ifTrue: [ + aStream + breakLines: false; + cr; + nextPutAll: '<pre>'].! Item was added: + ----- Method: TextDoIt>>shouldFormBlocks (in category 'html') ----- + shouldFormBlocks + + ^ true! Item was added: + ----- Method: TextIndent>>shouldFormBlocks (in category 'nil') ----- + shouldFormBlocks + + ^ true!

1 0

The Trunk: Morphic-topa.1321.mcz
by commits＠source.squeak.org 09 Feb '17

09 Feb '17

Tobias Pape uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-topa.1321.mcz ==================== Summary ==================== Name: Morphic-topa.1321 Author: topa Time: 9 February 2017, 4:56:13.396681 pm UUID: 7b1a9e25-af9a-4aea-ae14-dd1944092bfc Ancestors: Morphic-bf.1320 Let doit/printit attributes preserve the remaining attribtues. =============== Diff against Morphic-bf.1320 =============== Item was changed: ----- Method: SmalltalkEditor>>handleEmphasisExtra:with: (in category 'editing keys') ----- handleEmphasisExtra: index with: aKeyboardEvent "Handle an extra emphasis menu item" | action attribute thisSel | action := { [attribute := TextDoIt new. + thisSel := attribute analyze: self selection]. - thisSel := attribute analyze: self selection asString]. [attribute := TextPrintIt new. + thisSel := attribute analyze: self selection]. - thisSel := attribute analyze: self selection asString]. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Comment']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Definition']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString with: 'Hierarchy']. [attribute := TextLink new. thisSel := attribute analyze: self selection asString]. [attribute := TextURL new. thisSel := attribute analyze: self selection asString]. ["Edit hidden info" thisSel := self hiddenInfo. "includes selection" attribute := TextEmphasis normal]. ["Copy hidden info" self copyHiddenInfo. ^true]. "no other action" } at: index. action value. thisSel ifNil: [^true]. "Could not figure out what to link to" attribute ifNotNil: [ thisSel ifEmpty:[ | oldAttributes | "only change emphasisHere while typing" oldAttributes := paragraph text attributesAt: self pointIndex. emphasisHere := Text addAttribute: attribute toArray: oldAttributes. ] ifNotEmpty: [ self replaceSelectionWith: (thisSel asText addAttribute: attribute). ] ]. ^true!

1 0

The Trunk: Morphic-topa.1321.mcz
by commits＠source.squeak.org 09 Feb '17

09 Feb '17

1 0

The Trunk: Kernel-eem.1057.mcz
by commits＠source.squeak.org 08 Feb '17

08 Feb '17

Eliot Miranda uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-eem.1057.mcz ==================== Summary ==================== Name: Kernel-eem.1057 Author: eem Time: 7 February 2017, 6:20:56.634789 pm UUID: 5768ff81-113e-47b1-9855-a6d8277bf6b3 Ancestors: Kernel-dtl.1056 Provide a convenient method for scanning for arbitrary bytecode sequences, where each bytecode is provided as a message. =============== Diff against Kernel-dtl.1056 =============== Item was added: + ----- Method: InstructionStream>>scanForInstructionSequence: (in category 'scanning') ----- + scanForInstructionSequence: naryBlock + "naryBlock is a block taking one or more arguments. + Evaluate it for each sequence of instructions of length + n in the receiver until naryBlock evaluates to true. + Answer if naryBlock evaluated to true." + | instructions | + instructions := OrderedCollection withAll: ((1 to: naryBlock numArgs) collect: + [:ign| + self atEnd ifTrue: [^false]. + self nextInstruction]). + [(naryBlock valueWithArguments: instructions asArray) ifTrue: + [^true]. + self atEnd] whileFalse: + [instructions removeFirst; addLast: self nextInstruction]. + ^false!

1 0

The Trunk: XML-Parser-monty.41.mcz
by commits＠source.squeak.org 08 Feb '17

08 Feb '17

David T. Lewis uploaded a new version of XML-Parser to project The Trunk: http://source.squeak.org/trunk/XML-Parser-monty.41.mcz ==================== Summary ==================== Name: XML-Parser-monty.41 Author: monty Time: 7 February 2017, 6:28:05.310301 pm UUID: 0b0a7d1b-2f38-4468-8968-dd70aa26dee2 Ancestors: XML-Parser-monty.40 Added an explicit deprecation in #applyLanguageInfomation: =============== Diff against XML-Parser-monty.40 =============== Item was changed: ----- Method: String>>applyLanguageInfomation: (in category '*xml-parser') ----- applyLanguageInfomation: languageEnvironment "this is here for backwards compatibility but now just forwards to the correctly-spelled version defined directly on String and ByteString" + + self deprecated: 'use #applyLanguageInformation: (with an "r") instead'. + self applyLanguageInformation: languageEnvironment.! - self applyLanguageInformation: languageEnvironment!

1 0

The Trunk: Collections-monty.714.mcz
by commits＠source.squeak.org 08 Feb '17

08 Feb '17

David T. Lewis uploaded a new version of Collections to project The Trunk: http://source.squeak.org/trunk/Collections-monty.714.mcz ==================== Summary ==================== Name: Collections-monty.714 Author: monty Time: 3 February 2017, 10:01:44.476206 pm UUID: 48b96a24-dd93-4072-b019-fbeefa9e70ff Ancestors: Collections-mt.713 added #applyLanguageInformation: (with spelling corrected) from the old XML-Parser package to String and ByteString because MOFile depends on it and leaving it as an XML-Parser extension breaks installing newer packages from the SqueakMap =============== Diff against Collections-mt.713 =============== Item was added: + ----- Method: ByteString>>applyLanguageInformation: (in category 'accessing') ----- + applyLanguageInformation: languageEnvironment + ! Item was added: + ----- Method: String>>applyLanguageInformation: (in category 'accessing') ----- + applyLanguageInformation: languageEnvironment + + | leadingChar | + leadingChar := languageEnvironment leadingChar. + self withIndexDo: [:each :idx | + each asciiValue > 255 + ifTrue: [self at: idx put: (Character leadingChar: leadingChar code: each asUnicode)]]!

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2017