Etoys: Tools-kfr.11.mcz

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

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

Name: Tools-kfr.11
Author: kfr
Time: 6 March 2012, 10:59:15 pm
UUID: fa7e10a0-534a-7342-96a9-6e83bc42df87
Ancestors: Tools-kfr.10

File servce for aif and aiff files
http://tracker.squeakland.org/browse/SQ-1032

=============== Diff against Tools-kfr.10 ===============

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' 'aif' 'aiff'))
- ('Sounds' ('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