Chris Muller uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-HenrikSperreJohansen.518.mcz

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

Name: Morphic-HenrikSperreJohansen.518
Author: HenrikSperreJohansen
Time: 21 January 2011, 8:13:08.247 pm
UUID: fef96a80-5bd1-7045-94dd-e0d64a521fa1
Ancestors: Morphic-dtl.516

Update to use pragma-based sound preferences

=============== Diff against Morphic-dtl.516 ===============

Item was changed:
  ----- Method: HaloMorph>>mouseDownInDimissHandle:with: (in category 'private') -----
  mouseDownInDimissHandle: evt with: dismissHandle
  	evt hand obtainHalo: self.
+ 	SoundService soundEnabled ifTrue: [TrashCanMorph playMouseEnterSound].
- 	Preferences soundsEnabled ifTrue: [TrashCanMorph playMouseEnterSound].
  	self removeAllHandlesBut: dismissHandle.
  	self setColor: Color darkGray toHandle: dismissHandle.
  !

Item was changed:
  ----- Method: Morph>>vanishAfterSlidingTo:event: (in category 'dropping/grabbing') -----
  vanishAfterSlidingTo: aPosition event: evt
  
  	| aForm aWorld startPoint endPoint |
  	aForm := self imageForm offset: 0 at 0.
  	aWorld := self world.
  	startPoint := evt hand fullBounds origin.
  	self delete.
  	aWorld displayWorld.
  	endPoint := aPosition.
  	aForm slideFrom: startPoint  to: endPoint nSteps: 12 delay: 15.
+ 	SoundService soundEnabled ifTrue: [TrashCanMorph playDeleteSound].
- 	Preferences soundsEnabled ifTrue: [TrashCanMorph playDeleteSound].
  !