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

[commits at source.squeak.org]

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

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

Name: Tools-kfr.12
Author: kfr
Time: 24 October 2012, 11:26:23 pm
UUID: 843de3f1-e247-504f-ae3b-9d0eb71e3c4f
Ancestors: Tools-kfr.11

Add preferences to file services

=============== Diff against Tools-kfr.11 ===============

Item was changed:
  ----- Method: FileList class>>initialize (in category 'class initialization') -----
  initialize
  	"FileList initialize"
  
  	RecentDirs := OrderedCollection new.
  	(self systemNavigation allClassesImplementing: #fileReaderServicesForFile:suffix:) do: 		[:providerMetaclass |
  			self registerFileReader: providerMetaclass soleInstance].
  
+ 	#(AnimatedImageMorph AnonymousSoundMorph ChangeList DummyToolWorkingWithFileList EventRecorderMorph FileContentsBrowser FileStream FlashMorphReader Form GZipWriteStream InternalTranslator MoviePlayerMorph MPEGMoviePlayerMorph OggSpeexCodec OggVorbisCodec Preferences ProjectViewMorph SARInstaller ScorePlayerMorph SugarLauncher TTFontReader)  do: [:cls |
- 	#(AnimatedImageMorph AnonymousSoundMorph ChangeList DummyToolWorkingWithFileList EventRecorderMorph FileContentsBrowser FileStream FlashMorphReader Form GZipWriteStream InternalTranslator MoviePlayerMorph MPEGMoviePlayerMorph OggSpeexCodec OggVorbisCodec ProjectViewMorph SARInstaller ScorePlayerMorph SugarLauncher TTFontReader)  do: [:cls |
  	Smalltalk at: cls asSymbol ifPresent: [:c | self registerFileReader: c]].!