Quantcast

The Inbox: Collections-eem.733.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|  
Report Content as Inappropriate

The Inbox: Collections-eem.733.mcz

commits-2
Eliot Miranda uploaded a new version of Collections to project The Inbox:
http://source.squeak.org/inbox/Collections-eem.733.mcz

==================== Summary ====================

Name: Collections-eem.733
Author: eem
Time: 8 February 2017, 11:16:10.473598 am
UUID: a53cdc94-0460-4116-a778-f20d273dcc42
Ancestors: Collections-eem.732

Eliminate a shadowing warning in HtmlReadWriter>>nextPutText:

=============== Diff against Collections-eem.732 ===============

Item was changed:
  ----- Method: HtmlReadWriter>>nextPutText: (in category 'accessing') -----
  nextPutText: aText
  | atStartOfLine inIndent cr |
  atStartOfLine := true.
  inIndent := false.
  cr := Character cr.
  self linesWithAttributesIn: aText do:
+ [:subString :attributes | | indented |
- [:string :attributes | | indented |
  atStartOfLine ifTrue:
+ [indented := subString first == Character tab.
- [indented := string first == Character tab.
  indented ~~ inIndent ifTrue:
  [stream nextPutAll: (indented ifTrue: ['<pre>'] ifFalse: ['</pre>']).
  inIndent := indented]].
  attributes do: [:each | self writeStartTagFor: each].
  inIndent
+ ifTrue: [self writePresentationContent: subString]
+ ifFalse: [self writeContent: subString].
- ifTrue: [self writePresentationContent: string]
- ifFalse: [self writeContent: string].
  attributes reverseDo: [:each | self writeEndTagFor: each].
+ atStartOfLine := subString last == cr].
- atStartOfLine := string last == cr].
  inIndent ifTrue:
  [stream nextPutAll: '</pre>']!


Loading...