Etoys Inbox: Skeleton-Richo.10.mcz

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 mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev