[squeak-dev] 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 Squeak-dev mailing list