[squeak-dev] The Trunk: Files-tfel.165.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Aug 30 08:42:39 UTC 2016


Tim Felgentreff uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-tfel.165.mcz

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

Name: Files-tfel.165
Author: tfel
Time: 30 August 2016, 10:42:22.521946 am
UUID: 45b18cd1-022d-824f-8b83-077e3908cb22
Ancestors: Files-tfel.162, Files-dtl.164

merge translation and read-only check from Squeakland Etoys

=============== Diff against Files-dtl.164 ===============

Item was changed:
  ----- Method: FileStream class>>serviceFileIn (in category 'file reader services') -----
  serviceFileIn
  	"Answer a service for filing in an entire file"
  
  	^ SimpleServiceEntry 
  		provider: self 
+ 		label: 'fileIn entire file' translatedNoop
- 		label: 'fileIn entire file'
  		selector: #fileIn:
+ 		description: 'file in the entire contents of the file, which is expected to contain Smalltalk code in fileout ("chunk") format' translatedNoop
+ 		buttonLabel: 'filein' translatedNoop!
- 		description: 'file in the entire contents of the file, which is expected to contain Smalltalk code in fileout ("chunk") format'
- 		buttonLabel: 'filein'!

Item was changed:
  ----- Method: FileStream class>>serviceRemoveLineFeeds (in category 'file reader services') -----
  serviceRemoveLineFeeds
  	"Answer a service for removing linefeeds from a file"
  
  	^ FileModifyingSimpleServiceEntry
  		provider: self 
+ 		label: 'remove line feeds' translatedNoop
- 		label: 'remove line feeds'
  		selector: #removeLineFeeds:	
+ 		description: 'remove line feeds in file' translatedNoop
+ 		buttonLabel: 'remove lfs' translatedNoop!
- 		description: 'remove line feeds in file'
- 		buttonLabel: 'remove lfs'!

Item was changed:
  ----- Method: RemoteString>>string:onFileNumber: (in category 'private') -----
  string: aString onFileNumber: fileNumber
  	"Store this as my string if source files exist."
+ 	(SourceFiles at: fileNumber) ifNotNil: [:theFile |
+ 		theFile isReadOnly ifTrue: [^ nil].
- 	| theFile |
- 	(SourceFiles at: fileNumber) == nil ifFalse: 
- 		[theFile := SourceFiles at: fileNumber.
  		theFile setToEnd; cr.
+ 		self string: aString onFileNumber: fileNumber toFile: theFile].!
- 		self string: aString onFileNumber: fileNumber toFile: theFile]!



More information about the Squeak-dev mailing list