Karl Ramberg uploaded a new version of Tools to project Etoys:
http://source.squeak.org/etoys/Tools-kfr.6.mcz==================== Summary ====================
Name: Tools-kfr.6
Author: kfr
Time: 19 July 2011, 9:20:47 pm
UUID: efb82ef5-89be-f94a-9680-bef4bfa40c47
Ancestors: Tools-kfr.5
Make wav files loadble from Etoys
=============== Diff against Tools-bf.4 ===============
Item was changed:
SystemOrganization addCategory: #'Tools-ArchiveViewer'!
SystemOrganization addCategory: #'Tools-Browser'!
SystemOrganization addCategory: #'Tools-Changes'!
SystemOrganization addCategory: #'Tools-Debugger'!
SystemOrganization addCategory: #'Tools-Explorer'!
SystemOrganization addCategory: #'Tools-File Contents Browser'!
SystemOrganization addCategory: #'Tools-FileList'!
- SystemOrganization addCategory: #'Tools-FileList-Tests'!
SystemOrganization addCategory: #'Tools-Inspector'!
SystemOrganization addCategory: #'Tools-Menus'!
SystemOrganization addCategory: #'Tools-Process Browser'!
SystemOrganization addCategory: #'Tools-Base'!
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'))
+ ('Music' ('mid' 'wav'))
- ('Music' ('mid'))
('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
!
_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev
Locked
