Chris Muller uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-cmm.541.mcz
==================== Summary ====================
Name: Kernel-cmm.541
Author: cmm
Time: 30 January 2011, 3:12:21.568 pm
UUID: 3d47b3f2-cb83-4759-a9b6-93f6dbda47f7
Ancestors: Kernel-ul.540
#asStringOrText should return the receiver #asString, not printString. This is the correct behavior to be able to render first-class objects in PluggableListMorphs without quotes around them.
=============== Diff against Kernel-ul.540 ===============
Item was changed:
----- Method: Object>>asStringOrText (in category 'converting') -----
asStringOrText
"Answer a string that represents the receiver."
+ ^ self asString!
-
- ^ self printString !
Chris Muller uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-cmm.541.mcz
==================== Summary ====================
Name: Kernel-cmm.541
Author: cmm
Time: 30 January 2011, 3:12:21.568 pm
UUID: 3d47b3f2-cb83-4759-a9b6-93f6dbda47f7
Ancestors: Kernel-ul.540
#asStringOrText should return the receiver #asString, not printString. This is the correct behavior to be able to render first-class objects in PluggableListMorphs without quotes around them.
=============== Diff against Kernel-ul.540 ===============
Item was changed:
----- Method: Object>>asStringOrText (in category 'converting') -----
asStringOrText
"Answer a string that represents the receiver."
+ ^ self asString!
-
- ^ self printString !
Nicolas Cellier uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-nice.107.mcz
==================== Summary ====================
Name: Network-nice.107
Author: nice
Time: 16 February 2011, 1:50:18.09 am
UUID: 57204c5b-6965-4865-b29e-f563894d6367
Ancestors: Network-nice.106
In the past I simplified MailMessage>>#readStringLineFrom: to just use generic Stream #nextLine utility.
But it's nothing more than 1-message, 1-implementor, 1-sender so let it just be nothing.
Anyway, when ones reach his quota of adding methods to Squeak, his next duty shall be removing old ones ;)
Note that I bypassed deprecation, fingers crossed.
=============== Diff against Network-nice.106 ===============
Item was changed:
----- Method: MailMessage>>fieldsFrom:do: (in category 'parsing') -----
fieldsFrom: aStream do: aBlock
"Invoke the given block with each of the header fields from the given stream. The block arguments are the field name and value. The streams position is left right after the empty line separating header and body."
| savedLine line s |
+ savedLine := aStream nextLine.
- savedLine := self readStringLineFrom: aStream.
[aStream atEnd] whileFalse: [
line := savedLine.
(line isEmpty) ifTrue: [^self]. "quit when we hit a blank line"
+ [savedLine := aStream nextLine.
- [savedLine := self readStringLineFrom: aStream.
(savedLine size > 0) and: [savedLine first isSeparator]] whileTrue: [
"lines starting with white space are continuation lines"
s := ReadStream on: savedLine.
s skipSeparators.
line := line, ' ', s upToEnd].
self reportField: line withBlanksTrimmed to: aBlock].
"process final header line of a body-less message"
(savedLine isEmpty) ifFalse: [self reportField: savedLine withBlanksTrimmed to: aBlock].
!
Item was removed:
- ----- Method: MailMessage>>readStringLineFrom: (in category 'parsing') -----
- readStringLineFrom: aStream
- "Read and answer the next line from the given stream. Consume the carriage return but do not append it to the string."
-
- ^aStream nextLine!
Nicolas Cellier uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-nice.107.mcz
==================== Summary ====================
Name: Network-nice.107
Author: nice
Time: 16 February 2011, 1:50:18.09 am
UUID: 57204c5b-6965-4865-b29e-f563894d6367
Ancestors: Network-nice.106
In the past I simplified MailMessage>>#readStringLineFrom: to just use generic Stream #nextLine utility.
But it's nothing more than 1-message, 1-implementor, 1-sender so let it just be nothing.
Anyway, when ones reach his quota of adding methods to Squeak, his next duty shall be removing old ones ;)
Note that I bypassed deprecation, fingers crossed.
=============== Diff against Network-nice.106 ===============
Item was changed:
----- Method: MailMessage>>fieldsFrom:do: (in category 'parsing') -----
fieldsFrom: aStream do: aBlock
"Invoke the given block with each of the header fields from the given stream. The block arguments are the field name and value. The streams position is left right after the empty line separating header and body."
| savedLine line s |
+ savedLine := aStream nextLine.
- savedLine := self readStringLineFrom: aStream.
[aStream atEnd] whileFalse: [
line := savedLine.
(line isEmpty) ifTrue: [^self]. "quit when we hit a blank line"
+ [savedLine := aStream nextLine.
- [savedLine := self readStringLineFrom: aStream.
(savedLine size > 0) and: [savedLine first isSeparator]] whileTrue: [
"lines starting with white space are continuation lines"
s := ReadStream on: savedLine.
s skipSeparators.
line := line, ' ', s upToEnd].
self reportField: line withBlanksTrimmed to: aBlock].
"process final header line of a body-less message"
(savedLine isEmpty) ifFalse: [self reportField: savedLine withBlanksTrimmed to: aBlock].
!
Item was removed:
- ----- Method: MailMessage>>readStringLineFrom: (in category 'parsing') -----
- readStringLineFrom: aStream
- "Read and answer the next line from the given stream. Consume the carriage return but do not append it to the string."
-
- ^aStream nextLine!
Nicolas Cellier uploaded a new version of Network to project The Trunk:
http://source.squeak.org/trunk/Network-nice.107.mcz
==================== Summary ====================
Name: Network-nice.107
Author: nice
Time: 16 February 2011, 1:50:18.09 am
UUID: 57204c5b-6965-4865-b29e-f563894d6367
Ancestors: Network-nice.106
In the past I simplified MailMessage>>#readStringLineFrom: to just use generic Stream #nextLine utility.
But it's nothing more than 1-message, 1-implementor, 1-sender so let it just be nothing.
Anyway, when ones reach his quota of adding methods to Squeak, his next duty shall be removing old ones ;)
Note that I bypassed deprecation, fingers crossed.
=============== Diff against Network-nice.106 ===============
Item was changed:
----- Method: MailMessage>>fieldsFrom:do: (in category 'parsing') -----
fieldsFrom: aStream do: aBlock
"Invoke the given block with each of the header fields from the given stream. The block arguments are the field name and value. The streams position is left right after the empty line separating header and body."
| savedLine line s |
+ savedLine := aStream nextLine.
- savedLine := self readStringLineFrom: aStream.
[aStream atEnd] whileFalse: [
line := savedLine.
(line isEmpty) ifTrue: [^self]. "quit when we hit a blank line"
+ [savedLine := aStream nextLine.
- [savedLine := self readStringLineFrom: aStream.
(savedLine size > 0) and: [savedLine first isSeparator]] whileTrue: [
"lines starting with white space are continuation lines"
s := ReadStream on: savedLine.
s skipSeparators.
line := line, ' ', s upToEnd].
self reportField: line withBlanksTrimmed to: aBlock].
"process final header line of a body-less message"
(savedLine isEmpty) ifFalse: [self reportField: savedLine withBlanksTrimmed to: aBlock].
!
Item was removed:
- ----- Method: MailMessage>>readStringLineFrom: (in category 'parsing') -----
- readStringLineFrom: aStream
- "Read and answer the next line from the given stream. Consume the carriage return but do not append it to the string."
-
- ^aStream nextLine!
Nicolas Cellier uploaded a new version of PackageInfo-Base to project The Trunk:
http://source.squeak.org/trunk/PackageInfo-Base-nice.53.mcz
==================== Summary ====================
Name: PackageInfo-Base-nice.53
Author: nice
Time: 16 February 2011, 12:02:09.324 am
UUID: 27c62178-0d9c-46ad-a2f2-a80b473740cb
Ancestors: PackageInfo-Base-cmm.52
A Metaclass now respondsTo: #category, so don't tell, just ask.
=============== Diff against PackageInfo-Base-cmm.52 ===============
Item was changed:
----- Method: PackageInfo>>includesClass: (in category 'testing') -----
includesClass: aClass
+ ^ self includesSystemCategory: aClass category!
- ^ self includesSystemCategory: aClass theNonMetaClass category!
Nicolas Cellier uploaded a new version of PackageInfo-Base to project The Trunk:
http://source.squeak.org/trunk/PackageInfo-Base-nice.53.mcz
==================== Summary ====================
Name: PackageInfo-Base-nice.53
Author: nice
Time: 16 February 2011, 12:02:09.324 am
UUID: 27c62178-0d9c-46ad-a2f2-a80b473740cb
Ancestors: PackageInfo-Base-cmm.52
A Metaclass now respondsTo: #category, so don't tell, just ask.
=============== Diff against PackageInfo-Base-cmm.52 ===============
Item was changed:
----- Method: PackageInfo>>includesClass: (in category 'testing') -----
includesClass: aClass
+ ^ self includesSystemCategory: aClass category!
- ^ self includesSystemCategory: aClass theNonMetaClass category!
Nicolas Cellier uploaded a new version of PackageInfo-Base to project The Trunk:
http://source.squeak.org/trunk/PackageInfo-Base-nice.53.mcz
==================== Summary ====================
Name: PackageInfo-Base-nice.53
Author: nice
Time: 16 February 2011, 12:02:09.324 am
UUID: 27c62178-0d9c-46ad-a2f2-a80b473740cb
Ancestors: PackageInfo-Base-cmm.52
A Metaclass now respondsTo: #category, so don't tell, just ask.
=============== Diff against PackageInfo-Base-cmm.52 ===============
Item was changed:
----- Method: PackageInfo>>includesClass: (in category 'testing') -----
includesClass: aClass
+ ^ self includesSystemCategory: aClass category!
- ^ self includesSystemCategory: aClass theNonMetaClass category!
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.298.mcz
==================== Summary ====================
Name: Tools-nice.298
Author: nice
Time: 15 February 2011, 11:59:03.132 pm
UUID: a1dbba2a-1863-43f6-bc96-0d03c0d405d6
Ancestors: Tools-nice.297
Let a Metaclass decide by herself to what category she belongs to.
=============== Diff against Tools-nice.297 ===============
Item was changed:
----- Method: ChangeSorter>>annotationForPackageforSelector:ofClass: (in category 'annotation') -----
annotationForPackageforSelector: aSelector ofClass: aClass
"Provide a line of content for an annotation pane, representing
information about the given selector and class"
"requestList"
+ | aCategory |
+ aClass ifNil: [ ^nil].
+ aSelector ifNotNil:
+ [ aCategory := aClass organization categoryOfElement: aSelector.
+ (aCategory notNil and: [ aCategory first = $* ])
+ ifTrue: [^ aCategory asString]] .
- | aCategory |
- aClass ifNil: [ ^nil] .
- aSelector ifNil: [ aClass theNonMetaClass category asString ] .
- aSelector ifNotNil: [ aCategory := aClass organization categoryOfElement: aSelector.
- (aCategory notNil and: [ aCategory first = $* ])
- ifTrue: [^ aCategory asString]] .
+ "Ok. So the selector category does not indicate our package. We defer to the class category"
+ ^ aClass category asString.
- "Ok. So the selector catagory does not indicate our package. We defer to the class catagory"
-
- ^ aClass theNonMetaClass category asString.
!
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.298.mcz
==================== Summary ====================
Name: Tools-nice.298
Author: nice
Time: 15 February 2011, 11:59:03.132 pm
UUID: a1dbba2a-1863-43f6-bc96-0d03c0d405d6
Ancestors: Tools-nice.297
Let a Metaclass decide by herself to what category she belongs to.
=============== Diff against Tools-nice.297 ===============
Item was changed:
----- Method: ChangeSorter>>annotationForPackageforSelector:ofClass: (in category 'annotation') -----
annotationForPackageforSelector: aSelector ofClass: aClass
"Provide a line of content for an annotation pane, representing
information about the given selector and class"
"requestList"
+ | aCategory |
+ aClass ifNil: [ ^nil].
+ aSelector ifNotNil:
+ [ aCategory := aClass organization categoryOfElement: aSelector.
+ (aCategory notNil and: [ aCategory first = $* ])
+ ifTrue: [^ aCategory asString]] .
- | aCategory |
- aClass ifNil: [ ^nil] .
- aSelector ifNil: [ aClass theNonMetaClass category asString ] .
- aSelector ifNotNil: [ aCategory := aClass organization categoryOfElement: aSelector.
- (aCategory notNil and: [ aCategory first = $* ])
- ifTrue: [^ aCategory asString]] .
+ "Ok. So the selector category does not indicate our package. We defer to the class category"
+ ^ aClass category asString.
- "Ok. So the selector catagory does not indicate our package. We defer to the class catagory"
-
- ^ aClass theNonMetaClass category asString.
!