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]].!
_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev