[Pkg] The Trunk: Tools-laza.203.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 8 11:05:19 UTC 2010

Alexander Lazarević uploaded a new version of Tools to project The Trunk:

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

Name: Tools-laza.203
Author: laza
Time: 8 March 2010, 12:04:53.301 pm
UUID: 02f8d9ec-57da-497c-9d95-aa0e16f04c69
Ancestors: Tools-laza.202

adapt FileList2/FileChooser to the last change

=============== Diff against Tools-laza.202 ===============

Item was changed:
  ----- Method: FileList2>>listForPatterns: (in category 'volume list and pattern') -----
  listForPatterns: anArray
  	"Make the list be those file names which match the patterns."
  	| sizePad newList |
  	directory ifNil: [^#()].
  	(fileSelectionBlock isKindOf: MessageSend) ifTrue: [
  		fileSelectionBlock arguments: {directory entries}.
  		newList := fileSelectionBlock value.
  		fileSelectionBlock arguments: #().
  	] ifFalse: [
  		newList := Set new.
  		anArray do: [ :pat |
  			newList addAll: (directory entries select: [:entry | fileSelectionBlock value: entry value: pat]) ].
  	newList := newList asSortedCollection: self sortBlock.
  	sizePad := (newList inject: 0 into: [:mx :entry | mx max: entry fileSize])
+ 					asStringWithCommas size.
- 					asStringWithCommas size - 1.
  	newList := newList collect: [ :e | self fileNameFormattedFrom: e sizePad: sizePad ].
  	^ newList asArray!

Item was changed:
  ----- Method: FileChooser>>fileNameFormattedFrom:sizePad: (in category 'updating') -----
  fileNameFormattedFrom: entry sizePad: sizePad 
- 	"entry is a 5-element array of the form:
- 		(name creationTime modificationTime dirFlag fileSize)"
  	"If the short file list flag is false, we send this on to the superclass."
  	| nameStr |
  		ifFalse: [^super fileNameFormattedFrom: entry sizePad: sizePad].
  	"Otherwise, just show the name of the file in the file list."
+ 	nameStr := (entry isDirectory)
+ 					ifTrue: [entry name, self folderString]
+ 					ifFalse: [entry name].
- 	nameStr := (entry at: 4) 
- 				ifTrue: [entry first , self folderString]
- 				ifFalse: [entry first].

More information about the Packages mailing list