[Pkg] The Trunk: Tools-nice.374.mcz
commits at source.squeak.org
commits at source.squeak.org
Fri Aug 5 11:35:51 UTC 2011
Nicolas Cellier uploaded a new version of Tools to project The Trunk:
http://source.squeak.org/trunk/Tools-nice.374.mcz
==================== Summary ====================
Name: Tools-nice.374
Author: nice
Time: 5 August 2011, 1:35:13.137 pm
UUID: 8088803a-d2ac-4078-a9b9-03e91aaeb406
Ancestors: Tools-ul.373
1) Generalize the possibility to file out the whole message list.
2) Cosmetic: avoid writing temps from outer scope
=============== Diff against Tools-ul.373 ===============
Item was changed:
----- Method: FileContentsBrowser class>>browseCompressedCodeStream: (in category 'instance creation') -----
browseCompressedCodeStream: aStandardFileStream
"Browse the selected file in fileIn format."
| unzipped |
+ unzipped := [MultiByteBinaryOrTextStream
+ with: (GZipReadStream on: aStandardFileStream) contents asString]
- [ | zipped |zipped := GZipReadStream on: aStandardFileStream.
- unzipped := MultiByteBinaryOrTextStream with: zipped contents asString]
ensure: [aStandardFileStream close].
unzipped reset.
self browseStream: unzipped named: aStandardFileStream name!
Item was removed:
- ----- Method: FileContentsBrowser>>fileOutMessage (in category 'fileIn/fileOut') -----
- fileOutMessage
-
- self selectedMessageName ifNil: [^self].
- Cursor write showWhile: [
- self selectedClassOrMetaClass fileOutMethod: self selectedMessageName].!
Item was added:
+ ----- Method: StringHolder>>fileOutAllMessages (in category '*Tools') -----
+ fileOutAllMessages
+ "Put a description of the all the message list on a file."
+
+ FileStream
+ writeSourceCodeFrom:
+ (String new: 16000 streamContents: [:str |
+ self messageList do: [:e |
+ e actualClass printMethodChunk: e methodSymbol withPreamble: true
+ on: str moveSource: false toFile: 0]])
+ baseName: (self messageListSelectorTitle replaceAll: Character space with: $_) isSt: true useHtml: false!
Item was changed:
----- Method: StringHolder>>fileOutMessage (in category '*Tools') -----
fileOutMessage
+ "Put a description of the selected message on a file.
+ If no message is selected, put a description of ALL the message list."
- "Put a description of the selected message on a file"
+ self selectedMessageName
+ ifNil:
+ [self fileOutAllMessages]
+ ifNotNil:
+ [Cursor write showWhile:
+ [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]]!
- self selectedMessageName ifNotNil:
- [Cursor write showWhile:
- [self selectedClassOrMetaClass fileOutMethod: self selectedMessageName]]!
Item was added:
+ ----- Method: StringHolder>>messageList (in category '*Tools') -----
+ messageList
+ ^Array new!
More information about the Packages
mailing list