[etoys-dev] Etoys: Tools-kfr.8.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Tools to project Etoys:
http://source.squeak.org/etoys/Tools-kfr.8.mcz

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

Name: Tools-kfr.8
Author: kfr
Time: 30 July 2011, 11:58:22 pm
UUID: deb2e1f6-3c30-1048-ada9-9a77fbe679d4
Ancestors: Tools-kfr.7

Make own category for Sounds in FileList

=============== Diff against Tools-kfr.6 ===============

Item was changed:
  ----- Method: FileList2 class>>endingSpecs (in category 'blue ui') -----
  endingSpecs
  	"Answer a collection of specs to build the selective 'find anything' tool called by the Navigator. This version uses the services registry to do so."
  	"FileList2 morphicViewGeneralLoaderInWorld: World"
  	| categories services specs rejects |
  	rejects _ #(addFileToNewZip: compressFile: openInZipViewer: extractAllFrom: openOn: openGIFInWindow:).
  	categories _ #(
  		('Art' ('bmp' 'gif' 'jpg' 'jpeg' 'form' 'png' 'pcx' 'xbm' 'xpm' 'ppm' 'pbm'))
  		('Morphs' ('morph' 'morphs' 'sp'))
  		('Projects' ('extseg' 'project' 'pr'))
  		('Books' ('bo'))
+ 		('Sounds' ('wav'))
+ 		('Music' ('mid'))
- 		('Music' ('mid' 'wav'))
  		('Movies' ('movie' 'mpg' 'mpeg' 'qt' 'mov'))
  		"('Code' ('st' 'cs'))"
  		('Flash' ('swf'))
  		('TrueType' ('ttf'))
  		('3ds' ('3ds'))
  		('Tape' ('tape'))
  		('Wonderland' ('wrl'))
  		('HTML' ('htm' 'html'))
  	).
  	categories first at: 2 put: ImageReadWriter allTypicalFileExtensions.
  	specs _ OrderedCollection new.
  	categories do: [ :cat | | catSpecs catServices okExtensions |
  		services _ Dictionary new.
  		catSpecs _ Array new: 3.
  		catServices _ OrderedCollection new.
  		okExtensions _ Set new.
  
  		cat second do: [ :ext | (FileList itemsForFile: 'fred.',ext) do: [ :i |
  			(rejects includes: i selector) ifFalse: [
  				okExtensions add: ext.
  				services at: i label put: i ]]].
  		services do: [ :svc | catServices add: svc ].
  		services isEmpty ifFalse: [ 
  			catSpecs at: 1 put: cat first translated;
  				at: 2 put: okExtensions;
  				at: 3 put: catServices.
  			specs add: catSpecs ]
  	].
  	^specs
  !