[etoys-dev] Etoys Inbox: Skeleton-Richo.10.mcz

[commits at source.squeak.org]

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!