[Pkg] The Trunk: Morphic-HenrikSperreJohansen.518.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Jun 21 20:44:24 UTC 2011
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].
!
More information about the Packages
mailing list