Andreas Raab uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ar.71.mcz

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

Name: EToys-ar.71
Author: ar
Time: 21 July 2010, 8:08:54.743 pm
UUID: 6bb71442-7d3e-014e-83c7-bf234e1b550f
Ancestors: EToys-nice.70

Shuffle various methods to avoid unnecessary dependencies between packages.

=============== Diff against EToys-nice.70 ===============

Item was changed:
  ----- Method: Point>>basicType (in category '*Etoys-tiles') -----
  basicType
  	"Answer a symbol representing the inherent type of the receiver"
  
  	^ #Point!

Item was added:
+ ----- Method: TileMorphTest>>testNewTileMorphRepresentative (in category 'testing') -----
+ testNewTileMorphRepresentative
+ 	
+ 	self assert: (nil newTileMorphRepresentative class =  UndescribedTile).
+ 	self assert: (false newTileMorphRepresentative isKindOf: TileMorph).
+ 	self assert: (false newTileMorphRepresentative literal = false).
+ 	self assert: (true newTileMorphRepresentative literal = true).!

Item was added:
+ ----- Method: TileMorphTest>>testArrowAction (in category 'testing') -----
+ testArrowAction
+ 	"self debug: #testArrowAction"
+ 	| dummy tile |
+ 	dummy := Morph new.
+ 	tile := TileMorph new setOperator: '+'.
+ 	dummy addMorph: tile.
+ 	tile arrowAction: 1.
+ 	self assert: tile codeString = '-'.
+ 
+ 	tile := TileMorph new setOperator: '<'.
+ 	dummy addMorph: tile.
+ 	tile arrowAction: 1.
+ 	"Because receiver is not tile"
+ 	self assert: tile codeString = '='.
+ 
+ 	tile := true newTileMorphRepresentative.
+ 	dummy addMorph: tile.
+ 	tile arrowAction: 1.
+ 	self assert: tile codeString = '(false)'.
+ !

Item was added:
+ ----- Method: Player>>getConePosition (in category 'sound') -----
+ getConePosition
+ 	"Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph."
+ 
+ 	^ costume renderedMorph conePosition!

Item was changed:
  SystemOrganization addCategory: #'Etoys-Buttons'!
  SystemOrganization addCategory: #'Etoys-CustomEvents'!
  SystemOrganization addCategory: #'Etoys-Experimental'!
  SystemOrganization addCategory: #'Etoys-Outliner'!
  SystemOrganization addCategory: #'Etoys-Protocols'!
  SystemOrganization addCategory: #'Etoys-Protocols-Type Vocabularies'!
  SystemOrganization addCategory: #'Etoys-Scripting'!
  SystemOrganization addCategory: #'Etoys-Scripting Support'!
  SystemOrganization addCategory: #'Etoys-Scripting Tiles'!
  SystemOrganization addCategory: #'Etoys-Stacks'!
  SystemOrganization addCategory: #'Etoys-StarSqueak'!
  SystemOrganization addCategory: #'Etoys-Tile Scriptors'!
  SystemOrganization addCategory: #'Etoys-Widgets'!
+ SystemOrganization addCategory: #'Etoys-Tests'!

Item was added:
+ ----- Method: TileMorphTest>>testSoundTile (in category 'testing') -----
+ testSoundTile
+ 	"self debug: #testSoundTile"
+ 	| tile dummy |
+ 	dummy := Morph new.
+ 	tile := SoundTile new literal: 'croak'.
+ 	dummy addMorph: tile.
+ 	tile arrowAction: 1.
+ 	self assert: tile codeString = '(''horn'')'.
+ 
+ 	!

Item was added:
+ TestCase subclass: #TileMorphTest
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Etoys-Tests'!

Item was added:
+ ----- Method: TileMorphTest>>testAssignmentTile (in category 'testing') -----
+ testAssignmentTile
+ 	"self debug: #testAssignmentTile"
+ 
+ 	| player viewer tile phrase |
+ 	player := Morph new assuredPlayer.
+ 	viewer := CategoryViewer new invisiblySetPlayer: player.
+ 	viewer  makeSetter: #(#getX #Number) event: nil from: player costume.
+ 	phrase := ActiveHand firstSubmorph.
+ 	ActiveHand removeAllMorphs.
+ 	tile := phrase submorphs second.
+ 
+ 	self assert: tile codeString = 'setX: '.
+ 	tile arrowAction: 1.
+ 	self assert: tile codeString = 'setX: self getX + '.
+ 
+ !

Item was added:
+ ----- Method: Player>>setConePosition: (in category 'sound') -----
+ setConePosition: aNumber
+ 	"Note: Performance hacked to allow real-time sound. Assumes costume is a SpeakerMorph."
+ 
+ 	costume renderedMorph conePosition: aNumber.!

Item was added:
+ TestCase subclass: #BasicTypeTest
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Etoys-Tests'!

Item was added:
+ ----- Method: BasicTypeTest>>testBasicType (in category 'tests') -----
+ testBasicType
+ 	
+ 	self assert: (true basicType = #Boolean).
+ 	self assert: (false basicType = #Boolean).!

Item was removed:
- ----- Method: Morph class>>partName:categories:documentation:sampleImageForm: (in category '*eToys-new-morph participation') -----
- partName: aName categories: aList documentation: aDoc sampleImageForm: aForm
- 	"Answer a DescriptionForPartsBin which will represent a launch of a new instance of my class via the #newStandAlone protocol sent to my class. Use the category-list and documentation provided.  This variant allows an overriding image form to be provided, useful in cases where we don't want to launch a sample instance just to get the form"
- 
- 
- 	| descr |
- 	descr := DescriptionForPartsBin new
- 		formalName: aName
- 		categoryList: aList
- 		documentation: aDoc
- 		globalReceiverSymbol: self name
- 		nativitySelector: #newStandAlone.
- 	descr sampleImageForm: aForm.
- 	^ descr
- !