Ricardo Moran uploaded a new version of Skeleton to project Etoys Inbox: http://source.squeak.org/etoysinbox/Skeleton-Richo.10.mcz
==================== Summary ====================
Name: Skeleton-Richo.10 Author: Richo Time: 24 October 2011, 11:08:37 am UUID: e3289be8-dc9f-8441-ac60-6fdda345c513 Ancestors: Skeleton-Richo.9
Changed all #beep: messages to reference existing sounds.
=============== Diff against Skeleton-Richo.9 ===============
Item was changed: ----- Method: SkBasicSheetMorph>>acceptDroppingMorph:event: (in category 'drag and drop') ----- acceptDroppingMorph: aMorph event: evt | cellPos successed | cellPos _ self screenToCell: aMorph topLeft. (cellPos x < 1 or: [cellPos y < 1]) + ifTrue: [self beep: 'scratch'. - ifTrue: [self beep: 'arrow'. ^ aMorph rejectDropMorphEvent: evt]. successed _ false. successed _ (aMorph isKindOf: SkGridPartsMorph) ifTrue: [self acceptRuleMorph: aMorph event: evt] ifFalse: [aMorph class = PhraseTileMorph ifTrue: [self acceptPhraseTileMorph: aMorph event: evt] ifFalse: [aMorph class = TileMorph ifTrue: [self acceptTileMorph: aMorph event: evt]]]. successed + ifTrue: [self beep: 'clink'] + ifFalse: [self beep: 'scratch'. - ifTrue: [self beep: 'cassete'] - ifFalse: [self beep: 'arrow'. aMorph rejectDropMorphEvent: evt]!
Item was changed: ----- Method: SkBasicSheetMorph>>goto: (in category 'navigation') ----- goto: aSkObject | grid | + self beep: 'click'. - self beep: 'rice'. grid _ aSkObject grid. self replace: grid. grid history: self. ^ grid!
Item was changed: ----- Method: SkBasicSheetMorph>>previousPage (in category 'navigation') ----- previousPage + self beep: 'click'. - self beep: 'rice'. ^ history ifNotNil: [self replace: history]!
Item was changed: ----- Method: SkBasicSheetMorph>>privateRemoveMorph: (in category 'private') ----- privateRemoveMorph: aMorph aMorph class = SkCardMorph + ifTrue: [self beep: 'scratch'. - ifTrue: [self beep: 'cork'. self model textAt: aMorph cellOrigin put: '']. super privateRemoveMorph: aMorph!
Item was changed: ----- Method: SkBasicSheetMorph>>upPage (in category 'navigation') ----- upPage + self beep: 'click'. - self beep: 'rice'. ^ self goto: model up!
etoys-dev@lists.squeakfoundation.org